2004/B1/28班練習問題

台から落ちないロボット†

task main()
{
    SetSensor(SENSOR_1, SENSOR_TOUCH); //タッチセンサーの設定
    SetSensor(SENSOR_3, SENSOR_TOUCH); 

    while(true)
    {
        OnFwd(OUT_A+OUT_C) ;
        until (SENSOR_1 || SENSOR_3 == 1) ;　//どちらかのセンサーが反応するまで直進
        {
              if (SENSOR_1 == 1) //右センサーが反応した場合
              {
              OnRev(OUT_A+OUT_C) ; Wait(50); //後退
              OnFwd(OUT_A) ; Wait(150); //左回転
              OnFwd(OUT_A+OUT_C) ; //前進
              }
              if (SENSOR_3 == 1) //左センサーが反応した場合
              {
              OnRev(OUT_A+OUT_C) ; Wait(50); //後退
              OnFwd(OUT_C) ; Wait(150); //右回転
              OnFwd(OUT_A+OUT_C) ; //前進
              }
        }
    }
}

小さな箱の上で動かすと、よりたのしい。

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-01-31 (月) 13:30:07