[ poprawiłem tytuł wątku - mirekk36 ]
Mam pewien problem z nadawaniem kodów w RC5. Korzystam z kodów zamieszczonych w niebieskiej książce Mirosława Kardasia, po przystosowaniu ich do Atmegi32, taktowanej takim samym rezonatorem kwarcowym jak w książce, czyli 8MHz. W programie wykorzystuję TIMER0, więc musiałem przerobić kod w taki sposób, że do generacji fali nośnej jest wykorzystywany TIM2.
Program w skrócie wygląda tak:
Różne definicje RC5, diody IR i konf. portu:
[syntax=c]//RC5
#define _ADDRESS_RC5 4
#define _CMD1_RC5 1 //enter
#define _CMD2_RC5 2 //cofnij
#define _CMD3_RC5 3 //prawo
#define _CMD4_RC5 4 //lewo
#define _CMD5_RC5 5 //gora
#define _CMD6_RC5 6 //dol
//IR
#define LED_IR_PORT PORTD
#define LED_IR_PIN PIND
#define LED_IR_DDR DDRD
#define LED_IR_PIN_NR 7 //oc2
#define LED_IR (1<<LED_IR_PIN_NR)
#define LED_IR_OFF PORTD |= LED_IR
#define LED_IR_ON PORTD &= ~LED_IR
// ustawienia poerow - dioda IR
LED_IR_DDR |= (LED_IR);
LED_IR_PORT |= (LED_IR);//OFF = 1[/syntax]
Konfiguracja timerów i funkcje wysyłające RC5:
[syntax=c]void timer_init (){ //inicjalizacja TIMERA0
TCCR0 |= (1<<WGM01); //CTC
TCCR0 |= (1<<CS02)|(1<<CS00); //preskaler = 1024
OCR0=78;
TIMSK |= (1<<OCIE0); //zezwolenie na występowanie przerwań
//inicjalizacja T2
//jest uzywany do generowania fali nosnej dla IR
//zaladowanie OCRA do generowania falai nosnej ok 36kHz = 110
OCR2 = 110;
//ustawienie T0 w tryb = 2
TCCR2 |= (1<<WGM21); //tryb CTC
TCCR2 |= (1<<CS20);
//tim 1 sluzy do odmierzania opoznien z dokladnoscia do wielokrotnosci 1us.
//nie uzywamy przerwan
//ustawiami tim1 w tryb = 4 - CTC
TCCR1B |= (1<<WGM12);
}
//dokladna petla opozniajaca = wielokrotnosci 1us w oparciu o timer 1, taktowanie 8MHz, presc = 8
void czekaj_us (uint16_t usekundy) {
OCR1A = usekundy;
TIFR |= (1<<OCF1A);
TCCR1B |= (1<<CS11);
while (!(TIFR & (1<<OCF1A))) {};
TCCR1B &= ~(1<<CS11);
}
//przeslanie bitu o wartosci 1
void send_rc5_one() {
czekaj_us(889);
TCCR2 |= (1<<COM20);
czekaj_us(889);
TCCR2 &= ~(1<<COM20);
}
//przeslanie bitu o wartosci 0
void send_rc5_zero() {
TCCR2 |= (1<<COM20);
czekaj_us(889);
TCCR2 &= ~(1<<COM20);
czekaj_us(889);
}
//przeslanie kompetnej ramki RC5
void send_rc5(uint8_t adr, uint8_t cmd, uint8_t tog) {
uint16_t data = 0;
uint8_t i = 15;
//formowanie ramki RC5
//przesuwanie bitow w lewa strone
data |= ((1<<15)|(1<<14)|(tog<<13)|(adr<<8)|(cmd<<2));
//wysylanie kolejno 14 bitow
//2 bity startu, 1 bit tog, 5 bitow adr, 6 bit komendy
do {
if (!(data& (1<<i))) send_rc5_zero();
else send_rc5_one();
} while (--i>1);
}[/syntax]
i przerwanie od T0, gdzie wysyłane są kody RC5:
[syntax=c]ISR(TIMER0_COMP_vect) { //przerwanie od licznika T0 (co 10ms, zatem f_próbkowania = 100Hz)
//inny kod.....
//...
//...
// program odbiera dane przez USART i jak przyjdą odpowiednie znaki, wysylana jest wlasciwa komenda przez RC5
odebrane_znaki = uart_getc();
if (odebrane_znaki == 101) { //ENTER
TIMSK &= ~(1<<OCIE0); //dezaktyw t0
toggle_bit ^= (1<<0);
send_rc5(_ADDRESS_RC5, _CMD1_RC5, toggle_bit);
TIMSK |= (1<<OCIE0); //aktyw t0
}
if (odebrane_znaki == 99) { //COFNIJ
TIMSK &= ~(1<<OCIE0); //dezaktyw t0
toggle_bit ^= (1<<0);
send_rc5(_ADDRESS_RC5, _CMD2_RC5, toggle_bit);
TIMSK |= (1<<OCIE0);
}
if (odebrane_znaki == 112) { //PRAWO
TIMSK &= ~(1<<OCIE0); //dezaktyw t0
toggle_bit ^= (1<<0);
send_rc5(_ADDRESS_RC5, _CMD3_RC5, toggle_bit);
TIMSK |= (1<<OCIE0);
}
if (odebrane_znaki == 108) { //LEWO
TIMSK &= ~(1<<OCIE0); //dezaktyw t0
toggle_bit ^= (1<<0);
send_rc5(_ADDRESS_RC5, _CMD4_RC5, toggle_bit);
TIMSK |= (1<<OCIE0);
}
if (odebrane_znaki == 103) { //GORA
TIMSK &= ~(1<<OCIE0); //dezaktyw t0
toggle_bit ^= (1<<0);
send_rc5(_ADDRESS_RC5, _CMD5_RC5, toggle_bit);
TIMSK |= (1<<OCIE0);
}
if (odebrane_znaki == 100) { //DOL
TIMSK &= ~(1<<OCIE0); //dezaktyw t0
toggle_bit ^= (1<<0);
send_rc5(_ADDRESS_RC5, _CMD6_RC5, toggle_bit);
TIMSK |= (1<<OCIE0);
}
}[/syntax]
Dioda jest podłączona katodą do portu uP, a anodą do +. NA pinie musi być "0", aby dioda świeciła.
Problem jest w tym, że układ coś wysyła (sprawdziłem to kamerą, która pokazała, że dioda świeci -szybko miga - po przyjściu litery), jednak odbiornik RC5 nic nie odbiera. Oczywiście adresy i komendy, które mają sterować odbiornikiem, są poprawne. A sam odbiornik działa również OK, bo napisałem prosty program w BASCOMIE, aby sprawdzić działanie tego odbiornika - wyniki testów były pomyślne.
Zastanawia mnie, co może być tutaj problemem?
PS
Nawiasem - odbiornikiem jest mikrokontroler z dołączonym układem TSOP 31236. Napisałem prosty program w BAscomie, który nadzoruje pracę odbiornika, tj. odczytuje przysyłane kody (które wysyła wcześniej opisany nadajnik, z którym jest problem) i steruje właściwie wyjściami uP. Zamieszczam dodatkowo program odbiornika, choć nie jest on głównym przedmiotem tego tematu:
[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 1000000
$lib "mcsbyte.lbx"
'KOMUNIKACJA IR
Config Int0 = Falling 'przerwanie reaguje na zbocze opadające
On Int0 Podczerwien 'etykieta przerwania
Config Rc5 = Pind.2 , Timer = 0 , Wait = 2000 ' użyta linia wejściowa PD2; licznik T0; oczekiwanie na ramkę-nastawy czasu
Dim Address As Byte 'dane IR
Dim Command As Byte 'zmienna z danymi IR
Dim Odebrano As Bit 'flaga odpowiedzialna za odebranie danych przez IR
Config Pind.2 = Input 'odbiornik IR
Config Pinb.1 = Output 'przek2
Config Pinb.2 = Output 'przek1
Config Pinb.3 = Output 'buzzer
Reset Portb.1
Reset Portb.2
Set Portb.3 'buzzer
Buzzer Alias Portb.3
Przek1 Alias Portb.1
Przek2 Alias Portb.2
Wait 1
Reset Buzzer
Reset Przek2
Set Przek1
Wait 1
Set Buzzer
Reset Przek1
Wait 2
Reset Buzzer
Set Przek2
Wait 1
Reset Przek2
Set Buzzer
Enable Interrupts
Enable Int0 'włączenie przerwania (zewnętrzne)
Do
If Odebrano = 1 And Address = 4 Then
Select Case Command
Case 2 'off
Reset Przek1
Reset Przek2
Reset Buzzer
Waitms 200
Set Buzzer
Case 4 'lewo - wolne
Reset Buzzer
Reset Przek2
Waitms 200
Set Przek1
Waitms 500
Set Buzzer
Case 3 'prawo - szybkie
Reset Buzzer
Reset Przek1
Waitms 200
Set Przek2
Waitms 200
Set Buzzer
Waitms 200
Reset Buzzer
Waitms 400
Set Buzzer
End Select
Odebrano = 0
Enable Int0
End If
Loop
Podczerwien: 'odbiór danych IR
Disable Int0 'wyłączenie przerwań
Enable Interrupts
Getrc5(address , Command)
If Address <> 255 And Command <> 255 Then 'jak dane są sensowne
Command = Command And &B01111111 'maskowanie niepotrzebnego bitu
Odebrano = 1 'flaga informująca o odebraniu danych
End If
Return[/syntax]Statystyki: Napisane przez piotr_1547 — 25 maja 2015, o 05:09
]]>