![Clapping :Bravo:](http://roboforum.ru/images/smilies/clapping.gif)
![]() |
roboforum.ruТехнический форум по робототехнике. |
|
Vooon писал(а):Потому что разбирать что ты там понаписал в таком случае - дополнительная трата времени. Я такие сообщения в лучшем случае игнорирую.
Do
Debounce Pind.2 , 0 , Pwmon , Sub
Debounce Pind.2 , 1 , Pwmoff , Sub
Loop
4:
Do
Debounce Pind.2 , 0 , 2 , Sub
Loop
2:
While Pind.2 = 0
Incra:
Incr A : Waitms 250
If A = 10 Then : Rele = 1 : Wait 1 : Rele = 0 : Incr A : Waitms 250 : End If
If A = 15 Then : Rele = 1 : Wait 1 : Rele = 0 : Incr A : Waitms 250 : End If
If A = 20 Then : Rele = 1 : Wait 1 : Rele = 0 : Incr A : Waitms 250 : End If
If A = 25 Then : Rele = 1 : Wait 1 : Rele = 0 : : A = 0 : Goto Incra : End If
Wend
If On0 = 0 Then : Waitms 150
If On0 = 1 Then : goto 4 : End If : End If
Do
If On0 = 0 Then : Waitms 150 : Debounce Pind.2 , 1 , Pwmoff , Sub
If On0 = 1 Then : Goto 4 : End If : End If
Debounce Pind.2 , 0 , Pwmon , Sub
Debounce Pind.2 , 1 , Pwmoff , Sub
Loop
Вернуться в Новичкам или основы основ роботостроения.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9