Witam.
Może trochę lamerskie pytanie zadam ale nie mogę dojść co jest nie tak.
W pomocy wyczytałem iż od wersji 1.11.6.9. zostały wprowadzone Zmiany czyli
Funkcja GETRC5() odbiera teraz rozszerzone kody RC5.
Moje pytanie:
Stary odbierał do 64 komend wiec czemu odbiera mi nadal tyle skoro ma być więcej?
mam bascoma 1.11.9.8
Może trochę lamerskie pytanie zadam ale nie mogę dojść co jest nie tak.
W pomocy wyczytałem iż od wersji 1.11.6.9. zostały wprowadzone Zmiany czyli
Funkcja GETRC5() odbiera teraz rozszerzone kody RC5.
Moje pytanie:
Stary odbierał do 64 komend wiec czemu odbiera mi nadal tyle skoro ma być więcej?
mam bascoma 1.11.9.8
$crystal = 8000000
$regfile = "m8def.dat"
Config Rc5 = Pinc.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pd.0 , Db5 = Pd.1 , Db6 = Pd.2 , Db7 = Pd.3 , E = Pd.4 , Rs = Pb.6
Cursor Off
Cls
Enable Interrupts
Dim Address As Byte , Command As Byte
Do
Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
Locate 2 , 1
Lcd "a" ; Address ; " c " ; Command ; " "
End If
Loop
End
********** pilot****
$crystal = 8000000
$regfile = "m8def.dat"
Dim Togbit As Byte , Command As Byte , Address As Byte , Wartosc As Integer , Wartosc1 As Byte
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Command = 0
Togbit = 0
Address = 0
Do
Wartosc = Getadc(5)
Wartosc = Wartosc / 4
Wartosc1 = Wartosc
Command = Wartosc1
Rc5send Togbit , Address , Command
Locate 1 , 1
Loop
End