BOB-Jízda ve čtverci

Z MediaWiki SPŠ a VOŠ Písek
Verze z 28. 5. 2010, 19:11, kterou vytvořil JA (diskuse | příspěvky) (Založena nová stránka: == Robot jezdí ve čtverci. Otáčení vpravo. == <source lang="basic4gl"> ' {$STAMP BS2} ' {$PBASIC 2.5} counter VAR Word FREQOUT 4, 2000, 3000 DO FOR counter = 1 T…)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

Robot jezdí ve čtverci. Otáčení vpravo.

' {$STAMP BS2}
' {$PBASIC 2.5}

counter VAR Word 
FREQOUT 4, 2000, 3000

DO 
FOR counter = 1 TO 122 
    PULSOUT 13,850 
    PULSOUT 12,650 
    PAUSE 20 
NEXT 

FOR counter = 1 TO 31 
    PULSOUT 13,850 
    PULSOUT 12,850 
    PAUSE 20 
NEXT  

LOOP

Robot jezdí ve čtverci. Otáčení vlevo.

' {$STAMP BS2}
' {$PBASIC 2.5}

counter VAR Word 
FREQOUT 4, 2000, 3000

DO 
FOR counter = 1 TO 122 
    PULSOUT 13,850 
    PULSOUT 12,650 
    PAUSE 20 
NEXT 

FOR counter = 1 TO 31 
    PULSOUT 13,650 
    PULSOUT 12,650 
    PAUSE 20 
NEXT 

LOOP