roboforum.ru

Кирилл писал(а):забей на эту дурацкую идею. купи в магазине нормальный ТСОП с известной частотой и экспериментируй. Когда "подрастешь" сможешь и этот подключать.

Код: Выделить всё • Развернуть

$regfile = "m8def.dat"

Config Rc5 = Pinc.3
Enable Interrupts
Dim Address As Byte , Command As Byte
'----------------------------------------------------------------------------
Config Portc.2 = Output
Config Pinc.5 = Input

Led Alias Portc.2
Button Alias Pinc.5
'----------------------------------------------------------------------------
Do
   Getrc5(address , Command)
   If Address <> 255 And Command <> 255 Then
      Command = Command And &B01111111
      Print Chr(12);
      Print "Address - " ; Address
      Print "Command - " ; Command;
      Gosub Flash
   End If
Loop
End
Flash:
Led = 1
Waitms 100
Led = 0
Return