Habe ich schon gemacht!
Diesen Code habe ich jetzt verwendet:

Code:
$regfile = "m8def.dat"
$crystal = 4000000

Dim ___lcdno As Byte

Config Lcd = 40 * 4
Config Lcdpin = Pin , E = Portd.5 , E2 = Portd.6 , Rs = Portd.4 , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3

___lcdno = 0
Initlcd

Cls
 ___lcdno = 1
Initlcd

Cls


___lcdno = 0

Locate 1 , 1
Lcd "1. Die erste Zeile" ;

Locate 2 , 1
Lcd "2. Die zweite Zeile"

Cursor Off

___lcdno = 1

Locate 1 , 1
Lcd "3. Die dritte Zeile" ;

Locate 2 , 1
Lcd "4. So einfach ist das !!!!"

Cursor Off

End

Alles richtig angeschlossen, es tut sich nichts, nur die 2. und 4. Zeile "leuchtet".

MfG

EDIT:
Ist es so auch richtig?
Im Code steht ja D4-D7, also habe ich auch die letzten 4 Datenleitungen vom LCD genommen, auch D4-D7, oder muss ich D0-D3 beim LCD nehmen?