Frage zu Lcd Ausgaben

**chr-mt** · 20.02.2008, 21:59

Ich habe jetzt erst bemerkt, daß ich mich im Bascomforum befinde

Ich habe grade mal ein wenig rumprobiert, den Cursor mit dem Locate und Shiftcursor Befehl schnell hin und her zu schieben, bin aber zu keinem vernünftigen Ergebniss gekommen.
Es flackert entweder furchtbar, oder ist kaum zu sehen.

Die 8 Speicher neu belegen geht auch ohne Neuinitialisierung, wie du schon geschrieben hattest.
Allerdings sind eben nur 8 verschiedene Zeichen gleichzeitig darstellbar.
Das dürfte aber langen, wenn man jeden, im Menü vorkommenden, Buchstaben als inverse Version vorbereitet und dann bei Bedarf nachlädt.
So könnte man 8 Zeichen prima zwischen Invers und Normal umschalten.
EDIT:
Geht leider doch nicht, da der Zwischenraum zwischen den Zeichen hell ist.
Wenn ich jetzt Buchstaben Invers darstelle, der am Rand sitzt, fehlt dann die seitliche Begrenzung.
Man kann aber jedem Zeichen einen Unterstrich verpassen.

Gruß
Christopher

**chr-mt** · 20.02.2008, 22:43

Hier mal mit blinkendem Cursor unter 2 Zeichen:

Code:

$regfile = "m16def.dat"
$crystal = 16000000


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

Deflcdchar 0 , 15 , 16 , 16 , 14 , 1 , 1 , 30 , 31          '"S" mit Unterstrich
Deflcdchar 1 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 31              '"T" mit Unterstrich

Dim Wartezeit As Integer
Wartezeit = 400

  Cls
  Cursor Off

  Lcd "TEST!"



  Do
   Locate 1 , 3
   Lcd Chr(0)
   Locate 1 , 4
   Lcd Chr(1)
   Waitms Wartezeit
   Locate 1 , 3
   Lcd "S"
   Locate 1 , 4
   Lcd "T"
   Waitms Wartezeit
  Loop
End