AVR AT90S2313 i RC5: jak odbierać sygnał IR i przypisać przyciski do kanałów w Bascom

Potrzebuje zrobic 5-cio kanalowe zdalne sterowanie typu zalacz-wylacz, karzdy kanal osobno na 90s2313. nie wiem jak skonfigurowac np.pind.0 aby odbieral transmisje z odbiornika IR i reagowal na komunikaty transmisji ir tzn. przypisanie jakiegos przycisku ktoremus kanalowi. narazie ucze sie bascom'a i prosil bym o pomoc w plikach bas. z gory wielkie dzieki !!!

poszukaj na forum bylo juz o obsludze pilotow w kodzie rc5...

Sprubój wykorzystać sprzętowy UART.. możesz zrobić taki podzia bajtu:
bit 0 stan jaki ma przyjąć konkretna linia
bit 1-3 wybór konkretnego pinu
bit 4-6 wybór konkretnego układu
bit 7 a no niewiem.. bit parzystości...
i jusz możesz zrobić taką małą sieć.. jeden pilot... 8 odbiorników.. każdy może mieć wyprowadzone 8 pinów.. jak hcesz to porusze ten temat u siebie na kompie i postaram sie zrobić jakieś przykładowe programy....

nie wiem jeszcze jak sie uaktywnia UART. jezeli mozesz to prosze o kilka przykladow. a wyjsc wystarczy 5.

.. mam kłopot.. a właściwie kilka.. niemam procesorka żeby przetestować COKOLWIEK... mam tesz kłopot z ustawieniem UART'a (tesz niemam na czym testować)... sam bende robił pilota itp.. ale aktualnie jak niemam procków to niemam co sie męczyć...

Sory...

a jak zobrazowac na wyswietlaczu 2*16 kod np.rc5. probowalem polecenia GETRC5 i jakos mi nie wychodzi.

tutaj masz przepisany program z Edw + pewne modyfikacje
moze on natchnie cie do dalszych eksperymentów
powinien dzialac, nie sprawdzony na avr tylko na '51...
pamietaj o podlaczeniu odbiornika do wejscia int0
pozdrawiam

dim kod as byte
dim komenda as byte, adres as byte
'reset tcon.0 - jesli bez tego nie zadziala, odznacz
config lcd =16*2
on int0 odbior
enable int0
enable interrupts
cls
lcd "czekam na kod"
cursor off
do
if kod =1 then
disable int0
locate 2,1
lcd " kom:";komenda;"adr:";adres
kod=0
enable int0
end if
loop

odbior:
getrc5(adres,komenda)
kod=1
return

po malej modyfikacji wyglada to tak:

Dim Kod As Byte
Dim Komenda As Byte , Adres As Byte
Config Rc5 = Pind.2
On Int0 Rc5
Enable Int0
Enable Interrupts
Cls
Lcd "czekam na kod"
Cursor Off
Do
If Kod = 1 Then
Disable Int0
Locate 2 , 1
Lcd " kom:" ; Komenda ; "adr:" ; Adres
Kod = 0
Enable Int0
End If
Loop

Rc5:
Getrc5(adres , Komenda)
Kod = 1
Return

ale nie dziala. polecenie reset tcon w avr'ach jest bledne. nie mam pojecia co dalej zrobic.

BoskiDialer napisał:

.. mam kłopot.. a właściwie kilka.. niemam procesorka żeby przetestować COKOLWIEK... mam też kłopot z ustawieniem UART'a (też niemam na czym testować)... sam bende robił pilota itp.. ale aktualnie jak niemam procków to niemam co się męczyć...

Sory...

To po co włączasz się do tematu?

nie wiem czy testowales procedure rc5 z helpa, moze ona podpowie ci jak to zrobic, osobiscie nie pisalem obslugi rc5 na avr ale jak bedziesz mial jeszcze problemy to nie ma problemow aby poeksperymentowac zajrzyj do helpa moze ci pomoze...

w helpie jest procedura PRINT na UART. zamiast slowa pirnt wstawilem LCD i tak nie chodzi.

'-------------------------------------------------------------------
' RC5.BAS
' (c) 1999-2003 MCS Electronics
' based on Atmel AVR410 application note
'-------------------------------------------------------------------
'use byte library for smaller code
$lib "mcsbyte.lbx"

'This example shows how to decode RC5 remote control signals
'with a SFH506-35 IR receiver.

'Connect to input to PIND.2 for this example
'The GETRC5 function uses TIMER0 and the TIMER0 interrupt.
'The TIMER0 settings are restored however so only the interrupt can not
'be used anymore for other tasks


'tell the compiler which pin we want to use for the receiver input

Config Rc5 = Pind.2

'the interrupt routine is inserted automatic but we need to make it occur
'so enable the interrupts
Enable Interrupts
Cls
'reserve space for variables
Dim Address As Byte , Command As Byte
Lcd "czekam na RC5"

Do
'now check if a key on the remote is pressed
'Note that at startup all pins are set for INPUT
'so we dont set the direction here
'If the pins is used for other input just unremark the next line
'Config Pind.2 = Input
Getrc5(address , Command)

