Например TDA7294

 Форум РадиоКот • Просмотр темы - ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
Форум РадиоКот
Здесь можно немножко помяукать :)



Текущее время: Ср июн 20, 2018 08:39:33



Часовой пояс: UTC + 3 часа [ Летнее время ]


ПРЯМО СЕЙЧАС:



Начать новую тему Ответить на тему  [ Сообщений: 12 ] 
Автор Сообщение
Не в сети
 Заголовок сообщения: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Пт июл 16, 2010 12:11:18 
Родился

Зарегистрирован: Пт июл 16, 2010 11:50:10
Сообщений: 7
Откуда: Ростов-на-Дону
Рейтинг сообщения: 0
Здравствуйте уважаемые Радиокоты!
Помогите, кто пишет на delphi или знает особенности работы с ГЖКИ на KS0108

Расскажу вкратце:

Почитал я как то статью на wasm-е про использование ГЖКИ в компьютере:
http://www.wasm.ru/article.php?article=ks0108
Там в конце прилагался сорс на delphi.

Приобрел ЖКИ MT12864A, припаял его для использования с LPT портом, но не по схеме предложенной автором статьи, а по схемам lcdinfo/lcdstudio/lcdhype
то есть, от подключения автора отличия
у него:
LCD 16(CS2) - LPT(17)
а у меня RS на 17-ой ноге LPT порта.

схема по которой паял я:
Изображение

его ЖКИ:

1 GND Земля -
2 VCC Напряжение питания 3 или 5 вольт
3 VSS Контраст
4 RS Команда/данные
5 R/W Чтение/запись (замкнуть на GND)
6 E Строб (защёлкивание по спаду)
7:14 Data bus Шина данных
15 CS1 Выбор 1 ого контроллера
16 CS2 Выбор 2 ого контроллера
17 /RST Сброс (не используется)
18 VEE Выход отриц. напряжения (подать на вход регулировки контраста)
19 LED + Подсветка + 4.2 в.

как паял автор:
LCD LPT
4 RS 16 init
5 R/W GND
6 E 1 /strobe
7:14 Data bus 2:9 Data
15 CS1 14
16 CS2 17

Кто поможет разобраться с тем, что надо изменить в исходнике, чтобы вывести картинку на ЖКИ при таком подключении.

Вот тут лежит исходник: http://www.wasm.ru/pub/12/files/KS0108.zip

PS: Даташит на MT-12864A
Вложение:
Комментарий к файлу: Даташит на ГЖКИ MT-12864A
melt12864a.pdf [220.61 KiB]
Скачиваний: 400


Последний раз редактировалось zlokot Вс июл 25, 2010 15:45:36, всего редактировалось 1 раз.

Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Сб июл 17, 2010 12:47:17 
Вымогатель припоя
Аватар пользователя

Зарегистрирован: Сб дек 27, 2008 13:01:35
Сообщений: 578
Откуда: Россия, Екатеринбург
Рейтинг сообщения: 0
А в чем проблема перепаять?


Вернуться наверх
 Профиль WWW  
 
JLCPCB Prototype, Бесплатная доставка первого заказа + $2 на прототип ПП!

Крупнейший производитель печатных плат в Китае, 290,000+ заказчиков, 8,000+ он-лайн заказов в день.

Цена за 10 плат: $2 за 2-х слойную, $15 за 4-х слойную, $74 за 6-ти слойную.

LCSC Parts: Экономия до 50%, большой выбор компонентов в наличии, отправка заказа в день оплаты.

Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Сб июл 17, 2010 16:59:23 
Родился

Зарегистрирован: Пт июл 16, 2010 11:50:10
Сообщений: 7
Откуда: Ростов-на-Дону
Рейтинг сообщения: 0
Перепаять конечно можно, но хотелось бы оставить так, в целях совместимости с другими программами, обслуживающими ЖКИ. (Это вроде как негласного стандарта подключения.)


Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Сб июл 17, 2010 18:02:51 
Вымогатель припоя
Аватар пользователя

Зарегистрирован: Сб дек 27, 2008 13:01:35
Сообщений: 578
Откуда: Россия, Екатеринбург
Рейтинг сообщения: 0
Можно приделать джампер или переключатель.

Как подключили вы дисплей к LPT порту совершенно не понятно.


Вернуться наверх
 Профиль WWW  
 

Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Сб июл 17, 2010 18:39:59 
Родился

Зарегистрирован: Пт июл 16, 2010 11:50:10
Сообщений: 7
Откуда: Ростов-на-Дону
Рейтинг сообщения: 0
Alex_EXE писал(а):
Можно приделать джампер или переключатель.

Как подключили вы дисплей к LPT порту совершенно не понятно.


Извините, вероятно проблемы у nm.ru

у меня различие с автором в коммутации:
У него на 17 ноге LPT порта CS2
а у меня там RS

Хотелось бы помощи в реализации такого подключения.
Подключал вот-так:
Изображение

Вот, навсякий случай, еще с одного ресурса:
Изображение

Как его прилепить, чтобы заработало с моим подключением, нужен только вывод, как в исходнике - изображения.


Вернуться наверх
 Профиль WWW  
 

Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Ср июл 21, 2010 22:25:43 
Родился

