PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Problem mit 16*2 LCD Display? Schwarze kästen will ich nich



hunni
13.09.2008, 11:56
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)


$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

linux_80
13.09.2008, 12:31
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.

pyr0skull
13.09.2008, 13:16
Da fehlt locate

hunni
13.09.2008, 20:42
stimmt die rw leitung fehlt, is mir noch garnich aufgefallen. muss ich noch mit einfließen lassen.

hunni
13.09.2008, 20:47
dat ding hat n hd4770 chip

hunni
13.09.2008, 20:49
is der code so besser (muss ich noch testen)




$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

pyr0skull
14.09.2008, 12:19
Da fehlt immer noch das locate

hunni
14.09.2008, 17:25
ja is egal es funktioniert so wie ich dat haben wollte.