[[2008a/ロボコン]] #contents *課題:ボール運搬ロボット [#rfd5163d] テニスボールを所定の位置に運搬するロボットの作成。 それを使ってロボコンを行います!! <ルール> **メンバー紹介 [#qb4d7279] 小鉢、小次郎、コリン、あやこの四人。 ロボットが役割分担して二台あるので、小鉢・コリンチームと小次郎・あやこチームに分かれてプログラムとロボット制作をしました。といっても、ロボット制作は小鉢と小次郎が担当してます。 *使用するロボットについて [#e16a611b] *プログラムについて [#s6a177fb] **ボールを押し出すプログラム [#k9308c3a] task main() { SetSensor(SENSOR_1, SENSOR_TOUCH); SetSensor(SENSOR_2, SENSOR_TOUCH); OnRev(OUT_A+OUT_C); Wait(300); OnFwd(OUT_C); OnRev(OUT_A); Wait(85); OnRev(OUT_A+OUT_C); Wait(195); Off(OUT_A+OUT_C); Wait(50); OnFwd(OUT_A+OUT_C); //back next P Wait(100); OnFwd(OUT_A); OnRev(OUT_C); Wait(90); OnRev(OUT_A+OUT_C); Wait(200); OnRev(OUT_A); OnFwd(OUT_C); Wait(90); OnRev(OUT_A+OUT_C); Wait(240); OnFwd(OUT_A); OnRev(OUT_C); Wait(82); OnRev(OUT_A+OUT_C); Wait(260); OnFwd(OUT_A+OUT_C); Wait(250); Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(85); OnRev(OUT_A+OUT_C); Wait(300); OnFwd(OUT_C); OnRev(OUT_A); Wait(85); OnRev(OUT_A+OUT_C); Wait(500); OnFwd(OUT_C); OnRev(OUT_A); Wait(85); OnRev(OUT_A+OUT_C); Wait(150); Off(OUT_A+OUT_C); OnFwd(OUT_A); OnRev(OUT_C); Wait(150); } **ボールを運ぶプログラム [#g20f68b1] task main() { SetSensor(SENSOR_1, SENSOR_TOUCH); { OnFwd(OUT_A+OUT_C); Wait(200); OnFwd(OUT_C); OnRev(OUT_A); Wait(90); OnFwd(OUT_A+OUT_C); Wait(150); Off(OUT_A+OUT_C); } while (true) { if (SENSOR_1 == 1 ) { OnFwd(OUT_B); Wait(200); Off(OUT_B); Wait(100); OnRev(OUT_A+OUT_C); Wait(50); Off(OUT_C); OnRev(OUT_A); Wait(90); OnFwd(OUT_A+OUT_C); Wait(300); Off(OUT_A+OUT_C); OnRev(OUT_B); Wait(50); OnFwd(OUT_A+OUT_C); Wait(100); Off(OUT_A+OUT_C); }}} *制作してみての感想 [#tfc3c8b0] <苦労した点> <工夫した点> ***コメントお願いします [#ucc60da5] #comment