Skocz do zawartości

Problem z zaprogramowaniem linefollowera w Bascomie


modelarz

Pomocna odpowiedź

Ale teraz dokładniej pomierzyłem i 1 silnik dobrze reaguje gdy czujnik jest na linii to napięcie jest 0v a gdy na podłodze to 4,7v. A gdy ten sam czujnik podłączam do któregoś z 2 pozostałych wyjść to ciągle silnik działa bez różnicy czy na linii czy na podłodze.

I teraz sprawdzam połączenie z 2 silnikiem i czy tranzystor jest sprawy bo zmieniłem z bc337 na bd135.

Link do komentarza
Share on other sites

Zarejestruj się lub zaloguj, aby ukryć tę reklamę.
Zarejestruj się lub zaloguj, aby ukryć tę reklamę.

jlcpcb.jpg

jlcpcb.jpg

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

A czy ten program był by dobry do tego?

'***** konfiguracja portów *****
$regfile = "attiny13.dat"


Sensor1 Alias Portd.7 Czujnik Lewy
Sensor2 Alias Portd.3 Czujnik Srodkowy
Sensor3 Alias Portd.2 Czunik Prawy

Config Pinb.5 = Output
Config Pinb.6 = Output

Do
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 0 Then Lewo
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 0 Then Lewo
If Pind.7 = 0 And Pind.3 = 1 And Pind.2 = 1 Then Prawo
If Pind.7 = 0 And Pind.3 = 0 And Pind.2 = 1 Then Prawo
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 1 Then Naprzod
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 1 Then Naprzod

Loop

End If

End                                                         'end program


Link do komentarza
Share on other sites

Teraz dopisałem ale nie wiem czy dobrze:

'***** konfiguracja portów *****
$regfile = "attiny13.dat"


Sensor1 Alias Portd.7 Czujnik Lewy
Sensor2 Alias Portd.3 Czujnik Srodkowy
Sensor3 Alias Portd.2 Czunik Prawy

Config Pinb.5 = Output
Config Pinb.6 = Output

Do
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 0 Then Lewo
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 0 Then Lewo
If Pind.7 = 0 And Pind.3 = 1 And Pind.2 = 1 Then Prawo
If Pind.7 = 0 And Pind.3 = 0 And Pind.2 = 1 Then Prawo
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 1 Then Naprzod
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 1 Then Naprzod

If Pinb.6 = 1 And Pinb.5 = 0 Then Prawo
If Pinb.6 = 1 And Pinb.5 = 1 Then Naprzod
If Pinb.6 = 0 And Pinb.5 = 1 Then Lewo


Loop

End If

End                                                         'end program


[ Dodano: 22-01-2011, 20:59 ]

Sprawdzi ktoś ?

Link do komentarza
Share on other sites

A teraz ?

'***** konfiguracja portów *****
$regfile = "attiny13.dat"


Sensor1 Alias Portd.7 Czujnik Lewy
Sensor2 Alias Portd.3 Czujnik Srodkowy
Sensor3 Alias Portd.2 Czunik Prawy

Config Pinb.5 = Output
Config Pinb.6 = Output

Do
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 0 Then Lewo
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 0 Then Lewo
If Pind.7 = 0 And Pind.3 = 1 And Pind.2 = 1 Then Prawo
If Pind.7 = 0 And Pind.3 = 0 And Pind.2 = 1 Then Prawo
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 1 Then Naprzod
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 1 Then Naprzod

Sub Prawo:
If Pinb.6 = 1 And Pinb.5 = 0 Then Prawo
Call Ddelay
End Sub

Sub Naprzod:
If Pinb.6 = 1 And Pinb.5 = 1 Then Naprzod
Call Ddelay
End Sub

Sub Lewo:
If Pinb.6 = 0 And Pinb.5 = 1 Then Lewo
Call Ddelay
End Sub

Loop

End If

End                                                         'end program

[ Dodano: 22-01-2011, 21:57 ]

A gdy kompilowałem to musiałem usunąć te lewo prawo naprzod i jeszcze był jakiś błąd w linii end i w jakiejś 121 linii.

Link do komentarza
Share on other sites

Takie coś ?

'***** konfiguracja portów *****
$regfile = "attiny13.dat"


Sensor1 Alias Portd.7 Czujnik Lewy
Sensor2 Alias Portd.3 Czujnik Srodkowy
Sensor3 Alias Portd.2 Czunik Prawy

Config Pinb.5 = Output
Config Pinb.6 = Output

Do
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 0 Then Lewo
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 0 Then Lewo
If Pind.7 = 0 And Pind.3 = 1 And Pind.2 = 1 Then Prawo
If Pind.7 = 0 And Pind.3 = 0 And Pind.2 = 1 Then Prawo
If Pind.7 = 1 And Pind.3 = 0 And Pind.2 = 1 Then Naprzod
If Pind.7 = 1 And Pind.3 = 1 And Pind.2 = 1 Then Naprzod

Sub Prawo:
If Pinb.6 = 1 And Pinb.5 = 0 Then Prawo
Call Ddelay
End Sub

Sub Naprzod:
If Pinb.6 = 1 And Pinb.5 = 1 Then Naprzod
Call Ddelay
End Sub

Sub Lewo:
If Pinb.6 = 0 And Pinb.5 = 1 Then Lewo
Call Ddelay
End Sub

Sub Ddelay:
Waitms Czas
End Sub

Loop

End If

End                                                         'end program
Link do komentarza
Share on other sites

Dołącz do dyskusji, napisz odpowiedź!

Jeśli masz już konto to zaloguj się teraz, aby opublikować wiadomość jako Ty. Możesz też napisać teraz i zarejestrować się później.
Uwaga: wgrywanie zdjęć i załączników dostępne jest po zalogowaniu!

Anonim
Dołącz do dyskusji! Kliknij i zacznij pisać...

×   Wklejony jako tekst z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Twój link będzie automatycznie osadzony.   Wyświetlać jako link

×   Twoja poprzednia zawartość została przywrócona.   Wyczyść edytor

×   Nie możesz wkleić zdjęć bezpośrednio. Prześlij lub wstaw obrazy z adresu URL.

×
×
  • Utwórz nowe...

Ważne informacje

Ta strona używa ciasteczek (cookies), dzięki którym może działać lepiej. Więcej na ten temat znajdziesz w Polityce Prywatności.