Problem mit einem LCD

Druckbare Version

01.02.2010, 16:20
Kampi

Problem mit einem LCD

Hallo

Ich habe am Wochenende ein neues LCD gekauft und wollte es heute mal testen. Ich hab das Beispielprogramm vom RN-Wiki genommen und auf meinen Controller umgeschrieben aber das LCD zeigt den Text nicht an.
Meine Frage ist nun ist das Programm falsch oder hab ich bei der Verkabelung was falsch gemacht?

Hier das Programm:

Code:

$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Config Lcdbus = 4 Cls Locate 1 , 1 Lcd "Hallo Welt" End
01.02.2010, 16:41
peterfido

Ohne Infos über das LCD und den Schaltplan fällt eine Antwort nicht leicht...
01.02.2010, 16:46
KingTobi

ISt das ein HD447 kompatibles?
01.02.2010, 16:54
TomEdl

Hallo!

Versuch doch mal diesen Code:

Code:

$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Config Lcdbus = 4 Initlcd waitms 100 Cls Locate 1 , 1 Lcd "Hallo Welt" End

Grüße
Thomas
01.02.2010, 16:54
Kampi

Jap ist es.
Das ist dieses Display
-> http://www.conrad.de/goto.php?artikel=181863

Und Peterfido in erster Linie wollt ich wissen ob der Fehler am Programm liegt. Wenn das Programm soweit stimmt weiß ich das ich auf der Adapterplatine zwischen LCD und Mega32 (weil das LCD hat 12 einen 14 Pin Stecker und der Mega nur 10) ein Fehler ist. 8-[

Und der Code funktioniert auch net.
01.02.2010, 17:13
Jaecko

Naja, ob das Programm stimmt, kann man ohne Displayangabe nicht sagen, da ein Display A durchaus anders angesteuert werden kann als Display B.

Bei dem Conrad-Display ist es so; es ist fast mit den HD44780 kompatibel. Bei der Initialisierung brauchts nur noch ein Kommando mehr.
01.02.2010, 17:22
Kampi

Kann es vielleicht sein das ich eine Lötbrücke auf der Rückseite des LCDs ändern muss da ich es ja im 4-Bit Modus betreibe?
01.02.2010, 19:31
for_ro

Hallo Kampi,

Zitat:

Zitat von Kampi

Kann es vielleicht sein das ich eine Lötbrücke auf der Rückseite des LCDs ändern muss da ich es ja im 4-Bit Modus betreibe?

Ne, das ist wohl zum Umschalten in den SPI Modus.
Hast du den R/W Anschluss auf GND gelegt?
Die Zeile
Config Lcdbus = 4
solltest du entfernen, da das LCD ja im PIN Modus betreibst (jeden Pin hast du einzeln angegeben).

Wenn du mal nach KS0073 suchst, findest du diesen Thread zum Unterschied zum HD44780 Controller:
https://www.roboternetz.de/phpBB2/viewtopic.php?t=9925
Dort ist im hinteren Teil eigentlich alles erklärt.
01.02.2010, 21:05
Kampi

Nein R/W hab ich net auf Ground gelegt. Auch nicht die nicht angeschlossenen Datenpins.

So ich hab mal auf
https://www.roboternetz.de/phpBB2/viewtopic.php?t=10766
bisl gelesen und dementsprechend was zusammengebastelt:

Code:

$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4a Dim Zeichen As Byte Declare Sub Lcdwrite 'Pins des LCD-Modules setzen ggf. an eigene Anschlüsse anpassen Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Initlcd Call Lcdwrite(&B00101100) Waitms 5 Call Lcdwrite(&B00001001) Waitms 5 Call Lcdwrite(&B00101000) Waitms 5 Call Lcdwrite(&B00000110) Waitms 5 Call Lcdwrite(&B00001100) Waitms 5 Cls Locate 1 , 1 Lcd "Hallo Welt" 'Schreibt die Initialisierungs - Bits zum LCD Sub Lcdwrite(byval Zeichen As Byte) ' Höherwertiges Nibble setzen If Zeichen.4 = 1 Then Portc.4 = 1 Else Portc.4 = 0 If Zeichen.5 = 1 Then Portc.5 = 1 Else Portc.5 = 0 If Zeichen.6 = 1 Then Portc.6 = 1 Else Portc.6 = 0 If Zeichen.7 = 1 Then Portc.7 = 1 Else Portc.7 = 0 ' Höherwertiges Nibble übertragen Portc.3 = 1 Waitms 1 Portc.3 = 0 Waitms 1 ' Niederwertiges Nibble setzen If Zeichen.0 = 1 Then Portc.4 = 1 Else Portc.4 = 0 If Zeichen.1 = 1 Then Portc.5 = 1 Else Portc.5 = 0 If Zeichen.2 = 1 Then Portc.6 = 1 Else Portc.6 = 0 If Zeichen.3 = 1 Then Portc.7 = 1 Else Portc.7 = 0 ' Niederwertiges Nibble übertragen Portc.3 = 1 Waitms 1 Portc.3 = 0 Waitms 1 End Sub

Allerdings kommt beim Kompilieren ein Fehler wo drin steht:
Incorrect number of parameters und zwar in dieser Zeile:
Call Lcdwrite(&B00101100)
01.02.2010, 21:55
TomEdl

Hallo!

Versuch einfach mal die nicht angeschlossenen Pins auf GND zu legen und benutze herkömmlich den Initlcd-Befehl. Dann sollte es demenstprechend funktionieren.

Grüße
Thomas
01.02.2010, 21:58
Kampi

Gut werd ich morgen dann mal machen!
01.02.2010, 22:01
Tido

Hast du an Pin 3 vom Display den Schleifer eines Potis angeschlossen?
Sind nach dem Anlegen der Betriebsspannung am Display in Zeile 2 und 4 dunkle Balken sichtbar?
01.02.2010, 22:27
for_ro

Zitat:

Zitat von TomEdl

Versuch einfach mal die nicht angeschlossenen Pins auf GND zu legen und benutze herkömmlich den Initlcd-Befehl. Dann sollte es demenstprechend funktionieren.

Die nicht verwendeten Daten-Pins sollen offen bleiben. Siehe Datenblatt.
Initlcd wird nicht funktionieren, da das Display nicht 100% kompatibel ist. Außerdem ist die Initialisierung neuerdings schon automatisch enthalten.

Zitat:

Zitat von Kampi

Nein R/W hab ich net auf Ground gelegt. Auch nicht die nicht angeschlossenen Datenpins.

R/W muss auf GND, damit BASCOM Befehle und Daten in den Controller schreiben kann.

Deine Declare Zeile muss so aussehen:
Declare Sub Lcdwrite(byval Zeichen As Byte)
01.02.2010, 22:43
Kampi

Zitat:

Zitat von Tido

Hast du an Pin 3 vom Display den Schleifer eines Potis angeschlossen?
Sind nach dem Anlegen der Betriebsspannung am Display in Zeile 2 und 4 dunkle Balken sichtbar?

So ich hab jetzt mal R/W nach Groung gelegt und diesen Code benutzt:

Ja hab ich so angeschlossen und es sind keine dunklen Balken sichtbar. Das Programm funktioniert nun soweit und das mit dem R/W Ground mach ich morgen. Melde mich dann morgen mittag nochmal.

Code:

$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4a Dim Zeichen As Byte Declare Sub Lcdwrite 'Pins des LCD-Modules setzen ggf. an eigene Anschlüsse anpassen Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Initlcd Call Lcdwrite(&B00101100) Waitms 5 Call Lcdwrite(&B00001001) Waitms 5 Call Lcdwrite(&B00101000) Waitms 5 Call Lcdwrite(&B00000110) Waitms 5 Call Lcdwrite(&B00001100) Waitms 5 Cls Locate 1 , 1 Lcd "Hallo Welt" 'Schreibt die Initialisierungs - Bits zum LCD Sub Lcdwrite(byval Zeichen As Byte) ' Höherwertiges Nibble setzen If Zeichen.4 = 1 Then Portc.4 = 1 Else Portc.4 = 0 If Zeichen.5 = 1 Then Portc.5 = 1 Else Portc.5 = 0 If Zeichen.6 = 1 Then Portc.6 = 1 Else Portc.6 = 0 If Zeichen.7 = 1 Then Portc.7 = 1 Else Portc.7 = 0 ' Höherwertiges Nibble übertragen Portc.3 = 1 Waitms 1 Portc.3 = 0 Waitms 1 ' Niederwertiges Nibble setzen If Zeichen.0 = 1 Then Portc.4 = 1 Else Portc.4 = 0 If Zeichen.1 = 1 Then Portc.5 = 1 Else Portc.5 = 0 If Zeichen.2 = 1 Then Portc.6 = 1 Else Portc.6 = 0 If Zeichen.3 = 1 Then Portc.7 = 1 Else Portc.7 = 0 ' Niederwertiges Nibble übertragen Portc.3 = 1 Waitms 1 Portc.3 = 0 Waitms 1 End Sub

Nun wird mir auf dem Display ein V mit Unterstrich und ein ê angezeigt. Ist das richtig so oder deutet das auf einen Fehler hin? *kopf kratz*
02.02.2010, 12:31
for_ro

Hallo Kampi,
ich würde jetzt zunächst mal wieder deinen ursprünglichen Code benutzen. Auch der sollte eine gewisse Ausgabe ermöglichen. Dann im nächsten Schritt diese speziellen Sachen integrieren, um die Inkompatibilität zu beheben.

Code:

$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Cls Locate 1 , 1 Lcd "Hallo Welt" End
02.02.2010, 12:45
Kampi

Gut werd ich dann mal nach der Arbeit aufspielen und mich dann nochmal melden.

Boah es funktioniert endlich *Luftsprünge macht*. Es lag anscheinend echt nur an der fehlenden R/W Verbindung.

Danke euch allen für die Hilfe =D>
02.02.2010, 15:39
TomEdl

Zitat:

Zitat von for_ro

Außerdem ist die Initialisierung neuerdings schon automatisch enthalten.

Also bei mir geht mit fehlendem Initlcd gar nix.