Etwas sehr umständlich, aber so geht's auch
Code:
$crystal = 8000000
Dim Wert As Integer
Dim Anzeigestring As String * 5
Cls
For Wert = -10 To 10
Anzeigestring = Str(wert)
Anzeigestring = Format(anzeigestring , "000")
If Wert > 0 Then
Anzeigestring = "+" + Anzeigestring
End If
If Wert = 0 Then
Anzeigestring = " " + Anzeigestring
End If
Locate 1 , 10
Lcd Anzeigestring
Waitms 100
Next Wert
End
Hat den Vorteil, daß es nicht flackert und die Ausgabe nicht durch Vorzeichen verschoben wird...
Warscheinlich geht das aber auch viel einfacher
Gruß
Christopher
Lesezeichen