***[[学習ノート Hypodytes rubripinnis>2005/A5/学習ノート Hypodytes rubripinnis]] [#ja9017cd] ***[[MUSIC!>2005/A5/学習ノート Hypodytes rubripinnis/MUSIC!]] [#p13211c9] ***課題5: [#sace3047] ''アクセス数:今日&counter(today); 総数&counter(all); 最終更新日:&lastmod;'' &color(red){&size(30){現在製作中!!};まだ鳴るかどうかわかりません…}; *空に唄えば(175R)のプログラム [#e20a2b62] 作成者:Hypodytes rubripinnis sub inago() { Wait(14800); PlayTone(494, 8); Wait(10); PlayTone(494, 18); Wait(20); PlayTone(523, 8); Wait(10); PlayTone(587, 38); Wait(40); PlayTone(494, 8); Wait(10); PlayTone(494, 18); Wait(20); PlayTone(523, 8); Wait(10); PlayTone(587, 28); Wait(40); PlayTone(659, 18); Wait(20); PlayTone(740, 18); Wait(20); PlayTone(784, 18); Wait(20); PlayTone(659, 18); Wait(20); PlayTone(587, 58); Wait(80); PlayTone(494, 28); Wait(30); PlayTone(523, 8); Wait(10); PlayTone(587, 38); Wait(40); PlayTone(494, 8); Wait(10); PlayTone(494, 18); Wait(20); PlayTone(523, 8); Wait(10); PlayTone(587, 18); Wait(20); PlayTone(494, 18); Wait(20); PlayTone(523, 18); Wait(20); PlayTone(494, 18); Wait(20); PlayTone(440, 8); Wait(10); PlayTone(392, 18); Wait(20); PlayTone(440, 68); Wait(90); PlayTone(494, 8); Wait(10); PlayTone(494, 18); Wait(20); PlayTone(523, 8); Wait(10); PlayTone(587, 38); Wait(40); PlayTone(494, 8); Wait(10); PlayTone(494, 18); Wait(20); PlayTone(523, 8); Wait(10); PlayTone(587, 28); Wait(40); PlayTone(659, 18); Wait(20); PlayTone(740, 18); Wait(20); PlayTone(784, 18); Wait(20); PlayTone(659, 18); Wait(20); PlayTone(587, 58); Wait(80); PlayTone(494, 28); Wait(30); PlayTone(523, 8); Wait(10); PlayTone(587, 38); Wait(40); PlayTone(494, 8); Wait(10); PlayTone(494, 18); Wait(20); PlayTone(523, 8); Wait(10); PlayTone(587, 18); Wait(20); PlayTone(494, 18); Wait(20); PlayTone(523, 18); Wait(20); PlayTone(494, 18); Wait(20); PlayTone(440, 18); Wait(20); PlayTone(440, 18); Wait(20); PlayTone(392, 38); Wait(40); } task play_music() {inago();} task main() {start play_music;}