[[2005/A2/課題5]] *ええじゃないか [#tecbfa0e] #define Si 494 #define Do 523 #define Re 587 #define Mi 659 #define Fa 698 #define Sol 784 #define ra 880 #define si 988 #define Do2 1047 #define Re2 1175 task play_music() { while (true) { PlayTone(ra,25); Wait(30);//ええ PlayTone(Do2,12); Wait(17);//じゃ PlayTone(Do2,25); Wait(30);//ない PlayTone(Do2,12); Wait(17);//か PlayTone(Re2,25); Wait(30);//ええ PlayTone(Do2,12); Wait(17);//じゃ PlayTone(ra,25); Wait(30);//ない PlayTone(Fa,12); Wait(17);//か PlayTone(Mi,25); Wait(30);//ええ PlayTone(Fa,12); Wait(17);//じゃ PlayTone(Mi,25); Wait(30);//な PlayTone(Re,12); Wait(17);//い PlayTone(Do,37); Wait(42);//か Wait(5); PlayTone(Do,35); Wait(40);//い PlayTone(Re,60); Wait(65);//せ PlayTone(Mi,22); Wait(27);//の PlayTone(Fa,45); Wait(50);//め PlayTone(Mi,37); Wait(42);//い PlayTone(Re,42); Wait(47);//ぶ PlayTone(Si,25); Wait(30);//つ Wait(5); PlayTone(ra,25); Wait(30);//あ PlayTone(Do2,12); Wait(17);//か PlayTone(Do2,25); Wait(30);//ふ PlayTone(Do2,12); Wait(17);//く Wait(10); PlayTone(Do2,10); Wait(15);//も PlayTone(si,25); Wait(30);//ち PlayTone(ra,12); Wait(17);//は PlayTone(Mi,25); Wait(30);//ええ PlayTone(Fa,12); Wait(17);//じゃ PlayTone(Mi,25); Wait(30);//な PlayTone(Re,12); Wait(17);//い PlayTone(Do,30); Wait(35);//か PlayTone(Do2,5); Wait(10);// Wiat(30) } } task main() { start play_music ; }