Задание№1-4 — различия между версиями

Материал из roboforum.ru Wiki
Перейти к: навигация, поиск
Строка 41: Строка 41:
 
</source>
 
</source>
 
2. Теперь опишем что нужно делать МиниБоту когда пришла та или иная комманда
 
2. Теперь опишем что нужно делать МиниБоту когда пришла та или иная комманда
<source lang="">
+
<source lang="vb">
 
   Gosub Прием_rc5
 
   Gosub Прием_rc5
 
   If Command = 255 Then
 
   If Command = 255 Then

Версия 15:23, 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> 2. Теперь опишем что нужно делать МиниБоту когда пришла та или иная комманда <source lang="vb">

  Gosub Прием_rc5
  If Command = 255 Then
     Gosub Стоп
  Elseif Command = 32 Then
     Gosub Прямо
     Waitms 100
  Elseif Command = 33 Then
     Gosub Назад
     Waitms 100
  Elseif Command = 17 Then
     Gosub Влево
     Waitms 100
  Elseif Command = 16 Then
     Gosub Вправо
     Waitms 100
  End If
     Command = 255

</source>