2006a/C5/課題3左/プログラム編/プログラム3 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 2006a/C5/課題3左/プログラム編/プログラム3 へ行く。
• 2006a/C5/課題3左/プログラム編/プログラム3 の差分を削除

[[2006a/C5/課題3左/プログラム編]]

制作者:ぼくつね



   #define Do  523
   #define Re  587
   #define Mi  659
   #define Fa  698
   #define So  784
   #define Ra  880
   #define Si  988
   #define Doh 1047
   #define Reh 1175
   
   task play_music1()   
   {
       while (true)
       {
        /*EDELWEISS*/
        PlayTone(Mi,75); Wait(80);    
        PlayTone(So,25); Wait(30);    
        PlayTone(Reh,70); Wait(75);   
        
        PlayTone(Doh,75); Wait(80);
        PlayTone(So,25); Wait(30);
        PlayTone(Fa,70); Wait(75);
        
        PlayTone(Mi,60); Wait(65);
        PlayTone(Mi,20); Wait(30);
        PlayTone(Mi,25);  Wait(30);
        PlayTone(Fa,25); Wait(30);
        PlayTone(So,25);  Wait(30);
        PlayTone(Ra,55);  Wait(60);
        PlayTone(So,75); Wait(80);
        Wait(20);
             
        
          }
      }
     
      task play_music2()
      {
        while (true)
       {
          /* HOTARU no HIKARI */
     
        PlayTone(Do,65); Wait(70);  
        PlayTone(Fa,55); Wait(60);  
        PlayTone(Fa,35); Wait(40);   
        PlayTone(Fa,40); Wait(48);
          
        PlayTone(Ra,50); Wait(55);
        PlayTone(So,55); Wait(57);
        PlayTone(Fa,35); Wait(40);
        PlayTone(So,40); Wait(50);
          
        PlayTone(Ra,45); Wait(50);
        PlayTone(Fa,40); Wait(45);
        PlayTone(Fa,40); Wait(45);
        PlayTone(Ra,55); Wait(60);
        PlayTone(Doh,40); Wait(45);
        PlayTone(Reh,55); Wait(60);
        Wait(20);     
      
       
      
       }
   }
   
   
 #define L OUT_A 
 #define R OUT_C
 #define t OnFwd(L);OnRev(R);
 #define tL OnFwd(R);Off(L);
 #define tR OnFwd(L);Off(R);
 #define gs OnFwd(L+R);
 #define off Off(L+R);Wait(1);
    
 task main()
 {
   SetSensor(SENSOR_1,SENSOR_LIGHT);
   SetSensor(SENSOR_3,SENSOR_LIGHT);
   
        while(true)
    {
      gs
      if(SENSOR_1>40)
      {while(SENSOR_1>40) start play_music1; {tL off}}
      if(SENSOR_3>40)
      {while(SENSOR_3>40 )  start play_music1; {tR off}}
      if((SENSOR_1<40)&&(SENSOR_3<40))
      {
      start play_music2;
      t
      until ((SENSOR_1>40)||(SENSOR_3>40));
      off
      stop play_music2;
      }
    }
 }