*光を追うロボット [#sa0d0468]
**プログラム [#h8114ecf]
  int i=0,i_max;
  sub turn_left()
  {if(SENSOR_1>=light_max){OnFwd(OUT_C);
                           Wait(10);
                          }
  }
  sub turn_right()
  {if(SENSOR_2>=light_max){OnFwd(OUT_A);
                           Wait(10);
                          }
  }
  task main()
  {
    SetSensor(SENSOR_1, SENSOR_LIGHT);
    SetSensor(SENSOR_2, SENSOR_LIGHT);
    for(i=0;i<=50;i++)
    {
      OnFwd(OUT_A);
      OnRev(OUT_C);
      Wait(10);
      Off(OUT_A+OUT_C);
      Wait(5);
      if(SENSOR_1>=light_max){
                               light_max=SENSOR_1;
                               PlaySound(0);
                             }
    }
    OnFwd(OUT_A);
    OnRev(OUT_C);
    until(SENSOR_1>=light_max);
    Off(OUT_A+OUT_C);
    while(true){  turn_left();
                  turn_right();
                  Off(OUT_A+OUT_C);
                  Wait(10);
               }
  }
**コメントはこちら [#ncabc18c]
#comment



トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS