Witam
Mam problem z banalnie prostą rzeczą, jaką jest odbiór kodów RC5
Robię wszystko jak należy (przynajmniej tak myślę)
Odbiornik który użyłem to TSOP 1736
Sprawdzałem go na oscyloskopie i na wyjściu out wychodzi sygnał w postaci impulsów
wgrałem do procka książkowy kod zamieszczony poniżej.
Po uruchomieniu na LCD pokazuje mi:
adres = 0
komenda = 0
po wysłaniu kodu z pilota mam:
adres = 255
komenda = 17
jaki bym klawisz nie nacisnął jest to samo
Co takiego robię źle że poległem na takiej głupocie.
Przepisuje już nawet żywcem z książki i nic.
Próbuje kilku pilotów z czego jeden jest na 100% w standardzie RC5
EDIT wersja Bascoma 1.11.9.0
Mam problem z banalnie prostą rzeczą, jaką jest odbiór kodów RC5
Robię wszystko jak należy (przynajmniej tak myślę)
Odbiornik który użyłem to TSOP 1736
Sprawdzałem go na oscyloskopie i na wyjściu out wychodzi sygnał w postaci impulsów
wgrałem do procka książkowy kod zamieszczony poniżej.
Po uruchomieniu na LCD pokazuje mi:
adres = 0
komenda = 0
po wysłaniu kodu z pilota mam:
adres = 255
komenda = 17
jaki bym klawisz nie nacisnął jest to samo
'Odbieranie kodu RC5
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portd.0 , E = Portc.4 , Rs = Portc.5
Config Int0 = Low Level
Config Rc5 = portd.2
On Int0 Pobranie
Dim Address As Byte , Command As Byte
Dim Odebrany As Bit
Enable Interrupts
Enable Int0
Set Odebrany
Do
If Odebrany = 1 Then
Cls
Lcd "Adres:" ; Address
Lowerline
Lcd "komenda:" ; Command
Waitms 100
Reset Odebrany
Enable Int0
End If
Loop
Pobranie:
Disable Int0
Enable Interrupts
Getrc5(address , Command)
Command = Command And $b01111111
Set Odebrany
Return
Co takiego robię źle że poległem na takiej głupocie.
Przepisuje już nawet żywcem z książki i nic.
Próbuje kilku pilotów z czego jeden jest na 100% w standardzie RC5
EDIT wersja Bascoma 1.11.9.0
