Skocz do zawartości

Przykładowe program w Bascom'ie


Treker

Pomocna odpowiedź

Witam

Na razie tylko jeden przykładowy program, następne będą pojawiać się z czasem.

Przy okazji, gdyby ktoś chciał nam pomóc i mógłby napisać jakiś przykładowy program (Bascom lub C) proszę o kontakt do mnie na PW.

REM Jazda po zaprogramowanej trasie

$regfile = "2313def.dat" 'określenie uc 
$crystal = 8000000  'okreslenie kwarcu

Config Portb = &B11111111 'wszytskie jako wyjścia 
Portb = &B11111111 'wszędzie stan spoczynkowy 1 
Config Portd = &B111111 'wszystkie jako wyjścia 
Portd = &B1111111 'wszędzie stan spoczynkowy 1 


Do 'petla nie skończona 
Portb.0 = 1 
Portb.1 = 0 'silnik lewy ON w przód 
Portb.2 = 1 
Portb.3 = 0 'silnik prawy ON w przód 

Waitms 2000 'jedź przez 2 sec 

Portb.0 = 0 
Portb.1 = 1 'silnik lewy ON w Tył 
Portb.2 = 1 
Portb.3 = 0 'silnik prawy ON w przód 

Waitms 1000 'obracaj przez 1sec 

Portb.0 = 0 
Portb.1 = 1 'silnik lewy ON w tył 
Portb.2 = 0 
Portb.3 = 1 'silnik prawy ON w tył 

Waitms 2000 'jedź w tył przez 2sec 

Portb.0 = 1 
Portb.1 = 1 'silniki off 
Portb.2 = 1 
Portb.3 = 1 

waitms 2000 

Loop 

End
Link do komentarza
Share on other sites

A jeśli są 2 koła to tak???:

REM Jazda po zaprogramowanej trasie

$regfile = "2313def.dat" 'określenie uc
$crystal = 8000000  'okreslenie kwarcu

Config Portb = &B11111111 'wszytskie jako wyjścia
Portb = &B11111111 'wszędzie stan spoczynkowy 1
Config Portd = &B111111 'wszystkie jako wyjścia
Portd = &B1111111 'wszędzie stan spoczynkowy 1


Do 'petla nie skończona

Portb.1 = 0 ' ON w przód
Portb.2 = 0 ' ON w przód

Waitms 2000 'jedź przez 2 sec


Portb.1 = 1 'ON w Tył
Portb.2 = 0 'ON w przód

Waitms 1000 'obracaj przez 1sec


Portb.1 = 1 ' ON w tył
Portb.2 = 1 ' ON w tył

Waitms 2000 'jedź w tył przez 2sec

Portb.1 = 1 'silniki off
Portb.2 = 1


waitms 2000

Loop

End
Link do komentarza
Share on other sites

Tamten program też jest pod dwa silniki, tylko pod mostek L293D, jeśli sterujesz tranzystorami to program będzie wyglądał mniej więcej tak, ale na dwóch tranzystorach robot nie pojedzie do tyłu.

Link do komentarza
Share on other sites

Nawet nie będzie wyglądał mniej więcej tak.

Waldek96, włącz myślenie i analizę tego co piszesz, bo

Portb.1 = 1 ' ON w tył

Portb.2 = 1 ' ON w tył

Waitms 2000 'jedź w tył przez 2sec

Portb.1 = 1 'silniki off

Portb.2 = 1

podając te same dane na wyjścia oczekujesz 2 różnych zachowań.

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

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.