Зарегистрирован: Пт июл 16, 2010 11:50:10
Сообщений: 7
Откуда: Ростов-на-Дону
Рейтинг сообщения: 0
Никто не поможет? :shock:


Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Чт июл 22, 2010 12:26:27 
Вымогатель припоя
Аватар пользователя

Зарегистрирован: Сб дек 27, 2008 13:01:35
Сообщений: 578
Откуда: Россия, Екатеринбург
Рейтинг сообщения: 0
Прошу будет поставить переключатель.

Но если есть желания - то в файле KS0108.pas
Есть следующие константы:
Код:
LCD_ON=$3E;
LCD_SET_ADDRESS=$40;
LCD_START_X=$C0;
LCD_SET_PAGE=$B8;

CHIP1=8;
CHIP2=2;
Если правильным образом нужные вам откорректировать - то заработает.

Изображение
Вот на этом рисунке расписаны адреса и биты порта LPT.

Если вам нужно поменять местами CS2 и RS - то вам следовательно нужно поменять местами адреса их контактов в порте.
У вас по видимому CS2 - 8 бит, а RS - 4 бит, CS2 упомянут в константах, а RS, по-моему, встречается в OutData или его вообще нет.


Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Сб июл 24, 2010 01:39:47 
Родился

Зарегистрирован: Пт июл 16, 2010 11:50:10
Сообщений: 7
Откуда: Ростов-на-Дону
Рейтинг сообщения: 0
Alex_EXE - спасибо Вам за консультацию и оперативность ответа!
Это, конечно, сложновато для моего понимания, т.к я с портами не работал ранее.
Попытаюсь вникнуть в вышенаписанное.
(Плохо, что исходник не откоменнтирован).

Константы, как я понял - это команды инициализации:
LCD_ON=$3E; //включение LCD
LCD_SET_ADDRESS=$40; //установка адреса
LCD_START_X=$C0; //выбор страницы
LCD_SET_PAGE=$B8; //установка страницы

CHIP1=8; //первый кристалл
CHIP2=2; //тут надо изменить на 4???

PS^ Если это вдруг дурацкие вопросы, прошу Вас мне помочь. Мне непонятно как это работает или работать должно. Доков для дилетанта никто не пишет.


Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Сб июл 24, 2010 23:36:45 
Вымогатель припоя
Аватар пользователя

Зарегистрирован: Сб дек 27, 2008 13:01:35
Сообщений: 578
Откуда: Россия, Екатеринбург
Рейтинг сообщения: 0
Да
CHIP2=4;
и ещё
Код:
procedure OutData(data: byte; cs: byte);
begin
 OutPort($37A, 0 or cs or 2); // E=1, RS=1, CS - выбор чипа
 OutPort($378, data);
 OutPort($37A, 1 or cs or 2); // E=0, RS=1, CS - выбор чипа
end;

Наверно так


Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Вс июл 25, 2010 12:17:42 
Родился

Зарегистрирован: Пт июл 16, 2010 11:50:10
Сообщений: 7
Откуда: Ростов-на-Дону
Рейтинг сообщения: 0
Странно, не получилось.. нет вывода на ЖКИ :cry:
точнее несколько пикселей слева. (пробовал вывести картинку из исходника)

Изображение

PS: У меня есть еще исходник на бейсике, exe файл которого работает с индикатором, может там чего полезного..
Вложение:
Комментарий к файлу: Исходник и exe на бейсике, для тестирования KS01080 индикатора
ks0108testtool.rar [34.9 KiB]
Скачиваний: 109


Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Вс июл 25, 2010 14:36:54 
Вымогатель припоя
Аватар пользователя

Зарегистрирован: Сб дек 27, 2008 13:01:35
Сообщений: 578
Откуда: Россия, Екатеринбург
Рейтинг сообщения: 0
Попробуйте тогда так:
CHIP1=4;
CHIP2=2;
Код:
procedure OutData(data: byte; cs: byte);
begin
OutPort($37A, 0 or cs or 2); // E=1, RS=1, CS - выбор чипа
OutPort($378, data);
OutPort($37A, 1 or cs or 2); // E=0, RS=1, CS - выбор чипа
end;


И сами можете поэкспериментировать с битами.

Бэсик я не знаю


Вернуться наверх
 Профиль WWW  
 
Не в сети
 Заголовок сообщения: Re: ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!
СообщениеДобавлено: Вс июл 25, 2010 15:22:03 
Родился

Зарегистрирован: Пт июл 16, 2010 11:50:10
Сообщений: 7
Откуда: Ростов-на-Дону
Рейтинг сообщения: 0
Не сдаётся ЖКИ!

Попробовал менять биты по разному

со значениями
4
и
2
видно вот это:
Изображение

остальные комбинации никак не проявляются, чтож ему надо - гаду :dont_know:

Автор исходника написал когда-то:

Цитата:
попробуй сменить численные значения констант CS1 с 2 на 4 ИЛИ
CS2 с 8 на 4 на вобщем подбирай значения и в OutPort($37A, 1 or cs or 4);
на место 4ки подставляй другие значения (2,8)

пробую и ничего..


Вернуться наверх
 Профиль WWW  
 
Показать сообщения за:  Сортировать по:  Вернуться наверх
Начать новую тему Ответить на тему  [ Сообщений: 12 ] 



Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB
Extended by Karma MOD © 2007—2012 m157y
Extended by Topic Tags MOD © 2012 m157y