BOB - úkoly
Skočit na navigaci
Skočit na vyhledávání
- Sestavte robota, napište program a vyzkoušejte proto, aby robot:
se pohyboval vpřed
' {$STAMP BS2}
' {$PBASIC 2.5}
DO
PULSOUT 13,850
PULSOUT 12,650
PAUSE 30
LOOP
se pohyboval vpřed do vzdálenosti 1m
' {$STAMP BS2}
' {$PBASIC 2.5}
distance VAR Word
FOR distance = 1 TO 289
PULSOUT 13,850
PULSOUT 12,650
PAUSE 20
NEXT
se pohyboval vpřed ve čtyřúhelníku o straně cca 0,5m
' {$STAMP BS2}
' {$PBASIC 2.5}
DO
counter VAR Word
distance VAR Word
FOR distance = 1 TO 144
PULSOUT 14,650
PULSOUT 15,850
PAUSE 20
NEXT
FOR counter = 1 TO 24
PULSOUT 14,650
PULSOUT 15,650
PAUSE 20
NEXT
LOOP
jel rovně a zastavil na 60 cm vzdáleném místě označeném černou lepící páskou
'{$STAMP BS2}
'{$PBASIC 2.5}
Sensor VAR Byte
DO
Center: HIGH 6: PAUSE 1: Sensor.BIT1 = IN3: INPUT 6
SELECT Sensor
CASE %0
PULSOUT 14, 650
PULSOUT 15, 850
CASE %1
PULSOUT 14, 750
PULSOUT 15, 750
ENDSELECT
PAUSE 20
LOOP
se pohyboval dokud nebude stisknutý dotykový senzor
se rozjel na zvukový povel
jel ve čtyřúhelníku a zastavil se u počátečního bodu.
jel v před a pokud čidlo ultrazvuku zjistí překážku se zastavil, kousek zacouval, otočil se o 160° a celý cyklus pokračoval
s pomocí čidla světla pohyboval po čáře
'{$STAMP BS2}
'{$PBASIC 2.5}
DO
Right: HIGH 5: PAUSE 1: Sensor.BIT0 = IN3: INPUT 5
Center: HIGH 6: PAUSE 1: Sensor.BIT1 = IN3: INPUT 6
Left: HIGH 7: PAUSE 1: Sensor.BIT2 = IN3: INPUT 7
SELECT Sensor
CASE %010
PULSOUT 15, 850
PULSOUT 14, 650
CASE %011
PULSOUT 15, 850
PULSOUT 14, 750
CASE %001
PULSOUT 15, 850
PULSOUT 14, 850
CASE %110
PULSOUT 15, 750
PULSOUT 14, 650
CASE %100
PULSOUT 15, 650
PULSOUT 14, 650
ENDSELECT
PAUSE 20
LOOP