2006b/A6/R Room/TAKA

#define TURN_TIME 300

sub move

{OnFwd(OUT_A+OUT_C);
                    

task main () {

 SetSensor (SENSOR_1,SENSOR_LIGHT);
 SetSensor(SENSOR_3, SENSOR_LIGHT);
 int light_max=0,time_max;

while(true)
{
 ClearTimer(0);
 OnFwd(OUT_A);
 OnRev(OUT_C);
 
    
 while(FastTimer(0)<TURN_TIME)
    {
      if(SENSOR_1>light_max)
      {
       light_max=SENSOR_1;
       time_max=TURN_TIME-FastTimer(0)+10;
      }
    }


      Off(OUT_A+OUT_C);
   
   OnFwd(OUT_C);
   OnRev(OUT_A);
   
   Wait(time_max);
   Off(OUT_A+OUT_C);

  OnFwd(OUT_A+OUT_C);
    Wait(200);
   } 

 }

#define TURN_TIME 400

task main () {

 SetSensor (SENSOR_1,SENSOR_LIGHT);
 int light_max=0,time_max;
 ClearTimer(0);
 OnFwd(OUT_A);
 OnRev(OUT_C);
 
 while(FastTimer(0)<TURN_TIME)
    {
      if(SENSOR_1>light_max)
      {
       light_max=SENSOR_1;
       time_max=TURN_TIME-FastTimer(0)+10;
      }
    }
    
    Off(OUT_A+OUT_C);
   
   OnFwd(OUT_C);
   OnRev(OUT_A);
   
   Wait(time_max);
   Off(OUT_A+OUT_C);
 }

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-12-22 (金) 14:32:16 (4629d)