so, bin wieder einigermassen aus dem Urlaub da.
habe mich mal wieder meinem "Problem" gewidmet - PickNick hat mir sehr weitergeholfen, mache aber irgendwo noch einen Denkfehler...irgendwie funktionieren meine Sprünge nicht - jemand eine idee ?
...gewollt ist, dass bei Eingabe im Terminal "z1Text der oberen Zeile" halt der Text in die richtige Zeile des Displays geschrieben wird.
Code:
$regfile = "m8def.dat" 'Controller definieren'
$crystal = 3686400 'Taktfrequenz definieren'
$baud = 19200 'Baudrate definieren
Enable Interrupts
'LCD-Anschlüsse definieren, Ansteuerungsmodus 4 Bit / Pin '
Config Lcdpin = Pin , E = Portb.5 , Rs = Portb.4 , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0
Config Lcd = 24 * 2
Initlcd
Cursor Off
Cls
Dim I As String * 24
Dim T As String * 22
Dim B As String * 2
Do
Input , I 'max 24 zeichen einlesen
B = Left(i , 2) 'ersten beiden zeichen des String in Variable B schreiben
T = Mid(i , 3 , 22) 'ab drittem zeichen alles in Variable T schreiben
If B = "Z2" Then Goto Zeile1 'wenn ersten beiden zeichen = z1 oder z2, dann springe
If B = "Z1" Then Goto Zeile2
Print B 'testweise ausgabe der ersten beiden zeichen
Print T 'testweise ausgabe der folgenden zeichen
Loop
Zeile1:
Upperline
Lcd " " 'beschreibe obere Zeile mit Leerzeichen zum Löschen
Lcd T 'gebe alles ab drittem zeichen aus
Zeile2:
Lowerline
lcd " "
Lcd T
End
Lesezeichen