[[2005/A3]] *音の出るロボット [#o094c2ee] **曲名『蛙の歌』 [#s745dd54] 製作者:さいえんてぃすと #define Do 523 #define Re 587 #define Mi 659 #define Fa 698 #define Sol 784 #define Ra 880 #define Shi 988 task play_music() { 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,30); Wait(35); PlayTone(Mi,20); Wait(25); PlayTone(Fa,20); Wait(25); PlayTone(Sol,20); Wait(25); PlayTone(Ra,20); Wait(25); PlayTone(Sol,20); Wait(25); PlayTone(Fa,20); Wait(25); PlayTone(Mi,35); Wait(40); PlayTone(Do,35); Wait(40); PlayTone(Do,35); Wait(40); PlayTone(Do,35); Wait(40); PlayTone(Do,35); Wait(40); 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,35); Wait(40); PlayTone(Re,35); Wait(40); PlayTone(Do,45); Wait(50); while (true) { PlayTone(Do,30); Wait(35); SendMessage(1); PlayTone(Re,30); Wait(35); SendMessage(2); PlayTone(Mi,30); Wait(35); SendMessage(1); PlayTone(Fa,30); Wait(35); SendMessage(2); PlayTone(Mi,30); Wait(35); SendMessage(1); PlayTone(Re,30); Wait(35); SendMessage(2); PlayTone(Do,40); Wait(50); SendMessage(1); PlayTone(Mi,30); Wait(35); SendMessage(2); PlayTone(Fa,30); Wait(35); SendMessage(1); PlayTone(Sol,30); Wait(35); SendMessage(2); PlayTone(Ra,30); Wait(35); SendMessage(1); PlayTone(Sol,30); Wait(35); SendMessage(2); PlayTone(Fa,30); Wait(35); SendMessage(1); PlayTone(Mi,45); Wait(55); SendMessage(2); PlayTone(Do,45); Wait(50); SendMessage(1); PlayTone(Do,45); Wait(50); SendMessage(2); PlayTone(Do,45); Wait(50); SendMessage(1); PlayTone(Do,45); Wait(50); SendMessage(2); PlayTone(Do,25); Wait(30); SendMessage(1); PlayTone(Do,25); Wait(30); SendMessage(2); PlayTone(Re,25); Wait(30); SendMessage(1); PlayTone(Re,25); Wait(30); SendMessage(2); PlayTone(Mi,25); Wait(30); SendMessage(1); PlayTone(Mi,25); Wait(30); SendMessage(2); PlayTone(Fa,25); Wait(30); SendMessage(1); PlayTone(Fa,25); Wait(30); SendMessage(2); PlayTone(Mi,45); Wait(50); SendMessage(1); PlayTone(Re,45); Wait(50); SendMessage(2); PlayTone(Do,55); Wait(60); SendMessage(1); } } task main() { start play_music ; } start play_music ; while(true) { ClearTimer(0); while ( Timer(0) <= 30 ) { SendMessage(1); } while ( Timer(0) <= 60 ) { SendMessage(2); } } } **感想 [#u21ea699] 簡単な曲だが、音の長さや間隔を調節するのが大変だった。