2005/A3/課題３右 の履歴差分(No.1)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2005/A3/課題３右 へ行く。
  • 1 (2005-11-25 (金) 06:35:45)
  • 2 (2005-11-25 (金) 15:30:15)

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

[[2005/A3/課題3-a]]

[[2005/A3]]


sub Go()
{OnFwd(OUT_A+OUT_C);}
sub Back()
{OnRev(OUT_A+OUT_C);}



sub Go()
{OnFwd(OUT_A+OUT_C);}
sub Back()
{OnRev(OUT_A+OUT_C);}



task main ()
{
 SetSensor(SENSOR_1, SENSOR_LIGHT);
 SetSensor(SENSOR_2, SENSOR_LIGHT);
 SetSensor(SENSOR_3, SENSOR_LIGHT);

while(true)
{
Go();

if(SENSOR_1<40)
{OnRev(OUT_A);Wait(15);Off(OUT_A);ClearTimer(0);
if(Timer(0)>10){Back();Wait(50);OnFwd(OUT_A);Wait(50);ClearTimer(0);}
else{until(SENSOR_2<40);ClearTimer(0);};};

if(SENSOR_3<40)
{OnRev(OUT_A);Wait(15);Off(OUT_A);ClearTimer(0);
if(Timer(0)>10){Back();Wait(50);OnFwd(OUT_C);Wait(50);ClearTimer(0);}
else{until(SENSOR_2<40);ClearTimer(0);};};

}}





task main ()
{
 SetSensor(SENSOR_1, SENSOR_LIGHT);
 SetSensor(SENSOR_2, SENSOR_LIGHT);
 SetSensor(SENSOR_3, SENSOR_LIGHT);

while(true)
{
Go();
if(SENSOR_1<40)
{OnRev(OUT_A);OnFwd(OUT_C);until(SENSOR_2<40);};
if(SENSOR_3<40)
{OnRev(OUT_C);OnFwd(OUT_A);until(SENSOR_2<40);};

}}