LCD ???

[Marxreiter (Gast)]

Hallo,
ich hab mein altes 16*2 Display gegen ein neues 20*4 getauscht, aber
als ich es in betrieb nehmen wollte, sah ich nur, das die 1. und die 3.
Zeile schwarz sind, und sonst nichts. Hat einer von euch Ahnung, warum
das nicht funzt. Hab das datenblatt im Anhang

Danke xeus

[Alex (Gast)]

Tja, die übliche Antwort wäre, dass die Glaskugel gerade in Reperatur
ist ...

Programmiersprache?
Wie sehen deine Routinen aus?

Im Zweifel ist deine Initialisierung schlicht falsch. Nimm das
Datenblatt und ändere sie ab oder benutze die Forensuche.
Als Datenblatt wird sich das des Display-Controllers besser eignen als
das von dir hier angehangene.

Frohes Fest :-)

[martin m. (Gast)]

hoi,

1. und 3. zeile ist wegen weil ein 4zeiliges in jener reihenfolge
angesteuert wird, das is gut so. je nach system musst du halt
softwaremässig was ändern.(zeilencodes im datenblatt)
schwarz klingt sehr dunkel, kann es eventuell einfach mit dem
kontrast zusammenhängen ? wenn nämlich was put wär, wäre ja alles
einfärbig gleichput.
kurbel mal am pot und schildere...

gruß dir, &
ein schönes fest für alle die sich ein solches wünschen :-)

[Marxreiter (Gast)]

ich hab garkein Poti dran. das alte ging auch ohne.


  $regfile = "m8def.dat"
$crystal = 5000000
$crystal = 10000000
$baud = 9600

Dim I As Byte
Config Lcdpin = Pin , Db4 = Portb.7 , Db5 = Portd.5 , Db6 = Portd.6 ,
Db7 = Portd.7 , E = Portb.6 , Rs = Portd.4       ' Natürlich so wie es
wirklich angeschlossen ist (4-Bit-Modus)


                   Dim A As Byte
Config Lcd = 20 * 4                                         'configure
lcd screen
'other options are 16  4 and 20  4, 20 * 2 , 16 * 1a
'When you dont include this option 16 * 2 is assumed
'16 * 1a is intended for 16 character displays with split addresses
over 2 lines

'$LCD = address will turn LCD into 8-bit databus mode
'       use this with uP with external RAM and/or ROM
'       because it aint need the port pins !

Config Pinb.1 = Input
Dim Zähler As Integer
Zähler = 1
Do
    If Pinb.1 = 1 Then
    Zähler = Zähler + 1

 End If

Print Zähler

                                                         'clear the
LCD display
Lcd Zähler                                                  'display
this at the top line

Loop                                                        'turn
display on
'-----------------NEW support for 4-line LCD------

End

[martin m. (Gast)]

dann mach schnell eins dran, und dein anzeigegerät wird im schönsten
glanz erstrahlen :-)
ich mag heute nicht codelesen, aber kurz:
cgram   000-127
1.zeile 128-147
2.zeile 192-211
3.zeile 148-167
4.zeile 212-231

[Marxreiter (Gast)]

ich versteh nur bahnhof.

Aber wie kann es sein, dass nur die erste und die zweite schwarz
leuchten.würden nicht alle schwarz sein, wenns am kontrasst liegen
würde.

was anderes, kann es sein, das der kontroller ks00??? meine ansteuerung
nicht unterstützt?

[Marxreiter (Gast)]

Rückzug!!!
Aufeinmal funzt es

nochmal vielen dank