BOB-Jízda rovně: Porovnání verzí

Z MediaWiki SPŠ a VOŠ Písek
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
 
(Není zobrazeno 5 mezilehlých verzí od stejného uživatele.)
Řádek 1: Řádek 1:
'''Program pro jízdu rovně neomezeně dlouho.'''<br>
=='''Program pro jízdu rovně neomezeně dlouho.'''==


<source lang="basic4gl">
[[Soubor:BOB-rovne-001.jpg]]


' {$STAMP BS2}
[[Media:BOB-rovne-001.bs2|download]]
' {$PBASIC 2.5}


counter  VAR  Word
=='''Program pro jízdu rovně po dobu t.'''==
FREQOUT 4, 2000, 3000


DO
[[Soubor:BOB-rovne-002.jpg]]
    PULSOUT 13,850
    PULSOUT 12,650


PAUSE 20
[[Media:BOB-rovne-002.bs2|download]]
LOOP


<source lang="qbasic">
' {$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>
</source>


Chapter 2
==Project #2==
(located near the end of the chapter)
* Robotics with the Boe-Bot - Chapter2Project2.bs2
* This takes the servos through three seconds of each of the four different
* combinations of rotation. First, both servos should rotate CCW,
* then they should both rotate CW. Then, the P12 servo should rotate CW as the P13
* servo rotates CCW, and finally, the P12 servo should rotate CCW while the P13
* servo rotates CW
<source lang="qbasic">
' {$STAMP BS2}
' {$PBASIC 2.5}


[[Soubor:BOB-poradrovne.mp4]]<br>
counter VAR Byte


DEBUG "Program Running!"


'''Program pro jízdu rovně po dobu t.'''
FOR counter = 1 TO 120 ' 120 = 3s/((1.7 + 1.7 + 20 + 1.6)0.001s)
PULSOUT 13, 850
PULSOUT 12, 850
PAUSE 20
NEXT


<source lang="basic4gl">
FOR counter = 1 TO 124 ' 124 = 3s/((1.3 + 1.3 + 20 + 1.6)0.001s)
PULSOUT 13, 650
PULSOUT 12, 650
PAUSE 20
NEXT


' {$STAMP BS2}
FOR counter = 1 TO 122 ' 122 = 3s/((1.7 + 1.3 + 20 + 1.6)0.001s)
' {$PBASIC 2.5}
PULSOUT 13, 850
PULSOUT 12, 650
PAUSE 20
NEXT


counter   VAR    Word
FOR counter = 1 TO 122 ' 122 = 3s/((1.3 + 1.7 + 20 + 1.6)0.001s)
FREQOUT 4, 2000, 3000
PULSOUT 13, 650
PULSOUT 12, 850
PAUSE 20
NEXT


FOR counter = 1 TO 122
END
    PULSOUT 13,850
    PULSOUT 12,650
    PAUSE 20
NEXT
</source>
</source>


[[Soubor:BOB-urcitycas.mp4]]
[http://www.aaronklapheck.com/Boe-Bot_code.html source code]

Aktuální verze z 27. 4. 2011, 17:55

Program pro jízdu rovně neomezeně dlouho.

download

Program pro jízdu rovně po dobu t.

download 

 ' {$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

Chapter 2


Project #2

(located near the end of the chapter)

  • Robotics with the Boe-Bot - Chapter2Project2.bs2
  • This takes the servos through three seconds of each of the four different
  • combinations of rotation. First, both servos should rotate CCW,
  • then they should both rotate CW. Then, the P12 servo should rotate CW as the P13
  • servo rotates CCW, and finally, the P12 servo should rotate CCW while the P13
  • servo rotates CW
 ' {$STAMP BS2}
 ' {$PBASIC 2.5}

 counter VAR Byte

 DEBUG "Program Running!"

 FOR counter = 1 TO 120 ' 120 = 3s/((1.7 + 1.7 + 20 + 1.6)0.001s)
 PULSOUT 13, 850
 PULSOUT 12, 850
 PAUSE 20
 NEXT

 FOR counter = 1 TO 124 ' 124 = 3s/((1.3 + 1.3 + 20 + 1.6)0.001s)
 PULSOUT 13, 650
 PULSOUT 12, 650
 PAUSE 20
 NEXT

 FOR counter = 1 TO 122 ' 122 = 3s/((1.7 + 1.3 + 20 + 1.6)0.001s)
 PULSOUT 13, 850
 PULSOUT 12, 650
 PAUSE 20
 NEXT

 FOR counter = 1 TO 122 ' 122 = 3s/((1.3 + 1.7 + 20 + 1.6)0.001s)
 PULSOUT 13, 650
 PULSOUT 12, 850
 PAUSE 20
 NEXT

 END

source code

Citováno z „http://wiki.sps-pi.cz/index.php?title=BOB-Jízda_rovně&oldid=10606“