Problem mit 2x16 LCD - 1. Zeile nur schwarzer Balken

Programm und Schaltbild des Aufbaus wären hilfreich.

Schaltung befindet sich im Anhang.

Hupps und hier der Code (von der Elektronikerseite):
$regfile "m8def.dat"
$crystal = 1000000

Dim Dat As Byte
Dim Cnt As Byte
Dim Txt As String * 16
Dim Strarr(16) As Byte At Txt Overlay

Config Portd = Output
Config Portb.6 = Output
Config Portb.7 = Output

Lcd_data Alias Portd
Lcd_rs Alias Portb.6
Lcd_en Alias Portb.7

Lcd_en = 0 : Waitms 50




' ### Hauptprogramm


Dat = 56 : Gosub Write_ctrl : Dat = 12 : Gosub Write_ctrl
Dat = 1 : Gosub Write_ctrl : Dat = 2 : Gosub Write_ctrl

Txt = "Es funktioniert!" : Gosub Write_string

Stop




' ### Hilfsroutinen zur Ansteuerung des LCD-Moduls


Write_ctrl:
  Lcd_rs = 0 : Lcd_data = Dat : Lcd_en = 1 : Lcd_en = 0 : Waitms 2
Return

Write_data:
  Lcd_rs = 1 : Lcd_data = Dat : Lcd_en = 1 : Lcd_en = 0 : Waitus 40
Return

Write_string:
  For Cnt = 1 To Len(txt)
    Dat = Strarr(cnt) : Gosub Write_data
  Next
Return

Deine Initialisierung ist nicht erfolgreich.

Meiner Meinung nach fehlt hinter Dat=56; gosub write_Ctrl; ein wait 
10ms,
denn hier steht drin daß danach MINDESTENS 4.1msec zu warten ist
http://www.apollodisplays.com/pdf/dmcman.pdf
und dein Programm wartet nur 2 (wobei nicht jedes Display gleich schnell 
ist, es gibt auch welche die langsamer sind als das "Original", daher 
10msec)

Unglaublich was es für Schrottseiten im Web gibt.

David Polch schrieb:
> Nachdem ich die Spannungsversorgung einschalte, erscheint bei mir auf
> dem Display nur ein schwarzer Balken in der kompletten ersten Zeile (und
> das, obwohl der Atmega8 gelöscht wurde). Nach dem Übertragen des
> Testprogramms wo "Es funktioniert" angezeigt werden soll, bleibt der
> Strich immer noch da.

Das ist mein erstes Problem.

Danach kann ich erst probieren ob was auf dem Display erscheint.
Muss das Display eigentlich nichts anzeigen wenn man Spannung drauf 
gibt?

Dat = 56 : Gosub Write_ctrl : Dat = 12 : Gosub Write_ctrl
Dat = 1 : Gosub Write_ctrl : Dat = 2 : Gosub Write_ctrl

letzte Init Zeile im Datenblatt sagt 6

Ralle

Ich bekomme diesen schwarzen Balken nicht weg...
warum leuchtet der wenn ich den Strom einschalte? Ist das normal?

Ralle schrieb:
> Dat = 56 : Gosub Write_ctrl : Dat = 12 : Gosub Write_ctrl
> Dat = 1 : Gosub Write_ctrl : Dat = 2 : Gosub Write_ctrl
>
> letzte Init Zeile im Datenblatt sagt 6

wie jetzt? Kannst du mir das vielleicht nochmal genauer erklären? ;-)

Kontrast zu hoch eingestellt deshalb ist die Zeile Schwarz. Weiter 
runterdrehen bis leicht grau. Die Zweite Zeile Leuchtet nicht weil Sie 
standartmäßig deaktiviert ist und erst in der Initialisierung aktiviert 
werden muß.

Datenblatt lesen. Fertiger Code hat zuviele Fehler da ist es einfacher 
neu zu schreiben.

Datenblatt Seite 9 ist die Init für 8 bit beschrieben

und die letzte Zeile ist "Entry mode set" Bit 2 gesetzt und Bit 1 für 
Increment

Ralle

Hier nochmal ein Foto von meinem Aufbau und der Schwarze Balken.
Ist die Verdrahtung so richtig?

MFG
David Polch

Uwe schrieb:
> Kontrast zu hoch eingestellt deshalb ist die Zeile Schwarz. Weiter
> runterdrehen bis leicht grau. Die Zweite Zeile Leuchtet nicht weil Sie
> standartmäßig deaktiviert ist und erst in der Initialisierung aktiviert
> werden muß.

Hilft nix. Der schwarze Balken lässt sich damit nur heller dunkler 
machen aber ich kann keine Buchstaben auf dem Display lesen.

Uwe schrieb:
> Datenblatt lesen. Fertiger Code hat zuviele Fehler da ist es einfacher
> neu zu schreiben.

Ich bin grade mal dabei meine ersten Versuche mit LCD Displays 
nachzubauen. Einen Code für LCD Displays kann ich noch nicht 
programmieren. ;-)