2005/B4

机の周りを元気に走り回るレゴ

//作成者  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
Last-modified: 2005-11-22 (火) 14:11:24