2004/B1/28班練習問題/演奏 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 2004/B1/28班練習問題/演奏 へ行く。
• 2004/B1/28班練習問題/演奏 の差分を削除

[[2004/B1/28班練習問題]]

*演奏ロボット [#v958d646]

 #define Do 523
 #define Re 587
 #define Mi 659
 #define Fa 698
 #define So 784
 #define Ra 880
 #define Si 988
 
 task play_music1()
 {
    while (true)
    {
        PlayTone(Do,20); Wait(25);
        PlayTone(Re,20); Wait(25);  
        PlayTone(Mi,20); Wait(25); 
        PlayTone(Fa,20); Wait(25);
        PlayTone(Mi,20); Wait(25);  
        PlayTone(Re,20); Wait(25);
        PlayTone(Do,20); Wait(45);
 
        PlayTone(Mi,20); Wait(25);
        PlayTone(Fa,20); Wait(25);
        PlayTone(So,20); Wait(25);
        PlayTone(Ra,20); Wait(25);
        PlayTone(So,20); Wait(25);
        PlayTone(Fa,20); Wait(25);
        PlayTone(Mi,20); Wait(45);
 
        PlayTone(Do,20); Wait(45);
        PlayTone(Do,20); Wait(45);
        PlayTone(Do,20); Wait(45);
        PlayTone(Do,20); Wait(45);
 
        PlayTone(Do,10); Wait(15);  
        PlayTone(Do,10); Wait(15); 
        PlayTone(Re,10); Wait(15);
        PlayTone(Re,10); Wait(15);  
        PlayTone(Mi,10); Wait(15);
        PlayTone(Mi,10); Wait(15);
        PlayTone(Fa,10); Wait(15);
        PlayTone(Fa,10); Wait(15);
        PlayTone(Mi,20); Wait(25);
        PlayTone(Re,20); Wait(25);
        PlayTone(Do,20); Wait(25);
    }
 }
 
 task play_music2()
 {
    while (true)
    {
        PlayTone(Do,20); Wait(25);
        PlayTone(Re,20); Wait(25);  
        PlayTone(Mi,20); Wait(45);
 
        PlayTone(Do,20); Wait(25);
        PlayTone(Re,20); Wait(25);  
        PlayTone(Mi,20); Wait(45);
 
        PlayTone(So,20); Wait(25);
        PlayTone(Mi,20); Wait(25);
        PlayTone(Re,20); Wait(25);
        PlayTone(Do,20); Wait(25);
        PlayTone(Re,20); Wait(25);
        PlayTone(Mi,20); Wait(25);
        PlayTone(Re,20); Wait(45);
 
        PlayTone(Do,20); Wait(25);
        PlayTone(Re,20); Wait(25);  
        PlayTone(Mi,20); Wait(45);
 
        PlayTone(Do,20); Wait(25);
        PlayTone(Re,20); Wait(25);  
        PlayTone(Mi,20); Wait(45);
 
        PlayTone(So,20); Wait(25);
        PlayTone(Mi,20); Wait(25);
        PlayTone(Re,20); Wait(25);
        PlayTone(Do,20); Wait(25);
        PlayTone(Re,20); Wait(25);
        PlayTone(Mi,20); Wait(25);
        PlayTone(Do,20); Wait(45);
    }
 }
 
 task main()
 {
   SetSensor(SENSOR_1, SENSOR_TOUCH);
   while(true)
     {
       start play_music1;    
       OnFwd(OUT_A);   
       until (SENSOR_1==1);
       if (SENSOR_1==1);
       stop play_music1;
       start play_music2; 
       OnRev(OUT_A);
       Wait(350);
     }
 }