LCD in Bascom

[Manfred S. (Firma: Manfred) (xfred343)]

Hi,

hab ein 2x16 LCD Display,

jetzt würde ich gerne bei jeder Ausgabe zeilenweise shiften.
Das heißt - das was in der 2. Zeile gestanden ist, soll in der 1. Zeile 
stehen und der neue Text kommt in die 2. Zeile.

Die Bascom Shift-Befehle rotieren nur nach links oder rechts oder brauch 
ich hier einen Zwischenspeicher (string*16) für eine Zeile?

[Weingut P. (weinbauer)]

"shift" ist nur für Bits geeignet, nicht zum LCD bearbeiten
Locate ist der Befehl und n Zwischenspeicher ...

[Manfred S. (Firma: Manfred) (xfred343)]

Thanks,

meinte natürlich ShiftLCD - der verschiebt beide Zeilen nur nach links 
oder rechts

[Chris S. (chrischanx3)]

Hallo.
ShiftLCD ist nur dazu da um den gesamten Inhalt des Displays zu 
verschieben. Mit dieser Funktion ist es nicht möglich nur eine zeile 
oder einzelne Abschnitte zu verschieben.
Also wenn du da etwas 'shiften' möchtest, dann musst du dir eine eigen 
Konstruktion bauen.
Das mit dem String klingt gut. Ich brauche selbst soetwas, aber auf die 
Idee bin ich noch nicht gekommen
LG

[Korax K. (korax)]

Hallo,

der Text der 2. Reihe steht doch sicher in einer Variablen. Gib diesen 
Text doch in die erste Zeile (überschreibt die alte Anzeige). Danach den 
neuen Text in Zeile zwei.

[Manfred S. (Firma: Manfred) (xfred343)]

Hi, so könnte die Lösung aussehen

Dim Lcdline1 As String * 16
Declare Sub Slcdline2(byval Lcdline2 As String )
...
CLS
LCD "Willkommen"
wait 1
call slcdline2("Die Infos")
wait 1
call slcdline2("werden nach")
wait 1
call slcdline2("oben gerollt")
wait 1
call slcdline2("und laufend")
wait 1
call slcdline2("erweitert")
wait 1

...

'**************************** Rollierende LCD
Sub Slcdline2(byval Lcdline2 As String )
Cls
if lcdline1<>"" then
   cls
   Lcd Lcdline1
endif
Lcdline1 = Lcdline2
Lowerline
Lcd Lcdline2
End Sub