Задание№1-4

-=Собираем все части кода в кучу=-

Собственно теперь отсалось только собрать всё в кучу. И оформить рюшечки чтоб эстеты не бурчали... :-)
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>