[[2004/B2/練習問題]]
演奏!

 #define Fl 349
 #define Gl 392
 #define Al 440
 #define Bl 494 
 #define C  523
 #define D  587
 #define E  659
 #define F  698
 #define FS 740
 #define G  784
 #define A  880
 #define AS 932
 #define B  988
 #define Ch 1047
-[[空も飛べるはず(スピッツ)>2004/B2/空も飛べるはず]]

        task play_music()//空も飛べるはず (スピッツ)
            {
             while (true)
            {
              PlayTone(C,30);Wait(35);
              PlayTone(D,30);Wait(35);
              PlayTone(E,60);Wait(65);
              PlayTone(E,60);Wait(65);
              PlayTone(D,30);Wait(35);
              PlayTone(c,30);Wait(35);
              PlayTone(Bl,60);Wait(65);
              PlayTone(C,60);Wait(65);
              PlayTone(Bl,30);Wait(35);
              PlayTone(Al,60);Wait(65);
              
              PlayTone(C,30);Wait(35);
              PlayTone(D,30);Wait(35);
              PlayTone(E,60);Wait(65);
              PlayTone(E,60);Wait(65);
              PlayTone(D,30);Wait(35);
              PlayTone(E,30);Wait(35);
              PlayTone(F,60);Wait(65);
              PlayTone(E,60);Wait(105);
              PlayTone(A,60);Wait(65);
              PlayTone(G,30);Wait(35);
              
              PlayTone(C,30);Wait(35);
              PlayTone(D,30);Wait(35);
              PlayTone(E,60);Wait(65);
              PlayTone(E,60);Wait(65);
              PlayTone(D,30);Wait(35);
              PlayTone(C,30);Wait(35);
              PlayTone(Bl,60);Wait(65);
              PlayTone(C,60);Wait(65);
              PlayTone(Bl,30);Wait(35);
              PlayTone(Al,60);Wait(65);
              PlayTone(Bl,30);Wait(35);
              PlayTone(C,30);Wait(35);
              PlayTone(G,300);Wait(305);
             }
            }
   task main()         
 {  
   start play_music ; 
}



トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS