2006a/B5

光を追いかけるロボット

光源を見失った時には明るさに比例した周波数の音を出しながら旋回して光源を探すプログラム

task main ()
{
SetSensor (SENSOR_1, SENSOR_LIGHT);
SetSensor (SENSOR_2, SENSOR_LIGHT);
while (true)
{ 
  if(SENSOR_1 > SENSOR_3)   //SENSOR_1の値がSENSOR_3の値より大きい場合
  {
    OnFwd(OUT_A);
    Off(OUT_C);
      PlayTone(SENSOR_1 * 10, 3);   //SENSOR_1の値の10倍の周波数の音を出しながら右に旋回
    }
  if(SENSOR_1 < SENSOR_3)   //SENSOR_3の値がSENSOR_1の値より大きい場合
  {
    OnFwd(OUT_C);
    Off(OUT_A);
      PlayTone(SENSOR_3 * 10, 3);   //SENSOR_3の値の10倍の周波数の音を出しながら左に旋回
  }
 }
}


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