#define THRESHOLD 45
task main(){
SetSensor(SENSOR_1,SENSOR_LIGHT);
OnFwd(OUT_A+OUT_C);
while(true){
 while(SENSOR_1>THRESHOLD){
  OnFwd(OUT_A+OUT_C);
  until(SENSOR_1<THRESHOLD)
  ClearTimer(0);
  OnFwd(OUT_A);
  OnRev(OUT_C);
  until((SENSOR_1>THRESHOLD)||(Timer(0)>=10));
  if(Timer(0)>=10){
   ClearTimer(0);
   OnRev(OUT_A);
   OnFwd(OUT_C);
   until((SENSOR_1>THRESHOLD)||(Timer(0)>=20));
  }
 }
}
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-02-15 (火) 18:05:07 (5302d)