BOB-Jízda rovně: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
Bez shrnutí editace |
Bez shrnutí editace |
||
| (Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
| Řádek 1: | Řádek 1: | ||
'''Program pro jízdu rovně neomezeně dlouho.''' | =='''Program pro jízdu rovně neomezeně dlouho.'''== | ||
[[Soubor:BOB-rovne-001.jpg]] | [[Soubor:BOB-rovne-001.jpg]] | ||
[[ | [[Media:BOB-rovne-001.bs2|download]] | ||
'''Program pro jízdu rovně po dobu t.''' | =='''Program pro jízdu rovně po dobu t.'''== | ||
[[Soubor:BOB-rovne-002.jpg]] | [[Soubor:BOB-rovne-002.jpg]] | ||
[[ | [[Media:BOB-rovne-002.bs2|download]] | ||
<source lang="qbasic"> | <source lang="qbasic"> | ||
' {$STAMP BS2} | ' {$STAMP BS2} | ||
| Řádek 27: | Řádek 24: | ||
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"> | |||
' {$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> | </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, 17: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