[an error occurred while processing this directive]
|
|
for m1:= 0 to 3 do (повторять для каждой страницы m1=0..3)
Command_LCD(%10111000 or m1); (установить № страницы)
SetAddress($13); (установить адрес столбца)
WriteDataOnly($00); (загнать ноль туда)
endfor; (и так 4 раза, для каждой страницы)
Это я очищаю так два столбца (№0)в каждом кристалле и потом их не использую: все пикселы этих столбцов загоняю нули. Я пользуюсь этим индикатором, чтобы буквы здоровенные писать. Каждая буква шрифтом 20x32 пиксела. 20-это ширина буквы. 20*6=120 (т.к. у меня шесть знакомест), а так как всего столбцов 61*2=122, то 2 столбца мне не нужны и туда просто нули загоняю один раз.
E-mail: info@telesys.ru