logo elektroda
logo elektroda
X
logo elektroda
Szukanie Zaawansowane
logo elektroda
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Jak przerobić schemat line followera z jednym czujnikiem IR?

_Karek_ 19 Kwi 2008 16:33 1880 5
Zgłoś naruszenie prawa
Odpowiedz | Nowy temat
  • #1 5054051
    _Karek_
    Poziom 15  
    Posty: 206
    Pomógł: 5
    Ocena: 2
    Witam mam zamiar zrobić prostego line followera i mam schemat, znalazłem:
    Jak przerobić schemat line followera z jednym czujnikiem IR?

    1.I chciałbym go nieco przerobić czyli tak chciałbym spytać najpierw o poprawność schematu?
    2.I co do pokrojenia go czy przerobił by mi go ktoś tak aby on miał jeden czujnik który śledzi linie i tyle Fototranzystor i dioda nadawcza Ir i jeszcze aby ktoś napisał mi program do tego? w basicu i skompilował i dał mi wersję w basic i w hex.
    3.I pytanie na jakim wewnętrznym rezonatorze pracuje atiny2313 4mhz?
    a jak nie to jak ustawić Fuse bity na 4mhz wew. ,ponieważ chcę aby mój robot pracował na 4mhz.
    4.A i jeszcze czy zamiast Bc337 można dać? np? Bc547?
    5.A znalazłem też program ale to pod innego tez cztery czujniki ale i dwa silniki przez L293D


    W załączniku program ten do przeróbki
    http://www.speedyshare.com/427133902.html
    Pozdrawiam Karek
    W pełni konfigurowalna automatyzacja domu - prezentacja Fox Wi-Fi Quad Input [sponsorowany]
  • #2 5054218
    maniek1818
    Poziom 22  
    Posty: 631
    Pomógł: 25
    Ocena: 260
    Przeprowadź jakieś próby tego robota, a nie suchą teorią sypiesz, dużo w działaniu daje też mechanika pojazdu.
    Pozdrawiam
    Mariusz :D
  • #3 5054229
    _Karek_
    Poziom 15  
    Posty: 206
    Pomógł: 5
    Ocena: 2
    no dobra a moje pytania? i schemat, program?
  • #4 5054286
    maniek1818
    Poziom 22  
    Posty: 631
    Pomógł: 25
    Ocena: 260
    Cytat:
    2.I co do pokrojenia go czy przerobił by mi go ktoś tak aby on miał jeden czujnik który śledzi linie i tyle Fototranzystor i dioda nadawcza Ir i jeszcze aby ktoś napisał mi program do tego? w basicu i skompilował i dał mi wersję w basic i w hex.

    Wersja free BASCOM AVR kompiluje do 4kB kodu, więc spokojnie starczy i to z zapasem.
  • #5 5054383
    lukasb9
    Poziom 28  
    Posty: 1421
    Pomógł: 56
    Ocena: 70
    Równolegle do silników włącz diody prostownicze (katoda do plusa zasilania, anoda do kolektora) w przeciwnym wypadku długo te tranzystory nie popracują.
  • #6 5054477
    _Karek_
    Poziom 15  
    Posty: 206
    Pomógł: 5
    Ocena: 2
    OK dałem a jak podłączyc Fototranzystor do uc bez innych ukladów i do tego aby ktos mi rpgoram napisał prgoram bedzie na 1mhz
    Bo Dioda ir nadawcza to wiem noramlnie z opornikiem.

    Jak przerobić schemat line followera z jednym czujnikiem IR?

    czy tak jest ok? diody do tranzystorów ssą ok? i jak podłączyc te fototranzsytory.

    Dodano po 23 [minuty]:

    Pokombinowałem trochę z kodem programuję w delphi i na zdrowy rozóm zmieniłem tylko parę rzeczy nie wiem co do tego kawalka kodu jak ustawic na jeden sesnsor?
    Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
    
