2009a/A8/課題1右

2009a/A8/課題1右/プログラム2

2009a/A8/課題1右/プログラム3

プログラム 

作成者・西口
#define circle_time 900                             //円を描く時間  
#define circle OnFwd(OUT_C);Wait(circle_time);Off(OUT_C);                    //円を描くプログラム
#define up_pen OnFwd(OUT_B);Wait(5);Off(OUT_B);                              
#define down_pen OnRev(OUT_B);Wait(5);Off(OUT_B);                            //ペンを上げ下げするプログラム
#define go(t) OnFwd(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C); 
#define back(t) OnRev(OUT_A+OUT_C);Wait(t);Off(OUT_A+OUT_C);                 //前後に動くプログラム
#define turn_right(t) OnFwd(OUT_C);OnRev(OUT_A);Wait(t);Off(OUT_A+OUT_C);
#define turn_left(t) OnFwd(OUT_A);OnRev(OUT_C);Wait(t);Off(OUT_A+OUT_C);     //左右に回転するプログラム


task main()
{  
  circle;
  back(200);
  up_pen;
  back(100);
  turn_right(15);
  go(200);
  down_pen;
  go(35);
  up_pen;
  go(20);
  down_pen;
  go(35);
  up_pen;
  go(100);
  turn_left(30);
  back(145);
  down_pen;
  back(50);
  up_pen;
  back(90);
  turn_right(105);
  go(300);
  turn_right(45);
  back(386); 
  down_pen;
  back(20);
  up_pen;
  back(20);
  Off(OUT_A+OUT_C);  
}

添付ファイル: file090522_1836~010001.bmp 414件 [詳細]

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-05-22 (金) 17:26:03