2006b/A1/kuroneko/2nd_robot-t の履歴ソース(No.1)

• 履歴一覧
• 2006b/A1/kuroneko/2nd_robot-t は削除されています。
  • 1 (2006-12-08 (金) 03:54:48)

[[2006b/A1/課題２右]]


 #define DDDDD 150
 task main()
 {
 SetSensor(SENSOR_1,SENSOR_LIGHT);
 SetSensor(SENSOR_2,SENSOR_TOUCH);
 SetSensor(SENSOR_3,SENSOR_LIGHT);
 
 while(true)
 {
 OnFwd(OUT_A+OUT_C);
 
 if(SENSOR_1<40)
 {
 Off(OUT_A);
 Wait(5);
 if(SENSOR_1<40)
 {OnRev(OUT_A);
 until(SENSOR_1>40);
 }}
 
 if (SENSOR_3<40)
 {
 Off(OUT_C);
 Wait(5);
 if(SENSOR_3<40)
 {OnRev(OUT_C);
 until(SENSOR_3>40);
 }}
 
 if(SENSOR_2==1)
 {
 OnRev(OUT_A+OUT_C);
 Wait(30);
 OnFwd(OUT_A);
 Wait(96);
 OnFwd(OUT_C);
 Wait(DDDDD);
 OnRev(OUT_A);
 Wait(96);
 OnFwd(OUT_A);
 Wait(DDDDD+30);
 OnRev(OUT_A);
 Wait(96);
 OnFwd(OUT_A);
 until(SENSOR_1<40);
 }
 
 }}