「井」の字sub使用バージョンです *勉強ノート1−2 [#n0bc2db5] sub DOWN() 筆を下ろします { OnFwd(OUT_B); Wait(40); Off(OUT_B); Wait(50); OnFwd(OUT_B); Wait(40); Off(OUT_B); Wait(50); } sub RISE() 筆を上げます { OnRev(OUT_B); Wait(40); Off(OUT_B); Wait(50); OnRev(OUT_B); Wait(40); Off(OUT_B); Wait(50); } sub FIRST() 1,3画目です { 縦と横の「FIRST」です OnFwd(OUT_A+OUT_C); Wait(100); Off(OUT_C+OUT_A); Wait(50); OnFwd(OUT_A+OUT_C); Wait(100); Off(OUT_C+OUT_A); Wait(50); } sub SECOND() 2,4画目です { 理由は同じです OnFwd(OUT_A+OUT_C); Wait(135); Off(OUT_A+OUT_C); Wait(50); OnFwd(OUT_A+OUT_C); Wait(135); Off(OUT_A+OUT_C); Wait(50); } task main() { sub DOWN(); 1画目です sub FIRST(); sub RISE(); OnRev(0UT_A); 左回転します OnFwd(OUT_C); Wait(20); OnRev(OUT_C); バックします Wait(130); OnFwd(OUT_A); 右回転します Wait(20); Off(OUT_A+OUT_C); Wait(50); OnRev(0UT_A); 左回転します OnFwd(OUT_C); Wait(20); OnRev(OUT_C); バックします Wait(130); OnFwd(OUT_A); 右回転します Wait(20); Off(OUT_A+OUT_C); Wait(50); sub DOWN(); 2画目です sub SECOND(); sub RISE(); OnRev(OUT_A+OUT_C); バックします Wait(140); OnFwd(OUT_A); 90度回転します Wait(82); Off(OUT_A+OUT_C); Wait(50); OnRev(OUT_A+OUT_C); バックします Wait(140); OnFwd(OUT_A); 90度回転します Wait(82); Off(OUT_A+OUT_C); Wait(50); sub DOWN(); 3画目です sub FIRST(); sub RISE(); OnFwd(OUT_A); 1画目-2画目間とは左右逆の動きです OnRev(OUT_C); Wait(20); OnRev(OUT_A); Wait(130); OnFwd(OUT_C); Wait(20); Off(OUT_A+OUT_C); Wait(50); OnFwd(OUT_A); 1画目-2画目間とは左右逆の動きです OnRev(OUT_C); Wait(20); OnRev(OUT_A); Wait(130); OnFwd(OUT_C); Wait(20); Off(OUT_A+OUT_C); Wait(50); sub DOWN(); 4画目です sub SECOND(); sub RISE(); } -sub未使用バージョンへ。[[2006b/A1/kuroneko/1st_robot-1]] -灰猫トップへ。[[2006b/A1/kuroneko]]