[[2009a/A7/課題1右/プログラム1]] [[2009a/A7/課題1右]] [[2009a/A7/課題1右/プログラム2]] [[2009a/A7/課題1右/プログラム3]] *プログラム [#ce4af146] 作成者・西口 #define circle_time 900 //円を描く時間 #define circle OnFwd(OUT_C);Wait(circle_time);Off(OUT_C); //円を描くプログラム #define up_pen OnFwd(OUT_B);Wait(5);Off(OUT_B); #define down_pen OnRev(OUT_B);Wait(5);Off(OUT_B); //ペンを上げ下げするプログラム #define go(t) OnFwd(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C); #define back(t) OnRev(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C); //前後に動くプログラム #define turn_right(t) OnFwd(OUT_C);OnRev(OUT_A);Wait(t);Off(OUT_A+OUT_C); #define turn_left(t) OnFwd(OUT_A);OnRev(OUT_C);Wait(t);Off(OUT_A+OUT_C); //左右に回転するプログラム task main() { circle; back(200); up_pen; back(100); turn_right(15); go(200); down_pen; go(35); up_pen; go(20); down_pen; go(35); up_pen; go(100); turn_left(30); back(145); down_pen; back(50); up_pen; back(90); turn_right(105); go(300); turn_right(45); back(386); down_pen; back(20); up_pen; back(20); Off(OUT_A+OUT_C); }