Witam
Zamierzam wykonać pilot który będzie włączał na chwilę diodę w odbiorniku żeby sprawdzić podstawowe "mechanizmy" komunikacji przy pomocy rc5.
Zarówno nadajnik jak i odbiornik pracuje z ATMEGA8 i jest "złożony" na płytce stykowej. Układ odbiorczy to TSOP1736, dioda nadawcza LED-AL-IR50-940nm.
Mikroprocesory pracują na wewnętrznym oscylatorze 4MHz (fuse bity ustawione na D9(hi) E3(lo).
Z nadajnikiem jest coś nie tak: dioda IR po nadaniu kodu rc5 przy pomocy procedury rc5 nie przygasa, a teoretycznie powinna zgasnąć na około 0,5 sekundy. Odbiornik wygląda jakby nie reagował lecz TSOP1736 "coś" odbiera.
Dążę jedynie do zapalenia diody LED w odbiorniku najmniejszymi nakładami elementów w układzie. Znalazłem kilkanaście podobnych tematów które nie pomogły znaleźć rozwiązania.
Proszę niech ktoś rzuci okiem na schematy i kod (kod jest praktycznie z helpa BASCOM).
Pozdrawiam
Nadajnik podczerwieni
Odbiornik podczerwieni
![[ATMEGA8][BASCOM] Nadajnik i odbiornik RC5 [ATMEGA8][BASCOM] Nadajnik i odbiornik RC5](https://obrazki.elektroda.pl/28_1222819925_thumb.png)
Zamierzam wykonać pilot który będzie włączał na chwilę diodę w odbiorniku żeby sprawdzić podstawowe "mechanizmy" komunikacji przy pomocy rc5.
Zarówno nadajnik jak i odbiornik pracuje z ATMEGA8 i jest "złożony" na płytce stykowej. Układ odbiorczy to TSOP1736, dioda nadawcza LED-AL-IR50-940nm.
Mikroprocesory pracują na wewnętrznym oscylatorze 4MHz (fuse bity ustawione na D9(hi) E3(lo).
Z nadajnikiem jest coś nie tak: dioda IR po nadaniu kodu rc5 przy pomocy procedury rc5 nie przygasa, a teoretycznie powinna zgasnąć na około 0,5 sekundy. Odbiornik wygląda jakby nie reagował lecz TSOP1736 "coś" odbiera.
Dążę jedynie do zapalenia diody LED w odbiorniku najmniejszymi nakładami elementów w układzie. Znalazłem kilkanaście podobnych tematów które nie pomogły znaleźć rozwiązania.
Proszę niech ktoś rzuci okiem na schematy i kod (kod jest praktycznie z helpa BASCOM).
Pozdrawiam
Nadajnik podczerwieni
$regfile = "m8def.dat"
$crystal = 4000000
Do
Waitms 500
Rc5send 0 , 0 , 12
Loop
EndOdbiornik podczerwieni
$regfile = "m8def.dat"
$crystal = 4000000
Config Rc5 = Pind.2
Config Portb.0 = 1
Portb.0 = 0
Enable Interrupts
Dim Address As Byte , Command As Byte
Do
Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
Portb.0 = 1
Waitms 500
Portb.0 = 0
End If
Loop
End