LCD ansteuern

[Marco78]

HALLO
Sei doch nicht immer so ungeduldig und warte mal die Antworten ab. Und verteil deine Fragen nicht immer auf x Beiträge. Von mir aus in x Foren, aber es ist unnötig hier zu fragen wie man eine Stelle löscht, wenn das Problem in deiner ADC-Abfrage gebraucht wird!

https://www.roboternetz.de/phpBB2/search.php
Diesen Link kannst du auch für fast alle deine Fragen benutzen.

Oder einfach mal selbst etwas überlegen. Du willst an der Stelle 2,4 auf dem LCD was gelöscht haben. Also an der Stelle ein Leerzeichen schreiben.
Locate 2,4
LCD " "

[Xaver]

Ich wollt das mit dem LCD Display auch mal ausprobiern.

Ich habe ein 27x4 Display, also mit zwei Kontrollern und E1 sowie E2

Dann habe ich mir mit etwas mühe die Initialisierung geschrieben und vier Zeichen. freu \  / nun möchte ich diese LCD.lib verwenden (oder ähnliches) um mir das arbeiten etwas zu erleichtern.

hier mein Bisheriger Code . jaja etwas lang, dafür aber übersichtlich

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

Ddrd = &HFF

Rs Alias Portd.0
Rw Alias Portd.1
E1 Alias Portd.2
E2 Alias Portd.3
D4 Alias Portd.4
D5 Alias Portd.5
D6 Alias Portd.6
D7 Alias Portd.7


Dim A As Byte


'--Hauptprogram-----------------


Waitms 150

Rs = 0                                                      'Interface auf 8-Bit setzen
Rw = 0
D7 = 0
D6 = 0
D5 = 1
D4 = 1
E1 = 1
nop
E1 = 0
Waitms 5

Rs = 0                                                      'Interface auf 8-Bit setzen
Rw = 0
D7 = 0
D6 = 0
D5 = 1
D4 = 1
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 0                                                      'Interface auf 8-Bit setzen
Rw = 0
D7 = 0
D6 = 0
D5 = 1
D4 = 1
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 0                                                      'Interface auf 4-Bit setzen
Rw = 0
D7 = 0
D6 = 0
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 0                                                      'Interface auf 2 Zeilen setzen
Rw = 0
D7 = 0
D6 = 0
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 0
Rw = 0
D7 = 1
D6 = 0
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 0                                                      'Display aus
Rw = 0
D7 = 0
D6 = 0
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 0
Rw = 0
D7 = 1
D6 = 0
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0
Wait 2

Rs = 0                                                      'Display löschen
Rw = 0
D7 = 0
D6 = 0
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 0
Rw = 0
D7 = 0
D6 = 0
D5 = 0
D4 = 1
E1 = 1
nop
E1 = 0
Waitms 2

Rs = 0                                                      'Kursor nach rechts wandern
Rw = 0
D7 = 0
D6 = 0
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 0
Rw = 0
D7 = 0
D6 = 0
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0
Waitms 2

Rs = 0                                                      'Display ein
Rw = 0
D7 = 0
D6 = 0
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 0
Rw = 0
D7 = 1
D6 = 1
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 1                                                      'Ein zeichen H in den Speicher Schreiben
Rw = 0
D7 = 0
D6 = 1
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 1
Rw = 0
D7 = 1
D6 = 0
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 1                                                      'Ein zeichen e in den Speicher Schreiben
Rw = 0
D7 = 0
D6 = 1
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 1
Rw = 0
D7 = 0
D6 = 1
D5 = 0
D4 = 1
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 1                                                      'Ein zeichen l in den Speicher Schreiben
Rw = 0
D7 = 0
D6 = 1
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 1
Rw = 0
D7 = 1
D6 = 1
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0
Waitus 40

Rs = 1                                                      'Ein zeichen l in den Speicher Schreiben
Rw = 0
D7 = 0
D6 = 1
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 1
Rw = 0
D7 = 1
D6 = 1
D5 = 0
D4 = 0
E1 = 1
nop
E1 = 0
Waitus 40
Rs = 1                                                      'Ein zeichen o in den Speicher Schreiben
Rw = 0
D7 = 0
D6 = 1
D5 = 1
D4 = 0
E1 = 1
nop
E1 = 0

Rs = 1
Rw = 0
D7 = 1
D6 = 1
D5 = 1
D4 = 1
E1 = 1
nop
E1 = 0
waitus 40

End

dann abe ich folgendes geschrieben, doch ich habe dann immer nur zwei schwarze Balken.

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


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

Cls
Lcd "test"

End

Gruß olaf

[linux_80]

Hallo Xaver,
da hast Du dir ja ein haufen Arbeit gemacht jedes Bit einzeln anzusteuern  

Wenn man die Hilfe vom Bascom anschaut, sieht man das das RW Bit nicht verwendet wird, entweder fest auf GND, oder vorher auf 0 setzen und noch mal den InitLCD aufrufen.

PS:
Das ist alles die letzten Tage in diversen Threads schon mal beantwortet worden.

[Xaver]

jo hab das nun entlich auch mit dem 27x4 Display hinbekommen.

dank dem Besipielcode bei dem RN-Mega 8 board