Skocz do zawartości

OutSideR2k11

Użytkownicy
  • Zawartość

    33
  • Rejestracja

  • Ostatnio

Reputacja

0 Neutralna

O OutSideR2k11

  • Ranga
    3/10

Informacje

  • Płeć
    Mężczyzna
  • Lokalizacja
    Głogów
  1. Witam, pisząc program dla LF w Basicu określamy próg wykrywania linii przez czujniki pisząc np. Const Granica = 350 może ktoś mi jaśniej wytłumaczyć czym jest i co oznacza ta wartość ?
  2. witam, pozycja 6 tudzież mikrosilniczek z przekladnia wyglada mi identycznie jak ten kupiony przeze mnie z WoBit'a tylko ze za 23 brutto...
  3. czytałem gdzieś ze w tych mikro serwach stosowane są silniczki bezszczotkowe, jeśli się mylę to wybaczcie błąd.
  4. witam, mam do sprzedania kilka pozostałości po konstrukcji mojego robota. wszystko na aukcjach: laminat wytrawiacz silniczki 6szt. __________ Komentarz dodany przez: Treker Proszę nie używać wyłącznie wielkich liter w tematach oraz stosować tagi tematów.
  5. czyli 50zl za oba ? a posiadasz moze te plastkowe maskownice do mocowania ich ? [ Dodano: 13-10-2011, 09:38 ] fobos319, podaj jakis kontakt do siebie i sie zgadamy odnosnie tych silniczkow bo jestem zainteresowany
  6. witam, potrzebuje zakupic 2szt serw przerobionych na silniczki pradu stalego z przekladniami badz te pololu w jakiejs dobrej cenie, pozdrawiam
  7. fobos319, witam, ile sobie cenisz za te 2 silniczki pololu ?
  8. dziekuje NAWYK juz poprawione, a powiedzcie czy program napisany jest adekwatny do tego co sie dzieje na schemacie ? [ Dodano: 04-10-2011, 19:24 ] i jeszcze jedno, chcialem napisac program tak aby w momencie skretu ograniczyc predkosc robota a kolka obracaly sie w przeciwnych kierunkach do siebie a nie jak dotychczas jedno stoi a drugie kreci, pytanie czy dobrze to zrobilem ? ''''''''''''''''''''''''Konfiguracja'''''''''''''''''''''''' $regfile = "m8def.dat" $crystal = 8000000 'Konfiguracja przetwornika analog-cyfra (ADC) Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Konfiguracja sterowania sprzętowym PWM Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down 'Granica reagowania na linię - dobierana doświadczalnie Const Granica = 350 'Konfiguracja portów Config Portd = Output Config Portb = Output 'Opis portów 'Enable1 - Silnik lewy - Portb.2 (PWM1A) 'Enable2 - Silnik prawy - Portb.1 (PWM1B) 'Input1 - Silnik lewy A - Portd.0 'Input2 - Silnik lewy B - Portd.1 'Input4 - Silnik prawy A - Portd.2 'Input3 - Silnik prawy B - Portd.3 'Czujnik lewy - ADC3 'Czujnik środkowy lewy - ADC2 'Czujnik środkowy prawy - ADC1 'Czujnik prawy - ADC0 'Deklaracje zmiennych Dim Czujnik_lewy As Word Dim Czujnik_srodkowy_lewy As Word Dim Czujnik_srodkowy_prawy As Word Dim Czujnik_prawy As Word Silnik_lewy_a Alias Portd.0 Silnik_lewy_b Alias Portd.1 Silnik_prawy_a Alias Portd.2 Silnik_prawy_b Alias Portd.3 Start Adc Set Silnik_lewy_a Reset Silnik_lewy_b Set Silnik_prawy_a Reset Silnik_prawy_b 'Silniki włączone Pwm1a = 255 Pwm1b = 255 ''''''''''''''''''''''''Pętla główna'''''''''''''''''''''''' Do 'Każdowazowa konfiguracja czujników Czujnik_lewy = Getadc(0) Czujnik_srodkowy_lewy = Getadc(1) Czujnik_srodkowy_prawy = Getadc(2) Czujnik_prawy = Getadc(3) If Czujnik_srodkowy_lewy > Granica Then Pwm1a = 180 Silnik_lewy_a = 1 Silnik_lewy_b = 0 Pwm1b = 180 Silnik_prawy_a = 1 Silnik_prawy_b = 0 If Czujnik_srodkowy_prawy > Granica Then Pwm1a = 180 Silnik_lewy_a = 1 Silnik_lewy_b = 0 Pwm1b = 180 Silnik_prawy_a = 1 Silnik_prawy_b = 0 Elseif Czujnik_lewy > Granica Then Pwm1a = 140 Silnik_lewy_a = 0 Silnik_lewy_b = 1 Pwm1b = 140 Silnik_prawy_a = 1 Silnik_prawy_b = 0 Elseif Czujnik_prawy > Granica Then Pwm1a = 140 Silnik_lewy_a = 1 Silnik_lewy_b = 0 Pwm1b = 140 Silnik_prawy_a = 0 Silnik_prawy_b = 1 Else Pwm1a = 0 Pwm1b = 0 End If End If Loop End
  9. witam, program testowy do silnikow juz dziala, prosilbym tylko o sprawdzenie calego programu w odniesieniu do schematu ideowego robota ''''''''''''''''''''''''Konfiguracja'''''''''''''''''''''''' $regfile = "m8def.dat" $crystal = 8000000 'Konfiguracja przetwornika analog-cyfra (ADC) Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Konfiguracja sterowania sprzętowym PWM Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down 'Granica reagowania na linię - dobierana doświadczalnie Const Granica = 350 'Konfiguracja portów Config Portd = Output Config Portb = Output 'Opis portów 'Enable1 - Silnik lewy - Portb.2 (PWM1A) 'Enable2 - Silnik prawy - Portb.1 (PWM1B) 'Input1 - Silnik lewy A - Portd.0 'Input2 - Silnik lewy B - Portd.1 'Input4 - Silnik prawy A - Portd.2 'Input3 - Silnik prawy B - Portd.3 'Czujnik lewy - ADC3 'Czujnik środkowy lewy - ADC2 'Czujnik środkowy prawy - ADC1 'Czujnik prawy - ADC0 'Deklaracje zmiennych Dim Czujnik_lewy As Word Dim Czujnik_srodkowy_lewy As Word Dim Czujnik_srodkowy_prawy As Word Dim Czujnik_prawy As Word Silnik_lewy_a Alias Portd.0 Silnik_lewy_b Alias Portd.1 Silnik_prawy_b Alias Portd.3 Silnik_prawy_a Alias Portd.2 Start Adc Set Silnik_lewy_a Reset Silnik_lewy_b Set Silnik_prawy_a Reset Silnik_prawy_b 'Silniki włączone Pwm1a = 255 Pwm1b = 255 ''''''''''''''''''''''''Pętla główna'''''''''''''''''''''''' Do 'Każdowazowa konfiguracja czujników Czujnik_lewy = Getadc(0) Czujnik_srodkowy_lewy = Getadc(1) Czujnik_srodkowy_prawy = Getadc(2) Czujnik_prawy = Getadc(3) If Czujnik_srodkowy_lewy > Granica Then Pwm1a = 255 Pwm1b = 255 If Czujnik_srodkowy_prawy > Granica Then Pwm1a = 255 Pwm1b = 255 Elseif Czujnik_lewy > Granica Then Pwm1a = 0 Pwm1b = 255 Elseif Czujnik_prawy > Granica Then Pwm1a = 255 Pwm1b = 0 Else Pwm1a = 255 Pwm1b = 255 End If End If Loop End a tutaj schemat koncowy :
  10. rozumiem ze program ma wygladac tak: $regfile = "m8def.dat" $crystal = 1000000 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8 Config Portd.4 = Output Config Portd.5 = Output Config Portd.2 = Output Config Portd.3 = Output Pwm1a = 255 Pwm1b = 255 portd.0=1 portd.1=0 Portd.2=1 portd.3=0 jesli tak to musze szukac innej przyczyny...bo silniki ani rusz
  11. a moge prosic o pomoc w napisaniu prostego programu do sprawdzenia silnikow? pomijajac okreslenie atmegi i czestotliwosci, tylko same porty jak maja byc, rozumiem ze portd jako wy, oraz pinb.1 i pinb.2 jako wy, czy potrzebuje cos jeszcze ? nie wiem ktore porty ustawic zeby ruszyc silniki ;/ tutaj schemat plytki a staram sie pisac w bascomie a wogole to staram sie napisac wlasny program od poczatku dla tego LF gdyz tamten pisalem wzorujac sie na innym LF w ramach nauki...
  12. witam ponownie, do programowania robota uzylem program BASCOM AVR 2.0.5.0. na zakladce fuse bit ustawilem int clock 8MHZ (juz gotowa opcja do wyboru). Nastepnie dalem zapisz. Potem wgralem programik i niby wszystko pomyslnie przeszlo. Nastepnie dalem zeby porownal zawartosc bufora z zawartoscia procka i tez ok. Po tym wszystkim odpinam programator, wlaczam robota i nic sie nie dzieje :/ pytanie czy cos zrobilem zle podczas programowania czy mozliwe ze proc chodzi a mostek l293D jest uwalony ? ew. jak to sprawdzic ?
  13. witam, po dodaniu dodatkowych linijek : Silnik_lewy_a Alias Portd.3 Silnik_lewy_b Alias Portd.2 Silnik_prawy_b Alias Portd.0 Silnik_prawy_a Alias Portd.1 udalo sie programik skompilowac
  14. witam, po probie skompilowania programu w bascomie wywalaja sie nastepujace bledy: co tu jest nie tak niby ?
×
×
  • Utwórz nowe...