Etwas sehr umständlich, aber so geht's auch ![Zwinkern](https://www.roboternetz.de/phpBB2/images/smiles/icon_wink.gif)
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 ![Zwinkern](https://www.roboternetz.de/phpBB2/images/smiles/icon_wink.gif)
Gruß
Christopher
Lesezeichen