[ 戻る ]

それでは成功したプログラムを!!!

プログラム(成功)

sub down_pen()
{
    OnFwd(OUT_B);
   Wait(70);
   Off(OUT_B);
}

sub up_pen()
{
   OnRev(OUT_B);
   Wait(67);
   Off(OUT_B);
}

sub turn_R()
{
   OnFwd(OUT_C);
   OnRev(OUT_A);
}

sub turn_L()
{
   OnFwd(OUT_A);
   OnRev(OUT_C);
}


task main()
{
   down_pen();
   OnFwd(OUT_A+OUT_C);
   Wait(25);
   Float(OUT_A+OUT_C);
   up_pen();
   OnFwd(OUT_A+OUT_C);
   Wait(12);
   Float(OUT_A+OUT_C);
   turn_R();
   Wait(100);
   Off(OUT_A+OUT_C);
   down_pen();
   OnRev(OUT_A+OUT_C);
   Wait(68);
   Float(OUT_A+OUT_C);
   up_pen();
   OnFwd(OUT_A+OUT_C);
   Wait(60);
   Float(OUT_A+OUT_C);
   turn_R();
   Wait(100);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A+OUT_C);
   Wait(22);
   Float(OUT_A+OUT_C);
   down_pen();
   OnFwd(OUT_A+OUT_C);
   Wait(34);
   Float(OUT_A+OUT_C);
   OnFwd(OUT_C);
   Wait(34);
   Float(OUT_C);
   up_pen();
   turn_L();
   Wait(98);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A+OUT_C);
   Wait(12);
   Float(OUT_A+OUT_C);
   down_pen();
   OnFwd(OUT_A+OUT_C);
   Wait(43);
   Float(OUT_A+OUT_C);
   up_pen();
   OnFwd(OUT_A+OUT_C);
   Wait(7);
   Float(OUT_A+OUT_C);
   turn_L();
   Wait(100);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A+OUT_C);
   Wait(9);
   Float(OUT_A+OUT_C);
   down_pen();
   OnRev(OUT_A+OUT_C);
   Wait(40);
   Float(OUT_A+OUT_C);
   up_pen();
   OnFwd(OUT_A+OUT_C);
   Wait(56);
   Float(OUT_A+OUT_C);
   turn_L();
   Wait(84);
   Off(OUT_A+OUT_C);
   OnRev(OUT_A+OUT_C);
   Wait(3);
   Float(OUT_A+OUT_C);
   down_pen();
   OnRev(OUT_A+OUT_C);
   Wait(47);
   Float(OUT_A+OUT_C);
   
   
   
   
   
   
}
[ 戻る ]

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-12-09 (金) 18:47:42