Nee...am Cls liegts leider nicht. Das hatte ich auch zuerst vermutet und daher hab ich es dann auch aus der Schleife rausgenommen und nur am Programmanfang einmal ausgeführt und testweise später nochmal ganz rausgenommen.
Hier noch mal mein Code:
Code:
$regfile = "m16def.dat"
$crystal = 16000000
'**** Konstanten ****
Const Fw_rev = "0.9"
'**** LCD Initialisieren ****
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.5 , Db6 = Porta.7 , Db7 = Porta.2 , E = Porta.0 , Rs = Porta.1
'**** Variablendeklaration ****
'**** Ports etc. Parametrieren ****
Config Portd.0 = Input
Config Portd.1 = Input
Config Portd.2 = Input
Config Portd.3 = Input
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Config Pind.3 = Input
'**** Sprungverteiler
Cls
Do
Cursor Off
Upperline
Lcd " *** Test1 *** "
Lowerline
Lcd "Lrn Prg Tst Fw?" ' das soll quasi in der unteren Zeite angezeigt werden um darunterliegende Taster als Softkeys zu verwenden
Debounce Pind.0 , 0 , Pr , Sub
Pr:
Lowerline
Lcd "test1"
Return
Loop
End
Lesezeichen