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
Last-modified: 2005-11-09 (水) 12:45:39