Podczerwień

[robo1238]

To jak miał by wyglądać kod by po wciśnięciu przycisku dioda sie zaświeciła a po kolejnym wciśnięciu zgasła?

[robo1238]

Jak działa układ tsop1736, bo mi coś chyba źle działa.

Podobno gdy podam na niego falę podczernieni to na wyjściu ma się pojawić stan niski, a u mnie jest chyba coś nie tak.

Gdy podam falę podczerwieni to napięcie na wyjściu spada z 5v, na 4,2.

Zepsuty nowy odbiornik ?

[marek1707]

A skąd bierzesz tę "falę podczerwieni"? Bo jeśli z pilota, to przecież nie nadaje on ciągle jak żarówka w latarce, tylko produkuje krótkie impulsy. Tak jest w każdym standardzie sterowania podczerwienią. W czasie każdego takich impulsów wyjście Twojego odbiornika opada prawdopodobnie do ok. 0V ale ponieważ impulsów w stosunku do przerw między nimi jest raczej mało, to uśrednione napięcie jakie pokazuje woltomierz jest właśnie takie, jak napisałeś. Chyba do dekodowania tych impulsów chciałeś użyć procesora, nieprawdaż? To czego się spodziewałeś? Stałego 0V? To jak by była przekazywana jakaś informacja oprócz świeci-nieświeci?

Inna przyczyną (jeśli rzeczywiście świecisz zwykłą diodą IR na odbiornik) może być:

1. Użycie za małego rezystora jako obciążenia wyjścia i odbiornik po prostu "nie ma siły" ściągnąć wyjścia do 0V.

2. Odbiornik jest bardziej inteligentny niż Ci się wydaje i zamiast długiego zera wypuszcza tylko impuls 0V o maksymalnej (dla siebie) długości a potem dłuższą przerwę, czyli 5V. Woltomierz to uśrednia i - patrz wyżej.

[Naelektryzowany]

Z tego co pamiętam będziesz miał 0 jeśli dioda na niego świecąca będzie migfać z f=36Khz.

On ma aktywny filtr danej częstotliowości więc ciągłe świecenie (bez przerywania) na niewiele się zda

[robo1238]

Zrobiłem układ ze schematu ale nie działa nie mam pojęcia czemu.

Z tego kodu;

$regfile = "attiny2313.dat"

$crystal = 8000000

Config Portb.4 = Output

Config Rc5 = Portb.0

$hwstack = 20

$swstack = 10

$framesize = 40

Dim Address As Byte , Command As Byte

Enable Interrupts

Do

Getrc5(address , Command)

Command = Command And &B01111111

Waitms 1

If Address = 0 And Command = 20 Then

Portb.4 = 1

End If

If Address = 0 And Command = 21 Then

Portb.4 = 0

End If

Loop

[Naelektryzowany]

Kodu nie sprawdzałem, ale brakuje w nim kluczowego elementu. Przerwania sterujacego dioda ir.

[robo1238]

Przerwania diodą IR ? Przecież to jest odbiornik i nie ma tu diody IR.

[Naelektryzowany]

Jej.. na idiotę wyszedłem

Miałem drobne problemy i nie mogłem powiększyć sobie obrazka, a układ przekaźnika z daleka przypomina ir + tranzystorek

A odnośnie programiku. Na pewno masz źle ustawiony port przekaźnika w programie masz portb.4, kiedy wg. schematu masz podpięty do portd.4

[robo1238]

Ahh, złe porty to tylko na schemacie, podłączone było dobrze. Jakieś pomysły co może być nie tak ?

[robo1238]

Nikt nie pomoże ?

[BlackJack]

Brakuje ci chyba rezystora pociagającego na TSOPIe, no i dla czego podpiołeś go pod AIN0 ? Ogólnie klania sie brak czytania HELPa z BASCOMA, tam nawet jest schemat podłączenia TSOPa.