Задание№1-4 — различия между версиями
EdGull (обсуждение | вклад) |
EdGull (обсуждение | вклад) |
||
| Строка 3: | Строка 3: | ||
Собственно теперь отсалось только собрать всё в кучу. И оформить рюшечки чтоб эстеты не бурчали... :-) <br /> | Собственно теперь отсалось только собрать всё в кучу. И оформить рюшечки чтоб эстеты не бурчали... :-) <br /> | ||
| − | 1. Оформляем команды МиниБоту отдельными процедурами | + | 1. Оформляем команды МиниБоту отдельными красявашными процедурами |
<source lang="vb"> | <source lang="vb"> | ||
| + | Прием_rc5: | ||
| + | Getrc5(address , Command) | ||
| + | If Address <> 255 And Command <> 255 Then | ||
| + | Command = Command And &B01111111 | ||
| + | 'Print Chr(12); | ||
| + | 'Print "Address - " ; Address | ||
| + | 'Print "Command - " ; Command; | ||
| + | End If | ||
| + | Return | ||
| + | |||
Влево: | Влево: | ||
| + | Gosub Стоп : Waitms 10 | ||
Drl = 1 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed: | Drl = 1 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed: | ||
Return | Return | ||
Вправо: | Вправо: | ||
| + | Gosub Стоп : Waitms 10 | ||
Drl = 0 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed: | Drl = 0 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed: | ||
Return | Return | ||
Прямо: | Прямо: | ||
| + | Gosub Стоп : Waitms 10 | ||
Drl = 0 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed: | Drl = 0 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed: | ||
Return | Return | ||
Назад: | Назад: | ||
| + | Gosub Стоп : Waitms 10 | ||
Drl = 1 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed: | Drl = 1 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed: | ||
Return | Return | ||
Версия 15:08, 6 апреля 2008
-=Собираем все части кода в кучу=-
Собственно теперь отсалось только собрать всё в кучу. И оформить рюшечки чтоб эстеты не бурчали... :-)
1. Оформляем команды МиниБоту отдельными красявашными процедурами
<source lang="vb">
Прием_rc5:
Getrc5(address , Command)
If Address <> 255 And Command <> 255 Then
Command = Command And &B01111111
'Print Chr(12);
'Print "Address - " ; Address
'Print "Command - " ; Command;
End If
Return
Влево:
Gosub Стоп : Waitms 10 Drl = 1 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed:
Return
Вправо:
Gosub Стоп : Waitms 10 Drl = 0 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed:
Return
Прямо:
Gosub Стоп : Waitms 10 Drl = 0 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed:
Return
Назад:
Gosub Стоп : Waitms 10 Drl = 1 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed:
Return
Стоп:
Drl = 0 : Drr = 0 : Pwm1b = 0 : Pwm1a = 0:
Return </source>
