[Bascom] Czujnik lini

[trotek]

Witajcie, mam problem z odpaleniem czujnika w lini w moim Minisumo. Czujniki to KTIR podpiete mam je do PC1 i PC2.

$regfile "M8def.dat"                                        'procesor
$regfile = 8000000                                          'taktowanie

Config Pinc.1 = Input                                       'kt lewy
Config Pinc.2 = Input                                       'kt prawy
Config Portc.0 = Output                                     'led kt lewy
Config Portc.3 = Output                                     'Led Kt Prawy

Config Adc = Single , Prescaler = Auto , Reference = Avcc 

Dim A As Word                                               'czujnik linii
Dim B As Word

Const Granica = 300

Do

Gosub Wczytaj_stany_przetwornikow

If A > Granica Then
Portc.0 = 0
Else
Portc.0 = 1
End If

If B > Granica Then
Portc.3 = 0
Else
Portc.3 = 1
End If

Loop

End

Wczytaj_stany_przetwornikow:
Start Adc
A = Getadc(1)
A = Getadc(1)
Stop Adc
Pinc.1 = A
Start Adc
B = Getadc(2)
B = Getadc(2)
Stop Adc
Pinc.2 = B

Return

Chcialem aby zapalila sie dioda kiedy czujnik zobaczy białą linie, ale wogole to nie dziala.. Czujniki sa napewno dobrze podlaczone, czy cos mam zle w programie?

[Carpe Diem]

7 linijka od dołu (nie licząc pustej) - czemu przypisujesz pinowi czujnika wartość którą właśnie podał? i to samo z drugim czujnikiem w drugiej linijce od dołu?

[ Dodano: 10-09-2012, 21:42 ]

Ja miałem to tak zorganizowane i działało:

     L = Getadc(1)
     P = Getadc(3)


     If L <= Granica Then
     Gosub Prawo
     End If

     If P <= Granica Then
     Gosub Lewo
     End If

[trotek]

Zmieniłem kod na taki jak podałeś i niestety nadal nie działa..

$regfile "M8def.dat"                                        'procesor
$regfile = 8000000                                          'taktowanie


Config Pinc.1 = Input                                       'kt lewy
Config Pinc.2 = Input                                       'kt prawy
Config Portc.0 = Output                                     'led kt lewy
Config Portc.3 = Output                                     'Led Kt Prawy

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'konfiguracja adc

Dim L As Word                                               
Dim P As Word

Const Granica = 300

Do

L = Getadc(1)
P = Getadc(2)


If L <= Granica Then
Portc.0 = 1

End If

If P <= Granica Then
Portc.3 = 1

End If

Loop

End

[Carpe Diem]

Dodaj jeszcze

Start ADC

Sprawdź aparatem czy diody KTIRów świecą.

[ Dodano: 10-09-2012, 22:37 ]

Dodam jeszcze, że u mnie granica była równa 50 ale to zależy od odległości itp.

Pokombinuj z białą kartką przy różnych wysokościach, najlepiej trzymając płytkę w ręce i płynnie ją regulując.

[Polecacz 101]

Produkcja i montaż PCB - wybierz sprawdzone PCBWay!
   • Darmowe płytki dla studentów i projektów non-profit
   • Tylko 5$ za 10 prototypów PCB w 24 godziny
   • Usługa projektowania PCB na zlecenie
   • Montaż PCB od 30$ + bezpłatna dostawa i szablony
   • Darmowe narzędzie do podglądu plików Gerber
Zobacz również » Film z fabryki PCBWay

[trotek]

Diody swieca. Start ADC dodac przed petla Do, tak? Zmienialem wartosci granicy ale nic to nie daje nadal zadna z diód sie nie zapala.. :/ Granica to odleglość (wysokosc) czujnika od kartki czy co?

[Carpe Diem]

Spróbuj i tak i tak. Granica mówi o wartości analogowej jaką podaje KTIR z zakresu 0-255 przy 8 bitowym przetworniku ADC.

[trotek]

Daje Start ADC przed Do i po Do, zmieniam wartości Granicy i ciągle nie działa. Diody Ktir'a swieca, nie wiem co sie dzieje...

[Carpe Diem]

Sprawdź czy fototranzystor jest dobrze podłączony, a następnie podłącz multimetr na wyjściu KTIRa i ruszając nad kartką biała/czarna nisko/wysoko sprawdź czy zmienia się napięcie.

[trotek]

Dobrze jest podlaczony. Sprawdzam miernikiem i mam na kolektorze napiecie caly czas 5V, na anodzie 1V raz jak przylozylem miernik to KTIR zaczal dzialac jak przyblizalem sie z biala kartka to zapalala sie dioda ale po chwili przestal dzialac i teraz juz nie dziala, nie pomaga nawet ponowne podlaczenie zasilania, jak działał to na kolektorze bylo 2V...

[ Dodano: 11-09-2012, 19:23 ]

jeszcze sie upewnię czy dobrze mam podpięty czujnik. Nóżka 1 idzie do + przez R200, 2 uziemienie, 3 do uC i przez 20k do +, 4 uziemienie? Czy powinna być nóżka 3 i 4 uziemiona a 2 powinna isc do uC i przez 20k do +.