roboforum.ru

$prog &HFF , &HE4 , &HD9 , &H00       'указываем какие фусибиты надо прошить
$regfile = "m32def.dat"       ' файл спецификации Меги32
$crystal = 8000000       ' указываем на какой частоте будем работать
$baud = 2400
 
'----------------------------------------------------------------------------
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Pinc.2 = Output : Drl Alias Portc.2       'ногу сконфигурировали как выход и обозвали Drl
Config Pinc.3 = Output : Drr Alias Portc.3       'ногу сконфигурировали как выход и обозвали Drr
Config Pind.4 = Output       'ногу ШИМа левого движка сконфигурировали как выход
Config Pind.5 = Output       'ногу ШИМа правого движка  сконфигурировали как выход
'----------------------------------------------------------------------------
 
Dim Speed As Byte
Speed = 70
 
Config Rc5 = Pind.2
Enable Interrupts
Dim Address As Byte , Command As Byte
 
Print "Start MiniBot"
 
Do
   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
Loop

Do   
  Getrc5(address , Command)  
   If Address <> 255 And Command <> 255 Then      
   здесь нужно вставить свой код по нажатию клавиши для управления светодиодом

  End If
Loop

$regfile = "m32def.dat"                                     ' файл спецификации Меги32
$crystal = 8000000       'указываем на какой частоте будем работать
$lib "mcsbyteint.lbx"

Config Pinc.7 = Output

Config Rc5 = Pind.3
Enable Interrupts
Dim Address As Byte , Command As Byte

Do
Getrc5(address , Command)
   If Address <> 255 And Command <> 255 Then
   Command = Command And &B01111111
   End If

If Command = 12 Then
         Set Portc.7                                        'Включить светодиод 
         End If
Loop