Hallo Dennis,
ich hab dein Prog getestet und kann sagen es funktioniert !
Hier ist der Anschluß des LCD:
'LCD mit HD44780 kompatiblem Controller
'Anschluß
'LCD Pin 1 = 0Volt (GND)
'LCD Pin 2 = +5 Volt (VDD)
'LCD Pin 3 = 0-5 Volt Kontrast (V0): Poti 10k zwischen 0V und 5V Schleifer an LCD3
'LCD Pin 4 = RS an PortA.2
'LCD Pin 5 = R/W an +5V
'LCD Pin 6 = E an Porta.3
'LCD Pin 7 = DB0 'frei
'LCD Pin 8 = DB1 'frei
'LCD Pin 9 = DB2 'frei
'LCD Pin 10 = DB3 'frei
'LCD Pin 11 = DB4 an Porta.4
'LCD Pin 12 = DB5 an Porta.5
'LCD Pin 13 = DB6 an Porta.6
'LCD Pin 14 = DB7 an Porta.7
Wo Kommentare sind, hab ich dein prog leicht überarbeitet.
**Korrektur: 'LCD Pin 5 = R/W muß an GND ** Danke Gerhard ! **
Code:
'Fehlersuche
'LCD mit HD44780 kompatiblem Controller
'Anschluß
'LCD Pin 1 = 0Volt (GND)
'LCD Pin 2 = +5 Volt (VDD)
'LCD Pin 3 = 0-5 Volt Kontrast (V0): Poti 10k zwischen 0V und 5V Schleifer an LCD3
'LCD Pin 4 = RS an PortA.2
'LCD Pin 5 = R/W an GND * Fehler GND ist richtig! *
'LCD Pin 6 = E an Porta.3
'LCD Pin 7 = DB0 'frei
'LCD Pin 8 = DB1 'frei
'LCD Pin 9 = DB2 'frei
'LCD Pin 10 = DB3 'frei
'LCD Pin 11 = DB4 an Porta.4
'LCD Pin 12 = DB5 an Porta.5
'LCD Pin 13 = DB6 an Porta.6
'LCD Pin 14 = DB7 an Porta.7
'_____________________________________________________________
$crystal = 16000000
'$regfile = "m8515.dat" 'auskommentiert, denn ich verwende ATMega16
$regfile = "m16def.dat"
'$baud = 19200 'brauchen wir hier nicht
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Initlcd 'initialisiert das LCD
'--------------------------------------------------------------
Do 'Begin Hauptschleife
Cls
Upperline 'setzt Cursor in die obere Zeile
Lcd "Erster Test"
Lowerline
Lcd "Hallo Welt!!!"
Wait 1 'wartet 1 sekunde
Cls 'löscht LCD
Wait 1 'wartet 1s und schreibt erneut
Loop 'erneut aufrufen
End
Viel Erfolg Bernd
" Das zentrale Problem wird leicht übersehn ! " (Dietrich Drahtlos)
Lesezeichen