2004/B2/台から落ちないロボット の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2004/B2/台から落ちないロボット へ行く。
  • 1 (2005-01-07 (金) 08:38:16)
  • 2 (2005-01-07 (金) 08:58:47)

[[2004//練習問題]]
台から落ちない!

  task main()
  {
  SetSensor(SENSOR_1, SENSOR_TOUCH);  //端子1をタッチセンサーとする
   while(true)
    {  
      OnFwd(OUT_A+OUT_C); //  前に進む 
      until (SENSOR_1 == 0);  // センサーが机と離れる(落ちそうになる)
      OnRev(OUT_A+OUT_C);  Wait(200);  //落ちないようにその場で回転する
      OnFwd(OUT_A); Wait(100);  // 右回りで進む  そして10秒待つ
      OnFwd(OUT_C);  //左回りで進む
    }
  }