Forum: Mikrocontroller und Digitale Elektronik LCD nach Anleitung, aber geht nicht...


von sebezahn (Gast)


Lesenswert?

Hallo,

ich verzweifle! Genau nach Anleitung habe ich ein LCD über vier Ports
angeschlossen. Ein Fehler in der Verkabelung schließe ich aus, ich habe
alles, aber auch wirklich alles durchgemessen, aber es geht nicht. Ich
habe sogar mehrere Prozessoren benutzt, auch hiermit Fehlanzeige.

Das Display selbst funktioniert, die Verkabelung habe ich inzwischen 20
mal getestet und auch von anderen überprüfen lassen. Es muss am
Programm liegen, das nichts angezeigt wird.

Vielleicht fällt Euch etwas auf. Ich bin für jeden Hinweis dankbar!


------ Quellcode ----------

' Definition Von Variablen
$regfile = "2313def.dat"        'AT90S2313
$crystal = 3932160              'Quarz: 3.93216 MHz

' Variablen fuer die Kommunikation
' Brauche ich nicht fuers Display
Dim Zpuffer As String * 10
Dim Z As String * 2
Dim S As Integer
Dim Befehl As String * 4


' Variablen fuer die Steuerbefehle
' Auch kein Displaykram
Dim St1 As Integer
Dim St2 As Integer
Dim St3 As Integer
Dim St4 As Integer
Dim Bpuffer As String * 4
Dim X As Integer
Dim Y As Integer


' Die Einstellungen fuer RS232 werden gemacht.
$baud = 1200
On Urxc Onrxd
Enable Urxc
Enable Interrupts

' Ein bisserl warten
Waitms 900
Waitms 900
Waitms 900
Waitms 900

' Fuer die Hintergrundbeleuchtung muss ein Pin auf
' Ausgang stehen, hier PD2
Config Pind.2 = Output
Portd.2 = 0
St1 = 0

' Einstellungen fuer das Display 16x4 im 4Port-Mode
' Verkabelung DEFINITIV korrekt!
' Enable = Port.B3
' RS = Port.B2
' DB7 = Port.B7
' DB6 = Port.B6
' DB5 = Port.B5
' DB4 = Port.B4
Config Lcdmode = Port
Config Lcdbus = 4
Config Portb = Output
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 ,
Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Initlcd ' Auch ohne funktionierts nicht!
Display On ' Auch ein Akt der Verzweiflung...


' Den Inhalt des Displays loeschen
Cls

' Man kann den Cursor auf Blinken stellen...
' Cursor Blink
' Cursor Noblink

' testroutine
Waitms 500
Locate 1 , 1
Lcd "Guten Tag!"

' Hier folgt weiterer Code...


------------- Code Ende -----------

Ich habe dann hinter diesem Kram eine zusätzliche LED in einer Schleife
blinken, die funktioniert. Der Prozessor läuft also...

Gruß
Sebezahn

von sebezahn (Gast)


Lesenswert?

ARGH! Funktioniert, wenn man R/W auf Masse legt... Dennoch danke fürs
mitlesen ;-)

Gruß
Sebezahn

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.