[[2006a/C3/課題3左]] 作成者:西日暮里 (キラキラ星・・・著作権は大丈夫だと思います^^;) #define Do 523 //ドを定義 #define Re 587 //レを定義 #define Mi 659 //ミを定義 #define Fa 698 //ファを定義 #define So 784 //ソを定義 #define Ra 880 //ラを定義 task play_music() { while (true) { PlayTone(Do,30); Wait(40); //ドを0,3秒鳴らし、次の音にいくまで0,4秒待つ PlayTone(Do,30); Wait(40); //ド PlayTone(So,30); Wait(40); //ソ PlayTone(So,30); Wait(40); //ソ PlayTone(Ra,30); Wait(40); //ラ PlayTone(Ra,30); Wait(40); //ラ PlayTone(So,70); Wait(80); //ソを0,7秒鳴らし、次の音に行くまで0,8秒待つ PlayTone(Fa,30); Wait(40); //ファ PlayTone(Fa,30); Wait(40); //ファ PlayTone(Mi,30); Wait(40); //ミ PlayTone(Mi,30); Wait(40); //ミ PlayTone(Re,30); Wait(40); //レ PlayTone(Re,30); Wait(40); //レ PlayTone(Do,70); Wait(80); //ド } } task main() { start play_music; //曲を鳴らす Wait(700); //7秒待つ stop play_music; //曲を止める } 作成者:中央線 カエルの歌、無難なところで。 #define Do 523 #define Re 587 #define Mi 659 #define Fa 698 #define So 784 #define Ra 880 task kerokero() { while (true) { PlayTone(Do,30); Wait(40); PlayTone(Re,30); Wait(40); PlayTone(Mi,30); Wait(40); PlayTone(Fa,30); Wait(40); PlayTone(Mi,30); Wait(40); PlayTone(Re,30); Wait(40); PlayTone(Do,70); Wait(80); PlayTone(Mi,30); Wait(40); PlayTone(Fa,30); Wait(40); PlayTone(So,30); Wait(40); PlayTone(Ra,30); Wait(40); PlayTone(So,30); Wait(40); PlayTone(Fa,30); Wait(40); PlayTone(Mi,40); Wait(80); PlayTone(Do,60); Wait(70); PlayTone(Do,60); Wait(70); PlayTone(Do,60); Wait(70); PlayTone(Do,60); Wait(70); PlayTone(Do,15); Wait(20); PlayTone(Do,15); Wait(20); PlayTone(Re,15); Wait(20); PlayTone(Re,15); Wait(20); PlayTone(Mi,15); Wait(20); PlayTone(Mi,15); Wait(20); PlayTone(Fa,15); Wait(20); PlayTone(Fa,15); Wait(20); PlayTone(Mi,30); Wait(40); PlayTone(Re,30); Wait(40); PlayTone(Do,40); Wait(50); } } task main() { start kerokero; Wait(1500); stop play_music; stop kerokero; }