2005/A6/KRRの部屋

 
*11月4日のKRRの部屋にようこそ
*『漢字ロボ.3人の中で、一番べタなプログラミング』
 void turn_left(int x)

{

   OnRev(OUT_A); OnFwd(OUT_C);
   Wait(x);
   Off(OUT_A+OUT_C);

} void turn_right(int y) {

   OnFwd(OUT_A); OnRev(OUT_C);
   Wait(y);
   Off(OUT_A+OUT_C);

} task main() // betana sadou komanndo {

  OnFwd(OUT_A+OUT_C);  //1kakume
  Wait(350);
  OnFwd(OUT_B);  //B up
  Wait(20);
  OnRev(OUT_A+OUT_C); //modoru
  Wait(150);
  turn_right(70);
  OnFwd(OUT_C);
  Wait(15);
  OnRev(OUT_A);
  Wait(14);
  OnFwd(OUT_C);
  Wait(35);
  OnRev(OUT_A);
  Wait(30);
  OnFwd(OUT_C);
  Wait(35);
  OnRev(OUT_A);
  Wait(30);
  OnFwd(OUT_C);
  Wait(35);
  OnRev(OUT_A);
  Wait(30);
  OnFwd(OUT_C);
  Wait(35);
  OnRev(OUT_A);
  Wait(30);
  OnRev(OUT_B);  // B down
  Wait(20);
  OnFwd(OUT_A); // 2kaku
  Wait(500);
  OnRev(OUT_C);
  Wait(450);
  OnFwd(OUT_B);  //B up
  Wait(20);
  OnFwd(OUT_C);
  Wait(25);
  OnRev(OUT_A);
  Wait(15);
  OnFwd(OUT_C);
  Wait(25);
  OnRev(OUT_A);
  Wait(15);
  OnFwd(OUT_C);
  Wait(25);
  OnRev(OUT_A);
  Wait(15);
  OnRev(OUT_B);  // B down
  Wait(20);
  turn_right(25);
  OnFwd(OUT_A+OUT_C); //3kaku
  Wait(150);
  OnFwd(OUT_B);   //B up
  Wait(20);
  OnRev(OUT_A+OUT_C);
  Wait(100);
  OnRev(OUT_B);  //B down
  Wait(20);
  turn_left(70);
  OnFwd(OUT_A+OUT_C);  //4kaku
  Wait(100);
  OnFwd(OUT_B);   //B up
  Wait(20);
  turn_right(70);
  OnFwd(OUT_A+OUT_C);
  Wait(150);
  OnRev(OUT_B) ;   //B down 
  Wait(20);
  OnRev(OUT_A+OUT_C);  //5kaku
  Wait(300);
  Off(OUT_A+OUT_B+OUT_C);

}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-07 (月) 16:19:55 (5039d)