LCD WINTREX WD-C2704M-1HNN

LCD WINTREX WD-C2704M-1HNN (von Pollin)

so funktioniert es

'$regfile = "m16def.dat"
'definieren des verwendeten Chips
$regfile = "m32def.dat"

'------------------------------------------------------------------
' demo shows 4 bit LCD mode with 2 E lines
'------------------------------------------------------------------
$crystal = 8000000
$baud = 4800                                                ' NMEA
Schnittstelle

Dim ___lcdno as Bit
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 ,
Db7 = Portc.6 , E = Portc.1 , E2 = Portc.2 , Rs = Portc.0

Config Lcd = 40*4
Initlcd
Cursor Off
Do
___lcdno = 0
Initlcd
Cls
Cursor Off
Home
Locate 1 , 1
Lcd "dein Text1"                                            'Text in
Zeile 1
Locate 2 , 1
Lcd "Text1"                 'Text in Zeile 2
Wait 1
___lcdno = 1
Initlcd
Cls
Cursor Off
Home
Locate 1 , 1
Lcd "dein Text2"                                            'Text in
Zeile 3
Locate 2 , 1
Lcd "Text2"                                                 'Text in
Zeile 4
Waitms 1
Wait 1
Loop
End