2005/B6/課題2

ここにはB6L(05F4040B)のプログラムを表示します。

task main()
{
   SetSensor(SENSOR_1, SENSOR_TOUCH);    //左側についているバンパーにタッチセンサーがついています。
   SetSensor(SENSOR_3, SENSOR_TOUCH);    //右側についているバンパーにタッチセンサーがついています。
   
   
   OnFwd(OUT_A+OUT_C);            
   
 
   while(true)
   {
   if(SENSOR_3 == 1)         //右のバンパーが接している時
   {
       OnRev(OUT_A) ; Wait(15);       //方向転換します。
       OnFwd(OUT_A) ; Wait(20);       //直進します。
   }
   
   
   if((SENSOR_1 == 1) && (SENSOR_3 == 1))   //左右のバンパーが接している、つまり前方にぶつかった場合
   {
       
	OnRev(OUT_A+OUT_C) ; Wait(30);      //バックします
       OnFwd(OUT_C) ; Wait(30);                   // 方向転換します。
	OnFwd(OUT_A);                              // 直進します。
   }
   
   if(SENSOR_3 == 0)                     //右のバンパーが接していないとき
   {
       OnRev(OUT_A+OUT_C);Wait(30);
	OnFwd(OUT_C);Wait(5);
	OnFwd(OUT_A+OUT_C);Wait(30);Wait(25);
	OnRev(OUT_C);Wait(40);
	OnFwd(OUT_C);Wait(50);
   
   }
   
   if(SENSOR_1 == 1)                      //左のバンパーが接しているとき
   {
       OnRev(OUT_C+OUT_A);Wait(30);
	OnFwd(OUT_C);Wait(60);
	OnFwd(OUT_A);Wait(30);
   
   }
   
   }
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-06 (月) 18:40:38