[[2005/B4]]
*机の周りを元気に走り回るレゴ [#pae8528f]
 //作成者  B4/R オシム監督&きょうすけ
 //作成日  2005、11、22
 task main ()
 {
    SetSensor(SENSOR_3,SENSOR_TOUCH);
    SetSensor(SENSOR_1,SENSOR_TOUCH);
    OnFwd(OUT_A+OUT_C);
    while(true)
  {
     if((SENSOR_1 ==1)&&(SENSOR_3 == 1))  //正面から壁にぶつかったら、バックしてから回転                                                                                         
    {
    OnRev(OUT_A+OUT_C); Wait(40);
    OnFwd(OUT_C);       Wait(130);
    OnFwd(OUT_A);
    }
    else{if(SENSOR_3 == 0)               //右側のみ壁の時、直進
    {
      Off(OUT_C);
      OnFwd(OUT_A);
      until(SENSOR_3 == 1);
      OnFwd(OUT_A+OUT_C);
    }
    }
  }
 }

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS