Hallo,
versuchs mal hiermit. Mußt die portbelegung halt noch modifizieren.

$regfile = "m8def.dat"
$crystal = 10000000

Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.7 , Rs = Portd.6
' Natürlich so wie es wirklich angeschlossen ist (4-Bit-Modus)


Dim A As Byte
Config Lcd = 16 * 2 'configure lcd screen
'other options are 16 * 4 and 20 * 4, 20 * 2 , 16 * 1a
'When you dont include this option 16 * 2 is assumed
'16 * 1a is intended for 16 character displays with split addresses over 2 lines

'$LCD = address will turn LCD into 8-bit databus mode
' use this with uP with external RAM and/or ROM
' because it aint need the port pins !
Do
Cls 'clear the LCD display
Lcd "Test"
Locate 2,1
LCD "Hallo Welt"
loop



Viel Glück!

Xeus