[[2005/A6/KRRの部屋]] *テスト *11月4日のKRRの部屋にようこそ *『漢字ロボ3人の中で、べタなプログラミング』 sub turn_left() { OnRev(OUT_A); OnFwd(OUT_C); Wait(TURN_TIME); Off(OUT_A+OUT_C); } sub turn_right() { OnFwd(OUT_A); OnRev(OUT_C); Wait(TURN_TIME); Off(OUT_A+OUT_C); } task main() // { OnFwd(OUT_A+OUT_C); //始め 第1画 Wait(550); OnRev(OUT_A+OUT_C); //戻る OnFwd(OUT_B); //B を正回転 Wait(150); Wait(50); turn_right(100); OnFwd(OUT_C); Wait(300); OnRev(OUT_A); Wait(245); OnRev(OUT_B); // B 負回転 Wait(150); Wait(50); OnFwd(OUT_A); // 2画 Wait(1000); OnRev(OUT_C); Wait(950); OnFwd(OUT_B); //B up Wait(150); Wait(50); OnFwd(OUT_C); Wait(500); OnRev(OUT_A); Wait(475); OnRev(OUT_B); // B down Wait(200); turn_right(145); OnFwd(OUT_A+OUT_C); //3画 Wait(300); OnFwd(OUT_B) //B up Wait(150); Wait(50); OnRev(OUT_A+OUT_C); Wait(350); OnRev(OUT_B); //B down Wait(150); Wait(50); turn_left(110); OnFwd(OUT_A+OUT_C); 4画 Wait(300); OnFwd(OUT_B); //B up Wait(150) Wait(50) turn_right(110); OnFwd(OUT_A+OUT_C); Wait(250); OnRev(OUT_B) //B 負回転 Wait(150); Wait(50); OnRev(OUT_A+OUT_C); //5画 Wait(500); Off(OUT_A+OUT_B+OUT_C); } #comment