Dieses Wintek LCD funktioniert bei mir mit diesem Code:
Code:
$regfile = "m168def.dat"
$crystal = 16000000
$baud = 9600
Dim ___lcdno As Byte
Config Lcd = 40 * 4
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.0 , Db6 = Portd.7 , Db7 = Portd.6 , E = Portb.3 , E2 = Portc.3 , Rs = Portc.2
___lcdno = 0
Initlcd
Cls
Cursor Off
___lcdno = 1
Initlcd
Cls
Cursor Off
Do
___lcdno = 0
Locate 1 , 1
Lcd "Zeile 1"
Locate 2 , 1
Lcd "Zeile 2"
___lcdno = 1
Locate 1 , 1
Lcd "Zeile 3"
Locate 2 , 1
Lcd "Zeile 4"
Loop
End
RW und die 4 anderen Datenports liegen auf GND. Achte aber drauf, dass die Ports nicht für was anderes benutzt werden. Hab mal versucht das Display an ein RN-Minicontrol anzuschließen und bin fast daran verzweifelt, dass der ISP dieselben Ports benutzt hat. Hab 2 Stunden gebraucht um das rauszufinden.
Lesezeichen