*光を追うロボット [#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