ГЖКИ KS0108 и сорс на Delphi - помогите прикошачить!

zlokot

Здравствуйте уважаемые Радиокоты!
Помогите, кто пишет на 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

melt12864a.pdf: Даташит на ГЖКИ MT-12864A; (220.61 КБ) 620 скачиваний

Реклама

Alex_EXE

А в чем проблема перепаять?

Реклама

zlokot

Перепаять конечно можно, но хотелось бы оставить так, в целях совместимости с другими программами, обслуживающими ЖКИ. (Это вроде как негласного стандарта подключения.)

Alex_EXE

Можно приделать джампер или переключатель.

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

Реклама

zlokot

Alex_EXE писал(а):Можно приделать джампер или переключатель.

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

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

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

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

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

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

Реклама

zlokot

Никто не поможет?

Реклама

Alex_EXE

Прошу будет поставить переключатель.

Но если есть желания - то в файле 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 или его вообще нет.

zlokot

Alex_EXE - спасибо Вам за консультацию и оперативность ответа!
Это, конечно, сложновато для моего понимания, т.к я с портами не работал ранее.
Попытаюсь вникнуть в вышенаписанное.
(Плохо, что исходник не откоменнтирован).

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

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

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

Alex_EXE

Да
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;

Наверно так

zlokot

Странно, не получилось.. нет вывода на ЖКИ

точнее несколько пикселей слева. (пробовал вывести картинку из исходника)

PS: У меня есть еще исходник на бейсике, exe файл которого работает с индикатором, может там чего полезного..

ks0108testtool.rar: Исходник и exe на бейсике, для тестирования KS01080 индикатора; (34.9 КБ) 248 скачиваний

Alex_EXE

Попробуйте тогда так:
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;

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

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

zlokot

Не сдаётся ЖКИ!

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

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

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

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

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

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