Sensor_p Alias Pind.2
Sensor_s Alias Pind.5
Sensor_l Alias Pind.4


Do
   If Sensor_l = 1 And Sensor_s = 0 And Sensor_p = 1 Then   'go along
      Gosub Go

    Elseif Sensor_l = 0 And Sensor_s = 1 And Sensor_p = 1 Then       'turn left
      Gosub Lewt

    Elseif Sensor_l = 0 And Sensor_s = 0 And Sensor_p = 1 Then       'turn left
      Gosub Lewt


    Elseif Sensor_l = 1 And Sensor_s = 1 And Sensor_p = 0 Then       'turn right
      Gosub Righ

    Elseif Sensor_l = 1 And Sensor_s = 0 And Sensor_p = 0 Then       'turn right
      Gosub Righ



   End If
Loop
 



    a całosc po zmianie silników itd. jest tak:
    Ale chcaiłbym tak że procesor odczytuje napięcia jak na białym jest to jest wiecej bo odbija a jak jest na czarnym to jest małe napięcie (logiczne) i żeby procek to rozpoznywał i dawał polecania na silniki a kod po przeróbce :
    Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
    $regfile = "2313def.dat"
$crystal = 1000000
'$noramclear

Config Portb = Output
Config Portd = Input
Portb = &B00000000
Portd = &B00000000

Motor_lt Alias Portb.7
Motor_pt Alias Portb.6

Sensor_p Alias Pind.2
Sensor_s Alias Pind.5
Sensor_l Alias Pind.4


Do
   If Sensor_l = 1 And Sensor_s = 0 And Sensor_p = 1 Then   'go along
      Gosub Go

    Elseif Sensor_l = 0 And Sensor_s = 1 And Sensor_p = 1 Then       'turn left
      Gosub Lewt

    Elseif Sensor_l = 0 And Sensor_s = 0 And Sensor_p = 1 Then       'turn left
      Gosub Lewt


    Elseif Sensor_l = 1 And Sensor_s = 1 And Sensor_p = 0 Then       'turn right
      Gosub Righ

    Elseif Sensor_l = 1 And Sensor_s = 0 And Sensor_p = 0 Then       'turn right
      Gosub Righ



   End If
Loop


Go:
Motor_lt = 1
Motor_pt = 1
Return
Lewt:
Motor_lt = 0
Motor_pt = 1

Return
Righ:
Motor_lt = 1
Motor_pt = 0

Return

    a orginal był taki:
    Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
    $regfile = "2313def.dat"
$crystal = 4000000
'$noramclear

Config Portb = Output
Config Portd = Input
Portb = &B00000000
Portd = &B00000000

Motor_lp Alias Portb.0
Motor_lt Alias Portb.1
Motor_pp Alias Portb.3
Motor_pt Alias Portb.2

Sensor_p Alias Pind.2
Sensor_s Alias Pind.5
Sensor_l Alias Pind.4


Do
   If Sensor_l = 1 And Sensor_s = 0 And Sensor_p = 1 Then   'go along
      Gosub Go

    Elseif Sensor_l = 0 And Sensor_s = 1 And Sensor_p = 1 Then       'turn left
      Gosub Lewt

    Elseif Sensor_l = 0 And Sensor_s = 0 And Sensor_p = 1 Then       'turn left
      Gosub Lewt


    Elseif Sensor_l = 1 And Sensor_s = 1 And Sensor_p = 0 Then       'turn right
      Gosub Righ

    Elseif Sensor_l = 1 And Sensor_s = 0 And Sensor_p = 0 Then       'turn right
      Gosub Righ



   End If
Loop


Go:
Motor_lt = 1
Motor_pt = 1
Return
Lewt:
Motor_lt = 0
Motor_pt = 1

Return
Righ:
Motor_lt = 1
Motor_pt = 0

Return
Odpowiedz | Nowy temat
Zgłoś naruszenie prawa
REKLAMA