на форуме сайта васика встречал код где они одной строчкой подменяли для RC5 другой таймер (в новых мегах, например Мега644, библа RC5 не работала).
исчи.
roboforum.ruТехнический форум по робототехнике. |
|
|
regfile = "m48def.dat"
$crystal = 16000000
$lib "mcsbyte.lbx"
Config Rc5 = Pind.2
Enable Timer0
Config Pind.3 = Output : Led1 Alias Portd.3
Config Pind.4 = Output : Led2 Alias Portd.4
Config Pind.5 = Output : Led3 Alias Portd.5
Config Pind.6 = Output : Led4 Alias Portd.6
Config Pind.7 = Output : Led5 Alias Portd.7
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 = 1 Then
Set Led1
Elseif Command = 2 Then
Set Led2
Elseif Command = 3 Then
Set Led3
Elseif Command = 4 Then
Set Led4
Elseif Command = 5 Then
Set Led5
Elseif Command = 6 Then
Reset Led1
Elseif Command = 7 Then
Reset Led2
Elseif Command = 8 Then
Reset Led3
Elseif Command = 9 Then
Reset Led4
Elseif Command = 10 Then
Reset Led5
End If
Loop
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4