roboforum.ru

'(
' RC5-коды пульта, расположены построчно
')

Const Ir_adress = 0                                         ' адрес команд

Const Btn_mute = 13
Const Btn_power = 12

' цифровая секция
Const Btn_1 = 1
Const Btn_2 = 2
Const Btn_3 = 3
Const Btn_4 = 4

Const Btn_5 = 5
Const Btn_6 = 6
Const Btn_7 = 7
Const Btn_8 = 8

Const Btn_9 = 9
Const Btn_0 = 0
Const Btn_digits = 10
Const Btn_pp = 14

' секция курсора
Const Btn_menu = 48
Const Btn_up = 32
Const Btn_p_ar_p = 34

Const Btn_left = 17
Const Btn_ok = 59
Const Btn_right = 16

Const Btn_arr_left = 21
Const Btn_down = 33
Const Btn_arr_right = 22

' дополнительная секция
Const Btn_tv = 63
Const Btn_av = 56
Const Btn_sleep = 38
Const Btn_time = 42

Const Btn_rings = 36
Const Btn_first = 35
Const Btn_forw = 30
Const Brn_bw = 46

Const Btn_s = 55
Const Btn_p = 54
Const Btn_f = 50
Const Btn_i = 52

Const Btn_question = 44
Const Btn_stretch = 43
Const Btn_squeeze = 41
Const Btn_normal = 60

$regfile = "m16def.dat"
$crystal = 16000000
$lib "mcsbyte.lbx"
Config Rc5 = Pind.2
Enable Timer0

Config Pina.0 = Output : Fr Alias Porta.0
Config Pina.1 = Output : Br Alias Porta.1
Config Pina.2 = Output : Bl Alias Porta.2
Config Pina.3 = Output : Fl Alias Porta.3
Config Pinb.0 = Output : Led1 Alias Portb.0
Config Pinb.1 = Output : Led2 Alias Portb.1
Config Pinb.2 = Output : Led3 Alias Portb.2

Dim Address As Byte , Command As Byte

Enable Interrupts

Do

Getrc5(address , Command)
      If Address <> 255 And Command <> 255 Then
       Command = Command And &B01111111
      End If
      If Command = 32 Then : Set Led1
       Gosub Вперёд
       Waitms 100
      Elseif Command = 17 Then : Set Led2
       Gosub Влево
       Waitms 100
      Elseif Command = 16 Then : Set Led3
       Gosub Вправо
       Waitms 100
      Elseif Command = 33 Then : Reset Led1
       Gosub Назад
       Waitms 100
      Elseif Command = 1 Then : Reset Led2
       Gosub Стоп
       Waitms 100
      End If

Loop