Czytnik kodoów RC5


Witam, znalazłem w necie kod do odczytu adresu i komend pilota rc5 który troche przeksztalcilem do swojego lcd i kwarcu.
kod:

$regfile = "m8def.dat"
$crystal = 12000000
 
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0       'mirley UPT M8
Config Lcd = 16 * 2
Config Pind.7 = Output
Config Rc5 = Pind.7
Dim Address As Byte , Command As Byte
Enable Interrupts
 
Do
Getrc5(address , Command)
Command = Command And &B01111111
Cls
Lcd "adres: " ; Address
 
Lowerline
Lcd "komenda: " ; Command
 
Waitms 100
 
Loop
End

Problem leży w tym że to nie działa, na lcd cały czas mam adres:255, komenda:127.
Wogóle nie raguje na pilota rc5.Napięcie na tsop1736 jest równe 6V.Myśle że bląd leży po stronie programu.
Bardzo proszę o pomoc:)




Portret użytkownika mirley

Re: Rc5

Jak to napięcie na TSOP jest równe 6V, nie ma prawa tak byc chyba że jakoś dziwnie to zasilasz. Mikrokontroler M8 i TSOP1736 powinny miec zasilanie 5V, max 5.5V.

Druga sprawa to daj większego wait, np 1s na początek, żebyś mógł zauważyć jak to działa. Daj tez miganie diodą np po wyswietleniu i komendzie wait zaświeć a po odebraniu zgaś czy jakoś podobnie

po trzecie to czy fusebity masz ustawione na kwarc 12MHZ jaki zadeklarowałeś w programie?

-

UWAGA! Możliwy jest zakup zaprogramowanych uC i zestawów elementów itp. do niektórych projektów. O dostępność proszę pytać via email. Konkretne oferty pojawiają się w cenniku.

Portret użytkownika rgbled

Popełniłem błąd w programi,

Popełniłem błąd w programi, poprawiłem i śmiga:)
Dzięki za zainteresowanie:)

-

Pozdro :)