http://wiki.sps-pi.cz/index.php?action=history&feed=atom&title=BOB_-_%C3%BAkoly
BOB - úkoly - Historie editací
2026-05-16T05:38:26Z
Historie editací této stránky
MediaWiki 1.42.1
http://wiki.sps-pi.cz/index.php?title=BOB_-_%C3%BAkoly&diff=15005&oldid=prev
JA: Založena nová stránka: * Sestavte robota, napište program a vyzkoušejte proto, aby robot: == se pohyboval vpřed == <source lang="qbasic"> ' {$STAMP BS2} ' {$PBASIC 2.5} DO PULSOUT ...
2012-12-30T15:25:05Z
<p>Založena nová stránka: * Sestavte robota, napište program a vyzkoušejte proto, aby robot: == se pohyboval vpřed == <source lang="qbasic"> ' {$STAMP BS2} ' {$PBASIC 2.5} DO PULSOUT ...</p>
<p><b>Nová stránka</b></p><div>* Sestavte robota, napište program a vyzkoušejte proto, aby robot:<br />
<br />
== se pohyboval vpřed ==<br />
<br />
<source lang="qbasic"><br />
' {$STAMP BS2}<br />
' {$PBASIC 2.5}<br />
<br />
DO<br />
PULSOUT 13,850<br />
PULSOUT 12,650<br />
PAUSE 30<br />
<br />
LOOP<br />
</source><br />
<br />
<br />
<br />
<br />
<br />
==se pohyboval vpřed do vzdálenosti 1m ==<br />
<br />
<source lang="qbasic"><br />
' {$STAMP BS2}<br />
' {$PBASIC 2.5}<br />
<br />
distance VAR Word<br />
<br />
FOR distance = 1 TO 289<br />
PULSOUT 13,850<br />
PULSOUT 12,650<br />
PAUSE 20<br />
NEXT<br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==se pohyboval vpřed ve čtyřúhelníku o straně cca 0,5m ==<br />
<br />
<source lang="qbasic"><br />
<br />
' {$STAMP BS2}<br />
' {$PBASIC 2.5}<br />
<br />
<br />
DO<br />
counter VAR Word<br />
distance VAR Word<br />
<br />
<br />
FOR distance = 1 TO 144<br />
PULSOUT 14,650<br />
PULSOUT 15,850<br />
PAUSE 20<br />
NEXT<br />
<br />
FOR counter = 1 TO 24<br />
PULSOUT 14,650<br />
PULSOUT 15,650<br />
PAUSE 20<br />
NEXT<br />
<br />
LOOP<br />
</source><br />
<br />
==jel rovně a zastavil na 60 cm vzdáleném místě označeném černou lepící páskou ==<br />
<source lang="qbasic"><br />
'{$STAMP BS2}<br />
'{$PBASIC 2.5}<br />
<br />
Sensor VAR Byte<br />
<br />
DO<br />
<br />
Center: HIGH 6: PAUSE 1: Sensor.BIT1 = IN3: INPUT 6<br />
<br />
SELECT Sensor<br />
<br />
<br />
CASE %0<br />
<br />
PULSOUT 14, 650<br />
PULSOUT 15, 850<br />
<br />
CASE %1<br />
<br />
PULSOUT 14, 750<br />
PULSOUT 15, 750<br />
ENDSELECT<br />
<br />
PAUSE 20<br />
<br />
LOOP<br />
</source><br />
<br />
==se pohyboval dokud nebude stisknutý dotykový senzor ==<br />
==se rozjel na zvukový povel ==<br />
==jel ve čtyřúhelníku a zastavil se u počátečního bodu. ==<br />
==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 ==<br />
== s pomocí čidla světla pohyboval po čáře ==<br />
<br />
<source lang="qbasic"><br />
'{$STAMP BS2}<br />
'{$PBASIC 2.5}<br />
<br />
DO<br />
<br />
Right: HIGH 5: PAUSE 1: Sensor.BIT0 = IN3: INPUT 5<br />
Center: HIGH 6: PAUSE 1: Sensor.BIT1 = IN3: INPUT 6<br />
Left: HIGH 7: PAUSE 1: Sensor.BIT2 = IN3: INPUT 7<br />
<br />
SELECT Sensor<br />
<br />
CASE %010 <br />
PULSOUT 15, 850<br />
PULSOUT 14, 650<br />
<br />
CASE %011 <br />
PULSOUT 15, 850<br />
PULSOUT 14, 750<br />
<br />
CASE %001 <br />
PULSOUT 15, 850<br />
PULSOUT 14, 850<br />
<br />
CASE %110 <br />
PULSOUT 15, 750<br />
PULSOUT 14, 650<br />
<br />
CASE %100 <br />
PULSOUT 15, 650<br />
PULSOUT 14, 650<br />
<br />
ENDSELECT<br />
<br />
PAUSE 20 <br />
<br />
LOOP <br />
<br />
</source><br />
<br />
== Start ve vzdálenosti 60 cm od černé linie. Robot najde dráhu a sleduje ji ==<br />
== Naučte robota šplhat přes minimálně 2,5 cm tlustou knihu. ==<br />
== Najde předmět, uchopí a přiveze ==<br />
== Nakombinujte různá čidla pro pohyb robota ==</div>
JA