BOB-Jízda rovně

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