[[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);
   turn_right(100);
   OnFwd(OUT_C);
   Wait(300);
   OnRev(OUT_A);
   Wait(245);
   OnRev(OUT_B);  // B 負回転
   Wait(150);
   OnFwd(OUT_A); // 2画
   Wait(1000);
   OnRev(OUT_C);
   Wait(950);
   OnFwd(OUT_B);  //B up
   Wait(150);
   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);
   OnRev(OUT_A+OUT_C);
   Wait(350);
   OnRev(OUT_B);  //B down
   Wait(150);
   turn_left(110);
   OnFwd(OUT_A+OUT_C);   4画
   Wait(300);
   OnFwd(OUT_B);   //B up
   Wait(150)
   turn_right(110);
   OnFwd(OUT_A+OUT_C);
   Wait(250);
   OnRev(OUT_B)    //B 負回転
   Wait(150);
   OnRev(OUT_A+OUT_C);  //5画
   Wait(500);
   Off(OUT_A+OUT_B+OUT_C);
   }
 #comment

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