「井」の字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]]

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS