Ähm ja nu hab ich das LCD hier und es will nicht richtig. Schwarze Balken werden angezeigt und ich kanna uch den Kontrast regeln, aber das wars dann auch schon.


Code:
$regfile = "M8def.dat"
$crystal = 3686400

Config Portd = Output

Config Lcd = 16 * 1
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.4 , Db6 = Portd.5 , Db7 = Portd.6 , E = Portd.2 , Rs = Portd.7
Config Lcdbus = 4
Config Lcdmode = Port

Initlcd                                 'initialisiert das LCD

'--------------------------------------------------------------

Do                                      'Begin Hauptschleife
Cls
                          'setzt Cursor in die obere Zeile
Lcd "Erster Test"


Wait 1                                  'wartet 1 sekunde
Cls                                     'löscht LCD
Wait 1                                  'wartet 1s und schreibt erneut

Loop                                    'erneut aufrufen
End