'we check for the TV address and that is 0
If Address = 0 Then

'clear the toggle bit
'the toggle bit toggles on each new received command
'toggle bit is bit 7. Extended RC5 bit is in bit 6
Command = Command And &B01111111
Cls
Lcd Address ; " " ; Command
End If
Loop
End

jest gotowiec, radzę na nim poeksperymentować.
Jeżeli nic nie odbierze to proszę sprawdzić prawidłowość funkcjonowania układu od strony elektrycznej, czy są impulsy na wyjściu z odbiornika podczerwieni
jeżeli są to prawdopodobnie pilot nie pracuje w systemie RC5

dzieki za gotowca. i dalej bu bu!!!
piloty sa z tv LG i tunera PHILIPS tak ze to jest RC5, natomiast moze byc problem z odbiornikiem IR. z wygladu jest to SFH506 ale nie wiem czy 36kHz moze jakis inny. czy sa jakies inne Hz? i jak je sprawdzic. podejrzewam ze to moze byc caly problem.

na stronie glownej jest tester pilotow, jesli ioda zacznie mrugac to wszystko ok z czujnikiem i czeka cie dalsze zmaganie z softm, w innym wypadku zmiana czujnika... i na wszelki wypadek zasilaj tester z 5V bo nie do konca jestem przekonany czy 9V to dobre rozwiazanie
pozdrawiam

wedlug schematu dioda led mruga. uzywalem tego wczesniej jako testera pilotow. zasilanie mialem 5V. moze podac 9V?

czy ktos ma jeszcze jakies propozycje ???

podeslij schemat, byc moze tam tkwi problem....

schemat jest prosty. wejscie IR jest podlaczone bezposrednio do PIND.2 , do pod port B podlaczony jest LCD 2*16. poza tym nic wiecej jeszcze ma. narazie musze zobrazowac kod RC5 zeby moc dalej cos wywalczyc. pozniej danemu rozkazowi przypisze wyjscie z portu B.

a pind.2 jest podciagniety do + zasilania? na wszelki wypadek wstaw 10K

byl juz wstawiany opornik. taka sugestia : a moze trzeba wyjscie z modulu SFH wzmocnic lub zanegowac za pomoca jakiegos tranzystora?

sygnal jest z modulu jest ok, mam inne pytanie, czy uklad wogule cokolwiek robi ( tekst na lcd) czy tylko jest problem z rc5?

tekst na LCD jest ok. problem jest tylko z RC5.

deklarujesz dwie zmienne do których przypisujesz w obsłudze przerwania od RC5 adres i komende i później te dwie zmienne wyświetlasz na lcd jak każde inne... musi chodzić.--- nic na lcd Ci sie nie pojawia?!
wklej tu program, popatrzymy

przejrzalem jeszcze raz listing programu i zauwazylem iz w deklaracji:
Config Rc5 = Pind.2
On Int0 Rc5
uzywaz rc5 do oznaczenia dwoch roznych rzeczy...
zdeklarowales pin jako rc5 oraz procedure obslugi jako rc5 moze w tym tkwi blad?

zauwazylem to tez. poprawilem i dalej nic !!!

poogladaj to, może cie naprowadzi- nie wiem czy działa, napisałem to dawno temu w dodatku na 51
a może brakuje ci czegos takiego jak "reset tcon.0"??

mam takie pytanie a'propos hardware'u - czy moglbym uzyc diody z Pluginu Igora :] , polaczonej przez max232 i bezposrednio do 2313 ??
Czy wtedy byblyb w stanie odczytac jakikolwiek kod RC5???
i potem oczywiscie obrobic !

w pluginie Igora o ile mi wiadomo wykozystywany jest czujnik o ktorym mowimy i nie potrzebny jest max aby podlaczyc go do avr-ka, a do odczytu kodu w zaleznosci od tego w jakim jezyku programujesz mozna to zrobic jedna komenda (bascom) lub napisac wlasna procedure...
-> segal ... dzisiaj mam troszke czasu i zobacze czy da rade zmusic mojego 2313 do wspolpracu z pilotami o wynikach napisze wieczorkiem. pozdrawiam

jestem teraz w pracy, ale rano w domu napisalem cos i widac reakcje avr'ka na piloty. jak bede w chacie to podesle co stworzylem. w karzdym razie jest juz jakis postep.

napisalem cos takiego:

Config Rc5 = Pind.2
Config Portb = Output
Dim Address As Byte
Dim Command As Byte
Address = 0
Command = 0
Enable Interrupts
Enable Int0

Do
Waitms 20
Getrc5(address , Command)
If Address > 1 Then
Cls
Lcd Address ; ":" ; Command
Cursor Noblink
End If
Loop
End

na wyswietlaczu mam:
255:255
przy nacisnieciu na pilot cyferki mrugaja, ale tak ze nic nie widac. w karzdym razie teraz widac ze avr reaguje na pilota. moze to w czyms pomoze.