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
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
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.