[an error occurred while processing this directive]
|
|
procedure InitG_LCD;
begin
Res:= false; это "0"
mdelay(10);
Res:= true; это "1"
CS := true;
Command_LCD(%11100010);
Command_LCD(%10100100);
Command_LCD(%10101001);
Command_LCD(%11000000);
Command_LCD(%10100001);
Command_LCD(%00000000);
Command_LCD(%10101111);
for m1:= 0 to 3 do
Command_LCD(%10111000 or m1);
SetAddress($13);
WriteDataOnly($00);
endfor;
CS := false;
Command_LCD(%11100010);
Command_LCD(%10100100);
Command_LCD(%10101001);
Command_LCD(%11000000);
Command_LCD(%10100000);
Command_LCD(%00000000);
Command_LCD(%10101111);
for m1:= 0 to 3 do
Command_LCD(%10111000 or m1);
SetAddress($00);
WriteDataOnly($00);
endfor;
end;
E-mail: info@telesys.ru