-
Hi,
der Tipp mit dem Leerzeichen zum Überschreiben kam ja schon, so mache ich das eigentlich auch.
Primitiv, aber wirksam... O:)
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
-
Ich habe selbiges Problem mit einer Temperaturanzeige und komme mit den hier vorgestellten Lösungen nicht klar, gibt es noch andere Varianten?
-
Ich habe selbiges Problem mit einer Temperaturanzeige und komme mit den hier vorgestellten Lösungen nicht klar, gibt es noch andere Varianten?
-
Hallo Xam,
es wäre sicher hilfreich, wenn Du Dein Problem etwas präzisieren könntest...
Grüße
Torsten
-
Hat sich erledigt, danke.
