Hi,
der Tipp mit dem Leerzeichen zum Überschreiben kam ja schon, so mache ich das eigentlich auch.
Primitiv, aber wirksam... 
Um das Springen beim Zehnerdurchgang zu vermeiden, könnte man auch die Locate-Koordinate für die Ausgabe ensprechend verschieben, z. B.:
Code:
$crystal=8000000
$baud=9600
dim locx as byte
dim zahl as integer
dim zahlstring as string * 5
do
incr zahl
If Zahl>15000 then Zahl=0
zahlstring=Str(zahl) 'Variable "Zahl" in einen String verwandeln
locx=Len(Zahlstring) 'Laenge des Strings ermitteln
locx=locx-1 'Laenge um 1 reduzieren -> 4 Stellen Korrektur bei 5-stelliger Zahl
locx=10-locx ' Am 10. Zeichen steht der Einer...
Locate 1,6 'Alte Zahl überschreiben...
Lcd " " '...mit 5 Leerzeichen
Locate 1, locx
lcd Zahl
waitms 10
loop
Ich hab das jetzt nur so runtergetippt und nicht getestet, etwaige Syntaxfehler bitte ich zu entschuldigen.
Viele Grüße
Torsten
Zitieren
Berechtigungen
Lesezeichen