BOB-Jízda rovně

JA (diskuse | příspěvky)
(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 …)
Porovnání s novější verzí →

---

Verze z 28. 5. 2010, 21:06

Program pro jízdu rovně neomezeně dlouho.

' {$STAMP BS2}
' {$PBASIC 2.5}
 
counter  VAR  Word
FREQOUT 4, 2000, 3000
 
DO
     PULSOUT 13,850
     PULSOUT 12,650
 
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