Witam, chciałem się podzielić z szanownym gronem moim problemem, który napotkałem, gdy chce odebrać coś w RC5. Napisałem (a właściwie to skopiowałem z helpa) program do odbioru rc5, i tu pojawia się problem, ponieważ na wyświetlaczu cały czas mam wartość 255 255 a w drugiej lini pomocnicze 0 0... (jest to tylko test) nieważne, czy podłącze pin do masy, czy do + (prymitywny test
) używam odbiornika TFMS5360 podłączony do zasilania (4,5V) przez potencjometr 1k (myślałem, ze wartość rezystora jest z noty katalogowej nie jest dokładna - 220ohm, dlatego mam regulacje:))
czasami coś z tego pilota zostanie odebrane ( zawsze to samo) adr 31 i comm191 ale to tak 1/50
Napięcie na wyjściu czujnika zmienia się o ok0,2V gdy w niego przyświecę z pilota
I to chyba było by tyle, nie mam żadnego pomysłu, próbowałem wzmocnić sygnał (napięcie) stosowałem darlingtony ale to też nie pomogło (nie wysterowało tranzystora) a wzmacniacza operacyjnego nie potrafiłem podpiąć
Jeśli ktoś miałby jakieś sugestie to proszę śmiało mówić
niżej kod
Poprawiłem tytuł - regulamin p.11.1
[zumek]
czasami coś z tego pilota zostanie odebrane ( zawsze to samo) adr 31 i comm191 ale to tak 1/50
Napięcie na wyjściu czujnika zmienia się o ok0,2V gdy w niego przyświecę z pilota
I to chyba było by tyle, nie mam żadnego pomysłu, próbowałem wzmocnić sygnał (napięcie) stosowałem darlingtony ale to też nie pomogło (nie wysterowało tranzystora) a wzmacniacza operacyjnego nie potrafiłem podpiąć
Jeśli ktoś miałby jakieś sugestie to proszę śmiało mówić
niżej kod
$regfile = "m8def.DAT" 'deklaracja procesora, w tym wypadku Atmega8
$crystal = 8000000 'deklaracja cześtotlwiości pracy
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portd.7 , Db6 = Portd.6 , Db7 = Portd.5 , E = Portd.3 , Rs = Portd.4
Config Rc5 = Pinc.3
Enable Timer0
Enable Interrupts
Dim Adr As Word
Dim Comm As Word
Dim Adrr As Word
Dim Commm As Word
Do
Getrc5(adr , Comm)
If Adr < 254 Then
Adrr = Adr
End If
If Comm < 254 Then
Commm = Comm
End If
Cls
Lcd Adr ; Comm
Lowerline
Lcd Adrr ; " " ; Commm;
If Pinc.3 = 0 Then
Lcd " 0"
End If
Waitms 100
Loop
End
Poprawiłem tytuł - regulamin p.11.1
[zumek]
