Witam,
Napisałem programik obsługi LCD przez port LPT. Program ma za zadanie wyświetlić litery od A - K. Niestety wyświetlacz wogóle nie reaguje. Port otwieram za pocą programu UserPort.
![[pascal] Obsługa LCD alfanumerycznego przez port LPT](https://obrazki.elektroda.pl/63_1246535424.jpg "[pascal] Obsługa LCD alfanumerycznego przez port LPT")
Napisałem programik obsługi LCD przez port LPT. Program ma za zadanie wyświetlić litery od A - K. Niestety wyświetlacz wogóle nie reaguje. Port otwieram za pocą programu UserPort.
uses crt;
var
x:byte;
const
LPT = $378;
procedure inicjuj;
begin
port[LPT+$02]:=$09; {RS=0}
port[LPT]:=$30;
delay(5);
port[LPT]:=$38;
port[LPT]:=$08;
port[LPT]:=$01;
port[LPT]:=14;
delay(1);
end;
begin
inicjuj;
for x:=65 to 75 do begin
port[LPT+$02]:=$08; {ustawienie RS=1}
port[LPT+$00]:=x; { zapis znaku na linie D0...D7}
port[LPT+$02]:=$00; { E=1 }
port[LPT+$02]:=$08; { E=0 koniec zapisu znaku }
readkey;
end;
end.
Teraz wszystko działa dobrze!
