2005/B2/課題４右 の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2005/B2/課題４右 へ行く。
  • 1 (2006-01-06 (金) 08:44:47)

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

 task main()
 {
   SetSensor(SENSOR_1, SENSOR_LIGHT);
   int hikari = 0;    //光の強さの値(初期値０)
   
   
   
   int mt;
   
   
   while (true)
   {
   ClearTimer(0);
   ClearTimer(1);
   hikari = 0;
   
   while (Timer(1) < 50)//５秒間回る(一周回る
   {     
   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);//３秒間直進
   }
 }