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

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

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

 task main()
 { SetSensor(SENSOR_1,SENSOR_TOUCH);
  SetSensor(SENSOR_3,SENSOR_TOUCH);
 
  while(true)
  {OnFwd(OUT_A+OUT_C);//前進
   if(SENSOR_1==1)
    {OnRev(OUT_A+OUT_C);Wait(50);//後退
     OnFwd(OUT_A);OnRev(OUT_C);Wait(200);回転
     OnFwd(OUT_A+OUT_C);//前進
    }
   if(SENSOR_3==1)
    {OnRev(OUT_A+OUT_C);Wait(50);//後退
     OnFwd(OUT_C);OnRev(OUT_A);Wait(200);//回転
     OnFwd(OUT_A+OUT_C);//前進}
 }