Witam serdecznie
Mam mały problem z kodem poniżej, mianowicie są 3 przyciski i 10 diód.
Naciskam przycisk 1 włączają się kolejno diody od 1- 10 i tak samo gasna.
Naciskam przycisk 2 włączają sie kolejno diody od 10-1 i tak samo gasną.
Przycisk 3 raz naciśnięty włącza wszystkie diody od razu, drugi raz naciśnięty wyłącza wszystkie diody od razu.
Chciałbym zmodyfikować program tak żeby po naciśnięciu przycisku 3 i po zaświeceniu się wszystkich diód program żeby nie reagował na naciskanie przyciski 1 i 2 dopiero po naciśnięciu kolejny raz przycisku 3 i wyłączeniu wszystkich diód.
If Sw1 = 0 Then
Waitms 20
If Sw1 = 0 Then
For X = 7 To 0 Step -1
Portb.x = 1
Waitms 300
Next X
For X = 6 To 5 Step -1
Portd.x = 1
Waitms 300
Next X
For Y = 1 To 60
Waitms 200
Next X
For X = 7 To 0 Step -1
Portb.x = 0
Waitms 300
Next X
For X = 6 To 5 Step -1
Portd.x = 0
Waitms 300
Next X
End If
End If
If Sw2 = 0 Then
Waitms 20
If Sw2 = 0 Then
For X = 5 To 6
Portd.x = 1
Waitms 300
Next X
For X = 0 To 7
Portb.x = 1
Waitms 300
Next X
For Y = 1 To 60
Waitms 200
Next Y
For X = 5 To 6
Portd.x = 0
Waitms 300
Next X
For X = 0 To 7
Portb.x = 0
Waitms 300
Next X
End If
End If
Debounce Sw3 , 0 , Wlacz , Sub
Loop
Wlacz:
Toggle Portb
Toggle Portd.6
Toggle Portd.5
Return
End[/syntax]
próbowałem jeszcze wstawić w miejsce przycisku sw3 coś takiego:
...ale jak naciskam to świeci jak puszcze go gaśnie
Mam mały problem z kodem poniżej, mianowicie są 3 przyciski i 10 diód.
Naciskam przycisk 1 włączają się kolejno diody od 1- 10 i tak samo gasna.
Naciskam przycisk 2 włączają sie kolejno diody od 10-1 i tak samo gasną.
Przycisk 3 raz naciśnięty włącza wszystkie diody od razu, drugi raz naciśnięty wyłącza wszystkie diody od razu.
Chciałbym zmodyfikować program tak żeby po naciśnięciu przycisku 3 i po zaświeceniu się wszystkich diód program żeby nie reagował na naciskanie przyciski 1 i 2 dopiero po naciśnięciu kolejny raz przycisku 3 i wyłączeniu wszystkich diód.
If Sw1 = 0 Then
Waitms 20
If Sw1 = 0 Then
For X = 7 To 0 Step -1
Portb.x = 1
Waitms 300
Next X
For X = 6 To 5 Step -1
Portd.x = 1
Waitms 300
Next X
For Y = 1 To 60
Waitms 200
Next X
For X = 7 To 0 Step -1
Portb.x = 0
Waitms 300
Next X
For X = 6 To 5 Step -1
Portd.x = 0
Waitms 300
Next X
End If
End If
If Sw2 = 0 Then
Waitms 20
If Sw2 = 0 Then
For X = 5 To 6
Portd.x = 1
Waitms 300
Next X
For X = 0 To 7
Portb.x = 1
Waitms 300
Next X
For Y = 1 To 60
Waitms 200
Next Y
For X = 5 To 6
Portd.x = 0
Waitms 300
Next X
For X = 0 To 7
Portb.x = 0
Waitms 300
Next X
End If
End If
Debounce Sw3 , 0 , Wlacz , Sub
Loop
Wlacz:
Toggle Portb
Toggle Portd.6
Toggle Portd.5
Return
End[/syntax]
próbowałem jeszcze wstawić w miejsce przycisku sw3 coś takiego:
Kod: text
...ale jak naciskam to świeci jak puszcze go gaśnie