2006b/A1/課題３左/プログラム2 の履歴ソース(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2006b/A1/課題３左/プログラム2 へ行く。
  • 1 (2006-12-25 (月) 08:43:03)
  • 2 (2006-12-25 (月) 08:54:47)
  • 3 (2007-01-11 (木) 18:36:54)

[[2006b/A1/課題３左]]

*センサー２個のプログラム [#l43e1c04]

 #define TURN_TIME 400
 #define left OnRev(OUT_A);OnFwd(OUT_C);
 #define go OnFwd(OUT_A+OUT_C);
 #define offAC Off(OUT_A+OUT_C);
 #define TURN_LIGHT 10
 #define turn_go 5
 task main()
 {
 
 int light_max=0,time_max=0;
 SetSensor(SENSOR_1,SENSOR_LIGHT);
 SetSensor(SENSOR_2,SENSOR_LIGHT);
 
 start play_music;
 
 ClearTimer(0);OnFwd(OUT_A);OnRev(OUT_C);
 
 while(FastTimer(0)<TURN_TIME){
       
       if(SENSOR_1>light_max)
       {
       light_max=SENSOR_1;
       time_max=FastTimer(0);
       }
       }
       OnRev(OUT_A);OnFwd(OUT_C);
       Wait(TURN_TIME-time_max);
        Off(OUT_A+OUT_C);
        
 stop play_music;    
       
         
 while(true){
      if(SENSOR_1>SENSOR_2)
      {
      OnFwd(OUT_C);
      OnRev(OUT_A);
      Wait(TURN_LIGHT);
      OnFwd(OUT_A+OUT_C);Wait(turn_go);
      }
      if(SENSOR_1<SENSOR_2)
      {
      OnFwd(OUT_A);
      OnRev(OUT_C);
      Wait(TURN_LIGHT);
      OnFwd(OUT_A+OUT_C);Wait(turn_go);
      }
     
       
            }
            }
            
            
              
             
 
 #define Do 523
 #define Re 587 
 #define Mi 659 
 #define Fa 698 
 #define Sol 784 
 #define ma 55 
 #define k 50
            
 task play_music()
 { 
 while(true)
 {
 曲
 
 }
 }