BOB - úkoly
Z MediaWiki SPŠ a VOŠ Písek
- 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
