課題1 似顔絵を書くロボット

ロボット本体

プログラム

#define Go OnFwd(OUT_A+OUT_C); //前進する

#define Stop Off(OUT_A+OUT_C); //止まる

#define Down OnFwd(OUT_B);Wait(40);Off(OUT_B); //ペンを上げる

#define Up OnRev(OUT_B);Wait(30);Off(OUT_B); //ペンを下げる

#define BACK OnRev(OUT_A+OUT_C); //後進する

#define Left OnFwd(OUT_C);OnRev(OUT_A);Wait(170); //反時計方向に回る

#define Right OnFwd(OUT_A);OnRev(OUT_C);Wait(150); //時計方向に回る

#define Keep Off(OUT_B); //ペン固定

task main()

{

    Down;         //鼻と左目を書く
    Go;
    Wait(80);
    Stop;
    Up;
    Wait(50);
    Stop;
    Up;
    Wait(50);
    Keep; 
    Right;
    Go;
    Wait(30);     
    Down;
    Wait(100);
    Go;
    Wait(160);
    Stop;
    Up;
    Wait(80);
    Left;
    Go;
    Wait(30);
    Down;
    Wait(100);
    Go;
    Wait(80);
    Stop;
    Up;
    Wait(50);
    Keep; 
    Left;
    Go;
    Wait(30);
    Down;
    Wait(100);
    
    Go;                  //輪郭を書く
    Wait(220);
    Stop;
    Up;
    Wait(50);
    Keep; 
    Left;
    Go;
    Wait(30);
    Down;
    Wait(100);
    Go;
    Wait(200);
    Stop;
    Up;
    Wait(50);
    Keep; 
    Left;
    Go;
    Wait(30);
    Down;
    Wait(80);
    Go;
    Wait(220);
    Stop;
    Up;
    Wait(50);
    Keep; 
    Left;
    Go;
    Wait(30);
    Down;
    Wait(100);
   
    Go;              //右目と口を書く
    Wait(80);
    Stop;
    Up;
    Wait(50);
    Keep; 
    Left;
    Go;
    Wait(30);
    Go;
    Wait(180);
    Stop;
    Up;
    Wait(50);
    Keep; 
    Right;
    Go;
    Wait(30);
    Down;
    Wait(100);
    Go;
    Wait(80);
    Stop;
    Up;
    Wait(80);
    Keep; 
}     //おわり、

感想

プログラムが難しくあまりうまくいかなかった。 次からはもっと難しくなると思うので無理かもしれない。


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