2005/B4/課題２ の履歴差分(No.1)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2005/B4/課題２ へ行く。
  • 1 (2005-11-22 (火) 04:47:40)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[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);
    }
    }
  }
 }