Problem mit 16*2 LCD Display? Schwarze kästen will ich nich

Hallo zusammen,
ich weiss nich, ob das eher in Hardware oder BAscom gehört, ansonsten bitte den thread weiterschieben.

Ich habe ein Problem mit meinen LCD Display. Es zeigt immer nur in der unteren Reihe schwarze kästchen an und nich den AD wert.

Hier is der Code (Bascom)

Code:

---

$regfile "m8def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.1 , Rs = Portd.2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Dim Ad As Word


Start Adc

Do
Ad = Getadc(0)
Waitms 100
Cls

Lcd Ad

Loop

---

In der Simulation hat alles geklappt und die Anschlüsse habe ich auch noch und nöcher kontrolliert, es ist alles richtig. Vielleicht findet ihr ja den Fehler.

Hunni

Hallo,

wo hast Du die RW-Leitung angeschlossen ?
Welches LCD ist es genau, also welchen Controller hat es ?
evtl. mal ein CHIPSET=KS077 anhängen.

Da fehlt locate

stimmt die rw leitung fehlt, is mir noch garnich aufgefallen. muss ich noch mit einfließen lassen.

dat ding hat n hd4770 chip

is der code so besser (muss ich noch testen)

Code:

---


 $regfile = "m8def.dat"
 $crystal = 8000000

 Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.1 , Rs = Portd.2
Config Lcdbus = 4

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Dim Ad As Word


Start Adc

Do
Ad = Getadc(0)
Waitms 100
Cls

Lcd Ad

Loop

---

ich hoffe es funkt jetzt

Da fehlt immer noch das locate

ja is egal es funktioniert so wie ich dat haben wollte.