2005/MemberOnly/進行状況B

2005/B4

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

//作成者  B4/R オシム監督&きょうすけ
//作成日  2005、11、22
task main ()
{
   SetSensor(SENSOR_3,SENSOR_TOUCH);     //センサー1、3をタッ
   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: 2006-02-09 (木) 00:22:28