m@rkus33
11.01.2006, 16:51
Hallo zusammen,
habe folgendes Problem. Ich gebe mit Tasten (+) (-) einen Wert über eine If - Then und Incr bzw. Decr ein.
code hier:
Cls
Lcd " *** SETUP- MEN" ; Chr(2) ; " ***"
Readeeprom Tv , 1 'bisheriges Tankvolumen aus EEprom Empfängermodul holen
Lowerline
Lcd "Tankvol.alt:" ; Tv ; "ml"
Thirdline
Lcd "neues Tankvol.:"
Do
If Editbutbyte = 0 And Plusbutbyte = 0 Then
Incr Tv
Gosub Buttons
Fourthline
Lcd Tv ; "ml"
End If
If Editbutbyte = 0 And Minusbutbyte = 0 Then
Decr Tv
Gosub Buttons
Fourthline
Lcd Tv ; "ml"
End If
Gosub Buttons
Loop Until Setbutbyte = 0
'noch über Hyperterminal am PC - Senden: $4000CR für 4000ml
Writeeeprom Tv , 1
Nun sind aber die Werte die ich eingeben muss alle über 1000. Wenn ich mit dem Code und Incr oder Decr die Werte eingebe, fallen mir die Finger ab.
Gibt es eine Möglichkeit das ganze auch in 10er Schritten raufzählen zu lassen?
Danke für Eure Hilfe.
Gruß
Markus
habe folgendes Problem. Ich gebe mit Tasten (+) (-) einen Wert über eine If - Then und Incr bzw. Decr ein.
code hier:
Cls
Lcd " *** SETUP- MEN" ; Chr(2) ; " ***"
Readeeprom Tv , 1 'bisheriges Tankvolumen aus EEprom Empfängermodul holen
Lowerline
Lcd "Tankvol.alt:" ; Tv ; "ml"
Thirdline
Lcd "neues Tankvol.:"
Do
If Editbutbyte = 0 And Plusbutbyte = 0 Then
Incr Tv
Gosub Buttons
Fourthline
Lcd Tv ; "ml"
End If
If Editbutbyte = 0 And Minusbutbyte = 0 Then
Decr Tv
Gosub Buttons
Fourthline
Lcd Tv ; "ml"
End If
Gosub Buttons
Loop Until Setbutbyte = 0
'noch über Hyperterminal am PC - Senden: $4000CR für 4000ml
Writeeeprom Tv , 1
Nun sind aber die Werte die ich eingeben muss alle über 1000. Wenn ich mit dem Code und Incr oder Decr die Werte eingebe, fallen mir die Finger ab.
Gibt es eine Möglichkeit das ganze auch in 10er Schritten raufzählen zu lassen?
Danke für Eure Hilfe.
Gruß
Markus