2004/B6/練習問題 の履歴ソース(No.3)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2004/B6/練習問題 へ行く。
  • 1 (2004-12-17 (金) 08:44:42)
  • 2 (2004-12-17 (金) 09:01:26)
  • 3 (2005-01-21 (金) 09:05:21)
  • 4 (2005-02-11 (金) 09:22:06)
  • 5 (2005-02-11 (金) 10:16:57)

[[2004/B6/26班]]
#contents
*ハート型を描くロボット [#f4299283]
ハート型を描くロボットのプログラム
 
task main ()
{
OnFwd(OUT_A+OUT_C);Wait(６８);
OnFwd(OUT_A);Off(OUT_C);Wait(296);
OnRev(OUT_A);OnFwd(OUT_C);Wait(250);
OnFwd(OUT_A);Off(OUT_C);Wait(296);
OnFwd(OUT_A+OUT_C);Wait(110);
Off(OUT_A+OUT_C);

}

* 台から落ちないロボット [#j1005474]
台から落ちないロボットのプログラム

task main()
{
  SetSensor(SENSOR_1,SENSOR_TOUCH);
  SetSensor(SENSOR_3,SENSOR_TOUCH);

  while(true)
  {
   OnFwd(OUT_A+OUT_C);
   until((SENSOR_1==1)||(SENSOR_3==1));
   OnRev(OUT_A+OUT_C);Wait(100);
   OnFwd(OUT_A);Wait(100);
   OnFwd(OUT_C);
  }
}

*モーター1つでライントレースするロボット [#xbaba159]
モーター1つでライントレースするプログラム
 
#define THRESHOLD 45
#define RUN_TIME 150
task main ()
{
    SetSensor(SENSOR_2, SENSOR_LIGHT);
    ClearTimer(0);
    while ( Timer(0) <= RUN_TIME ) {
        if (SENSOR_1 < THRESHOLD) {
            OnFwd(OUT_A);
        } else {
            OnRev(OUT_A);
        }
    }
}

*光を追いかけるロボット [#v20fcc69]
光を追いかけるロボットのプログラム

*音のなるロボット [#s365010e]
音のなるロボットのプログラム