2005/A5

課題4 光を追いかけるロボット

製作者:SAS そーむ 巻き舌宇宙
製作日:12/12
ロボット名:ブロッケン翁 ver.L

NEC_0039.JPG NEC_0040.JPG
   ↑何かいい感じに写真撮れたなぁ こういうのレンズフレアっていうんだっけ?
NEC_0041.JPG NEC_0042.JPG NEC_0043.jpg

可動するセンサーヘッド!!(手動だけど…)

あ、動画も置いといたんで見てやって下せえ これ←さぁ今すぐクリックだ!

プログラム

製作者:巻き舌宇宙
製作日:1/5
#define front OnFwd(OUT_A+OUT_C);                      //前進するマクロ
#define turn_r OnFwd(OUT_A);OnRev(OUT_C);              //右旋回のマクロ
#define turn_l OnFwd(OUT_C);OnRev(OUT_A);              //左旋回のマクロ

int max;
int time;

task main()
{
   SetSensor(SENSOR_1,SENSOR_LIGHT);                   //センサー1,2
   SetSensor(SENSOR_3,SENSOR_LIGHT);                   //の定義
   SetPower(OUT_A+OUT_C,1);                            //トルク設定

   max=SENSOR_1;                                       //センサー1が最大
   time=Timer(0);                                      //timeをタイマー0に設定
   ClearTimer(0);                                      //タイマーをクリアー
   while(Timer(0)<=12)                                 //12秒間
   {
       turn_r                                          //右旋回
       if(SENSOR_1>max)                                //センサー1が最大値
         {                       //以上なら
          ClearTimer(1);                               //タイマー1を消去
          max=SENSOR_1;                                //最大値を更新
         }
       else                                            //そうでなければ
         {
          max=max;                                     //最大値はそのまま
          time=Timer(1);                               //timeをタイマー1に
         }
  }

  ClearTimer(1);                                       //タイマー1を消去
  while(Timer(1)<=time)                                //timeまで
  {turn_l}                                             //左旋回
  while(true)                                          //
  {
       front                                           //最大値-20より
       while((SENSOR_1>=max-20)&&(SENSOR_3>=max-20));  //明るければ前進
       if((SENSOR_1<max-15)&&(SENSOR_3>=max-15))       //左が暗くなったら
        {
         turn_r                                        //両方明るくなる
         until((SENSOR_1>=max-15)&&(SENSOR_3>=max-15));//まで右旋回
         }
       if((SENSOR_1>=max-15)&&(SENSOR_3<max-15))       //右が暗くなったら
        {
         turn_l                                        //両方明るくなる
         until((SENSOR_1>=max-15)&&(SENSOR_3>=max-15));//まで左旋回
         }
       if((SENSOR_1<max-15)&&(SENSOR_3<max-15))        //両方暗いなら
       {
        turn_l                                         //両方明るくなる
        until((SENSOR_1>=max-15)&&(SENSOR_3>=max-15)); //まで左旋回
        }
   }
}

 反省など

ロボット自体は一瞬で出来上がってしまった。・・・が!プログラムがどう頑張っても進まなかった。
結局完成したもロボも大して反応してくれずに何回かに一回はただただくるくる回る始末。残念!
ただ動画を見ればとりあえず光を追うロボットに仕上がっていることがわかっていただけるかな。

不特定多数から物申されよう!のコーナー

コメントをどうぞ!



添付ファイル: fileブロッケン翁 ver.L.wmv 187件 [詳細] fileNEC_0043.jpg 148件 [詳細] fileNEC_0042.JPG 143件 [詳細] fileNEC_0041.JPG 135件 [詳細] fileNEC_0040.JPG 134件 [詳細] fileNEC_0039.JPG 122件 [詳細]

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-13 (月) 16:44:21