2005/B2/MemberOnly/光に向かって進むロボ?

task main()
{
  SetSensor(SENSOR_1, SENSOR_LIGHT);
  int hikari = 0;    //光の強さの値(初期値0)
  
  
  
  int mt;
  
  
  while (true)
  {
  ClearTimer(0);
  ClearTimer(1);
  hikari = 0;
  
  while (Timer(1) < 50)//5秒間回る(一周回る
  {     
  OnFwd(OUT_A);OnRev(OUT_C);
  
       if (SENSOR_1 > hikari)
        {
        hikari=SENSOR_1;
        mt = FastTimer(0);//一番光の強かったときの時間を記憶
        }
  
  }
  int lt;
  lt = FastTimer(0);
  
  OnFwd(OUT_C);OnRev(OUT_A);Wait(lt - mt);//一番光の強い方向を向く
  OnFwd(OUT_A+OUT_C);Wait(300);//3秒間直進
  }
}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-09 (木) 00:29:57