2006a ロボティクス入門ゼミ

初めてのプログラム

初めてつくったプログラムです。

 task main()

{
   OnFwd(OUT_A+OUT_C); 
   Wait(300);
   OnRev(OUT_C);       
                       
   Wait(200);          
   Off(OUT_A+OUT_C);
}

課題 木を書く

完成までのプロセス

5/12

5/19

プログラム

#define  pen_down OnFwd(OUT_B); Wait(50);Off(OUT_B);//ペンをおろす
#define  pen_up OnRev(OUT_B); Wait(50);Off(OUT_B);//ペンを上げる
task main()
 {
pen_down;//ペンをおろす
 OnFwd(OUT_A+OUT_C);//一画目「一」始め! 
 Wait(150);
 Off(OUT_A+OUT_C);
 pen_up;//ペンをあげる
   OnRev(OUT_A+OUT_C);//二画目に向け来た道を戻る
   Wait(100);
   Off(OUT_A+OUT_C);
    OnRev(OUT_C);//二画目に向け左旋回       
   Wait(200);
   Off(OUT_C);
   pen_down;//ぺんをおろす
    OnFwd(OUT_A+OUT_C);//二画目「|」始め! 
    Wait(280);
    Off(OUT_A+OUT_C);
    pen_up;//ペンをあげる
      OnRev(OUT_A+OUT_C);//三画目に向け二画目の2/3の地点までもどる       
     Wait(200);       
Off(OUT_A +OUT_C);
        OnFwd(OUT_A);//三画目に向け左旋回
      Wait(100);
      Off(OUT_A);
          pen_down;//ぺんをおろす
       OnFwd(OUT_A+OUT_C);//三画目「/」始め!
       Wait(100);
       Off(OUT_A+OUT_C);
       pen_up;ペンをあげる
         OnRev(OUT_A+OUT_C);//三画目の始点までもどる 
        Wait(100);
        Off(OUT_A+OUT_C);
          OnRev(OUT_A);//四画目に向け左旋回
         Wait(200);
                Off(OUT_A);
           OnFwd(OUT_A+OUT_C);//ちょっと調整、前進する 
          Wait(150);
                  Off(OUT_A+OUT_C);
                   pen_down;//ペンをおろす
                   OnFwd(OUT_A+OUT_C); //四画目「\」始め!
          Wait(400);
          Off(OUT_A+OUT_C);//終了。上手く書けたかな?
  }

反省点

コメントをどうぞ



トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-05-23 (火) 11:10:00