[[2004/A4]] * 目次 [#y1555203] #contents ここでは4班が作成したプログラムを紹介しときます。 正確な測定とかはまったくしないで本能の赴くままに作ったので、ロボットなのに野性の感で動いてます。(おい * ハートを描くロボット(必須) [#te935b8a] task main()~ {~ OnRev(OUT_A + OUT_C); Wait(100); Off(OUT_A+OUT_C); Wait(100); SetPower(OUT_C,7); OnRev(OUT_C); //右上側のカーブ Wait(400); Off(OUT_A+OUT_C); Wait(100); SetPower(OUT_A,7);SetPower(OUT_C,1); OnFwd(OUT_A); //左上側のカーブ Wait(400); Off(OUT_A+OUT_C); Wait(100); SetPower(OUT_A,1); SetPower(OUT_C,1); OnFwd(OUT_A + OUT_C); //左下側の辺 Wait(100); Off(OUT_A+OUT_C); } * 台から落ちないロボット(必須) [#c9a7d7fb] task main ()~ {~ SetSensor(SENSOR_1, SENSOR_LIGHT); SetSensor(SENSOR_3, SENSOR_LIGHT); repeat(10){ OnFwd(OUT_A+OUT_C); until (SENSOR_1 < 40)||(SENSOR_3 < 40); //センサーの値が40未満 //(適当に調節)になるまで // 次の命令を実行しない OnRev(OUT_A+OUT_C); Wait(50); OnFwd(OUT_A);OnRev(OUT_C); Wait(94);} Off(OUT_A+OUT_C); } * ラインをトレースするロボット(必須) [#e3f49e3e] task main ()~ {~ SetSensor(SENSOR_1,SENSOR_LIGHT); SetSensor(SENSOR_3,SENSOR_LIGHT); SetPower(OUT_A,1);SetPower(OUT_C,1); OnFwd(OUT_A+OUT_C); while(true){ if(SENSOR_1<45) { OnFwd(OUT_C); OnRev(OUT_A); until(SENSOR_1>45); OnFwd(OUT_C+OUT_A);} if(SENSOR_3<45) { OnFwd(OUT_A); OnRev(OUT_C); until(SENSOR_3>45); OnFwd(OUT_C+OUT_A);} } } task main ()~ {~ SetSensor(SENSOR_1,SENSOR_LIGHT); SetSensor(SENSOR_3,SENSOR_LIGHT); SetPower(OUT_A,7);SetPower(OUT_C,7); OnFwd(OUT_A+OUT_C); while(true){ if(SENSOR_1>45) { OnFwd(OUT_A); OnRev(OUT_C); until(SENSOR_1<45); OnFwd(OUT_C+OUT_A);} if(SENSOR_3>45) { OnFwd(OUT_C); OnRev(OUT_A); until(SENSOR_3<45); OnFwd(OUT_C+OUT_A);} } } * 光を追いかけるロボット(必須) [#h3efe532] * 演奏するロボット(必須) [#v018acde]