Dioda.com.pl :: Polska Robotyka Amatorska :: Przykładowe program w Bascom'ie

FAQ

Szukaj

Użytkownicy

Regulamin

Grupy

Rejestracja

Zaloguj

Przyszłość jest w naszych rękach...
...bo przyszłość to robotyka.

Ważne tematy
1. Regulamin forum 2. Od żółtodzioba do pierwszego robota w dwa tygodnie 3. Mój pierwszy robot! 4. Kurs BASCOM AVR 5. Szybki start z WinAVR	6. Jak przerobić serwomechanizmy? 7. Jak zrobić przekładnię do robota 8. H-bridge 9. Prównanie scalonych H-Bridge 10. Ultradźwiękowy czujnik odległości do robota	11. Sposoby wykrywanie linii przez roboty LineFollower 12. Czujniki na podczerwień dla robota na TSOP1736 13. Moduł czujników na układzie LM324 14. Spienione PCV w amatorskich robotach 15. Czujniki TCRT5000 do robota podążającego za linią.

Dioda.com.pl Strona Główna » Robotyka - Programowanie » Mikrokontrolery » Przykładowe program w Bascom'ie

Poprzedni temat «» Następny temat

Przesunięty przez: daniel93
25 Cze 08 01:29

Przykładowe program w Bascom'ie

Autor

Wiadomość

treker

www.dioda.com.pl

Pomógł: 12 razy
Posty: 492
Otrzymał 26 piw(a)
Skąd: Gdynia

Wysłany: 12 Lis 07 02:48 Przykładowe program w Bascom'ie

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.

Kod:

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

Dioda.com.pl Strona Główna » Robotyka - Programowanie » Mikrokontrolery » Przykładowe program w Bascom'ie

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum

Dodaj temat do Ulubionych
Wersja do druku

Skocz do:

kredyt przez internet

Love and Light Dominik Peh kosmetyki nero BearShare taniec nowoczesny Warszawa taniec z gwiazdami Porównywarka cen elektroniki