BOB-Jízda rovně: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
Založena nová stránka: '''Program pro jízdu rovně neomezeně dlouho.'''<br> <source lang="basic4gl"> ' {$STAMP BS2} ' {$PBASIC 2.5} counter VAR Word FREQOUT 4, 2000, 3000 DO PULSOUT … |
Bez shrnutí editace |
||
| Řádek 1: | Řádek 1: | ||
'''Program pro jízdu rovně neomezeně dlouho.'''<br> | '''Program pro jízdu rovně neomezeně dlouho.'''<br> | ||
' {$STAMP BS2} | |||
' {$PBASIC 2.5} | |||
counter VAR Word | |||
FREQOUT 4, 2000, 3000 | |||
DO | |||
PULSOUT 13,850 ; linka 13, délka impulsu 850 x 2 us = 1,7 ms - otáčí se jedním směrem | |||
PULSOUT 12,650 ; linka 12, délka impulsu 650 x 2 us = 1,3 ms - otáčí se opačným směrem | |||
PAUSE 20 | |||
LOOP | |||
[[Soubor:BOB-poradrovne.mp4]]<br> | |||
'''Program pro jízdu rovně po dobu t.''' | |||
' {$STAMP BS2} | |||
' {$PBASIC 2.5} | |||
counter VAR Word | |||
FREQOUT 4, 2000, 3000 | |||
FOR counter = 1 TO 122 | |||
PULSOUT 13,850 | |||
PULSOUT 12,650 | |||
PAUSE 20 | |||
NEXT | |||
[[Soubor:BOB- | [[Soubor:BOB-urcitycas.mp4]] | ||
' {$STAMP BS2} | původně fungující syntaxe na wiki: | ||
' {$PBASIC 2.5} | <source lang="qbasic"> | ||
' {$STAMP BS2} | |||
' {$PBASIC 2.5} | |||
counter VAR Word | counter VAR Word | ||
FREQOUT 4, 2000, 3000 | FREQOUT 4, 2000, 3000 | ||
FOR counter = 1 TO 122 | FOR counter = 1 TO 122 | ||
PULSOUT 13,850 | PULSOUT 13,850 | ||
PULSOUT 12,650 | PULSOUT 12,650 | ||
PAUSE 20 | PAUSE 20 | ||
NEXT | |||
NEXT | |||
</source> | </source> | ||
[ | [http://www.aaronklapheck.com/Boe-Bot_code.html source code] | ||
Verze z 3. 2. 2011, 10:47
Program pro jízdu rovně neomezeně dlouho.
' {$STAMP BS2}
' {$PBASIC 2.5}
counter VAR Word
FREQOUT 4, 2000, 3000
DO
PULSOUT 13,850 ; linka 13, délka impulsu 850 x 2 us = 1,7 ms - otáčí se jedním směrem
PULSOUT 12,650 ; linka 12, délka impulsu 650 x 2 us = 1,3 ms - otáčí se opačným směrem
PAUSE 20
LOOP
Program pro jízdu rovně po dobu t.
' {$STAMP BS2}
' {$PBASIC 2.5}
counter VAR Word
FREQOUT 4, 2000, 3000
FOR counter = 1 TO 122
PULSOUT 13,850
PULSOUT 12,650
PAUSE 20
NEXT
původně fungující syntaxe na wiki:
' {$STAMP BS2}
' {$PBASIC 2.5}
counter VAR Word
FREQOUT 4, 2000, 3000
FOR counter = 1 TO 122
PULSOUT 13,850
PULSOUT 12,650
PAUSE 20
NEXT