LCD ???

Gast #133817
Lesenswert?

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
Angehängte Dateien:
Gast #133818
Lesenswert?

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 :-)
Gast #133819
Lesenswert?

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 :-)
Gast #133820
Lesenswert?

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
Gast #133821
Lesenswert?

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
Gast #133822
Lesenswert?

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?

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren