BOB-Jízda rovně
(Rozdíly mezi verzemi)
(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 …) |
|||
Řádka 1: | Řádka 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]] |
− | '' | + | původně fungující syntaxe na wiki: |
+ | <source lang="qbasic"> | ||
+ | ' {$STAMP BS2} | ||
+ | ' {$PBASIC 2.5} | ||
− | + | counter VAR Word | |
+ | 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, 12: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