Hi, ich versuche gerade die hier auf der Seite vorgestellte Routine zur Ansteuerung eines LCD's auf Delphi zu portieren. Das LCD (HD44780) ist über dem USB - Portbaustein CY7C63001 von Cypress (mit der Modul-Bus - Software) angeschlossen. Irgendwie scheiterts schon bei der Initialisierung. Kann mir vielleicht jemand weiterhelfen? Die Funktion setport() gibt das byte auf den IO Port des USB Bausteins aus. Das Display ist wie im Tutorial am Port angeschlossen. Bin für jede Hilfe dankbar! Hier der Delphi Quellcode: function swapx(byte:byte):byte; begin result:= (($0f and byte)shl 4) or (($f0 and byte) shr 4); end; procedure lcd_enable; begin setport(temp1 or $20); sleep(1); setport(temp1 and $df); end; procedure lcd_command(cmd:byte); begin setport($0f and swapx(cmd)); lcd_enable; sleep(1); setport($0f and cmd); lcd_enable; sleep(1); end; procedure lcd_init; begin; sleep(15); setport($03); lcd_enable; sleep(5); lcd_enable; sleep(5); lcd_enable; sleep(5); setport($02); lcd_enable; sleep(5); lcd_command($28); sleep(1); lcd_command($0c); sleep(1); lcd_command($04); sleep(1); end; procedure lcd_clear; begin lcd_command($01); sleep(5) end;
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.