Bascom Zähler

[ILM (Gast)]

Hallo Forum,
Ich steige grade in Bascom ein und habe jetzt ein kleines problem und 
zwar habe ich einen Zähler programmiert der vier Leds nacheinander ein 
und ausschaltet von links nach rechts und umgekehrt. Nun wenn ich die 
Richtung wechsel muss ich den Taster zweimal drücken bevor er die 
richtung wechselt obwohl er den Tastendruck erkennt hier mal den code:

Dim Status As Byte
Dim Tasterzustand1 As Byte
Dim Tasterzustand2 As Byte


Do

If Taster1 = 0 And Tasterzustand1 = 0 Then
Tasterzustand1 = 1

End If
If Taster1 = 1 And Tasterzustand1 = 1 Then
Tasterzustand1 = 0
   If Status = 0 Then
      Led1 = 1
      Led2 = 0
      Led3 = 0
      Led4 = 0
      Status = 1
   Elseif Status = 1 Then
      Led1 = 0
      Led2 = 1
      Led3 = 0
      Led4 = 0
      Status = 2
   Elseif Status = 2 Then
      Led1 = 0
      Led2 = 0
      Led3 = 1
      Led4 = 0
      Status = 3
   Else
      Led1 = 0
      Led2 = 0
      Led3 = 0
      Led4 = 1
      Status = 0
   End If
End If

If Taster2 = 0 And Tasterzustand2 = 0 Then
   Tasterzustand2 = 1
End If

If Taster2 = 1 And Tasterzustand2 = 1 Then
   Tasterzustand2 = 0
   If Status = 0 Then
      Led1 = 0
      Led2 = 0
      Led3 = 0
      Led4 = 1
      Status = 3
   Elseif Status = 1 Then
      Led1 = 1
      Led2 = 0
      Led3 = 0
      Led4 = 0
      Status = 0
   Elseif Status = 2 Then
      Led1 = 0
      Led2 = 1
      Led3 = 0
      Led4 = 0
      Status = 1
   Else
      Led1 = 0
      Led2 = 0
      Led3 = 1
      Led4 = 0
      Status = 2
   End If
End If
Loop

kann mir jemand bei meinen problem helfen?
Mfg. ILM

[Karl H. (kbuchegg)]

ILM schrieb:

> kann mir jemand bei meinen problem helfen?

Schau dir Subroutinen und den DEBOUNCE Befehl an.
Zusätzlich zum STatus führst du noch eine weitere Variable ein, die eine 
Aussage darüber erlaubt, ob dein 'Lauflicht' links herum oder rechts 
herum laufen soll. Die Umschaltung dieser Variablen erfolgt dann in der 
Subroutine, die von DEBOUNCE angesprungen wird, wenn ein Tastendruck 
erkannt wird. Abhängig von dieser Variablen zählst du dann in der 
Hauptschleife deine Statusvariable um 1 hoch oder verringerst sie um 1. 
Eine der beiden if then else if Ketten brauchst du dann nicht mehr.