BOB-Jízda rovně

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

Soubor:BOB-poradrovne.mp4

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-urcitycas.mp4

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

source code