Problemy z nadawaniem podczerwieni w Attiny26

[Jasam]

If Działa Then
Dziękuje
end if

if not Działa Then
TeżDziekuje
End if

[ Dodano: 2008-01-16, 22:46 ]
Powiem tak...Nie działa. I nie podaje nawet żadnego przebiegu na pb.1. Dziękuję.

[ Dodano: 2008-01-16, 22:48 ]
Jeśli ktoś znajdzie błąd w tym kodzie będę wdzięczny,

[ZbeeGin]

[ Dodano: 2008-01-16, 22:48 ]
Jeśli ktoś znajdzie błąd w tym kodzie będę wdzięczny,

Zanalazłem (chyba):

Kod: Zaznacz cały

Config Timer1 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1       'licznik jako generator sygnału prostąkątnego
Timer1 = 0                                                  'zeruj licznik
Ocr1a = T_oc1                                               'załaduj rejestr porównawczy główny
Ocr1c = T_oc1                                               'załaduj rejestr porównawczy pomocniczy (*CTC nie działa z OCR1A*)
Tccr1a = Carrier_off                                        'wyłącz nośną

Studio wskazuje, że teraz OC1A się zmienia.

To by było na tyle z Mojej strony.

[Jasam]

Teraz zaczęło działać tylko zauważyłem chyba jeszcze jeden błąd. Otóż aby działało należy Const T_oc1ustawić jako 110 przy częstotliwości 4 megaherców, a nie tak jak w oryginale 55 przy 4 megahercach. Teraz działa, ale mam wrażenie że jakoś trochę słabo. Bycmoże czasy są nie do końca tak ustawione jak powinny.