BOB-Jízda rovně
Z MediaWiki SPŠ a VOŠ Písek
(Rozdíly mezi verzemi)
(Nejsou zobrazeny 4 mezilehlé verze od 1 uživatele.) | |||
Řádka 1: | Řádka 1: | ||
− | '''Program pro jízdu rovně neomezeně dlouho.''' | + | =='''Program pro jízdu rovně neomezeně dlouho.'''== |
− | + | [[Soubor:BOB-rovne-001.jpg]] | |
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | [[Media:BOB-rovne-001.bs2|download]] | |
− | + | ||
− | + | ||
− | + | ||
− | + | ||
+ | =='''Program pro jízdu rovně po dobu t.'''== | ||
− | [[Soubor:BOB- | + | [[Soubor:BOB-rovne-002.jpg]] |
− | + | [[Media:BOB-rovne-002.bs2|download]] | |
+ | <source lang="qbasic"> | ||
' {$STAMP BS2} | ' {$STAMP BS2} | ||
' {$PBASIC 2.5} | ' {$PBASIC 2.5} | ||
− | + | ||
counter VAR Word | counter VAR Word | ||
FREQOUT 4, 2000, 3000 | 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> | ||
+ | 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"> | <source lang="qbasic"> | ||
' {$STAMP BS2} | ' {$STAMP BS2} | ||
' {$PBASIC 2.5} | ' {$PBASIC 2.5} | ||
− | counter | + | 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 | 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> | </source> | ||
[http://www.aaronklapheck.com/Boe-Bot_code.html source code] | [http://www.aaronklapheck.com/Boe-Bot_code.html source code] |
Aktuální verze z 27. 4. 2011, 19:55
Program pro jízdu rovně neomezeně dlouho.
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
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