- 追加された行はこの色です。
- 削除された行はこの色です。
*光を追うロボット [#sa0d0468]
**プログラム [#h8114ecf]
int i=0,i_max;
sub turn_left()
{if(SENSOR_1>=light_max){OnFwd(OUT_C);
Wait(10);
}
}
sub turn_right()
{if(SENSOR_2>=light_max){OnFwd(OUT_A);
Wait(10);
}
}
task main()
{
SetSensor(SENSOR_1, SENSOR_LIGHT);
SetSensor(SENSOR_2, SENSOR_LIGHT);
for(i=0;i<=50;i++)
{
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(10);
Off(OUT_A+OUT_C);
Wait(5);
if(SENSOR_1>=light_max){
light_max=SENSOR_1;
PlaySound(0);
}
}
OnFwd(OUT_A);
OnRev(OUT_C);
until(SENSOR_1>=light_max);
Off(OUT_A+OUT_C);
while(true){ turn_left();
turn_right();
Off(OUT_A+OUT_C);
Wait(10);
}
}
**コメントはこちら [#ncabc18c]
#comment