[[2005/B4/R]]
*机の周りを元気に走り回るレゴ [#pae8528f]
 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