学習ノート Hypodytes rubripinnis

MUSIC!

課題5:

アクセス数:今日1 総数&counter([total|today|yesterday]);   最終更新日:2006-01-08 (日) 00:28:14

Jupiter(平原綾香)のプログラム

作成者:Hypodytes rubripinnis

movie


sub jupiter() {
		PlayTone(698, 18);
		Wait(20);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(932, 98);
		Wait(100);
		PlayTone(1109, 18);
		Wait(20);
		PlayTone(1047, 11);
		Wait(13);
		PlayTone(831, 15);
		Wait(17);
		PlayTone(831, 8);
		Wait(10);
		PlayTone(1109, 27);
		Wait(29);
		PlayTone(1245, 9);
		Wait(11);
		PlayTone(1109, 18);
		Wait(20);
		PlayTone(1109, 18);
		Wait(40);
		PlayTone(1047, 18);
		Wait(20);
		PlayTone(932, 18);
		Wait(20);
		PlayTone(831, 8);
		Wait(10);
		PlayTone(932, 28);
		Wait(30);
		PlayTone(1047, 18);
		Wait(20);
		PlayTone(932, 18);
		Wait(20);
		PlayTone(831, 7);
		Wait(9);
		PlayTone(932, 9);
		Wait(11);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(698, 18);
		Wait(20);
		PlayTone(698, 98);
		Wait(140);
		PlayTone(698, 18);
		Wait(20);
		PlayTone(831, 18);
		Wait(20);
		PlayTone(932, 98);
		Wait(100);
		PlayTone(1109, 18);
		Wait(20);
		PlayTone(1047, 11);
		Wait(13);
		PlayTone(831, 15);
		Wait(17);
		PlayTone(831, 8);
		Wait(10);
		PlayTone(1109, 28);
		Wait(30);
		PlayTone(1245, 28);
		Wait(30);
		PlayTone(1397, 78);
		Wait(80);
		PlayTone(1245, 6);
		Wait(8);
		PlayTone(1397, 10);
		Wait(12);
		PlayTone(1245, 18);
		Wait(20);
		PlayTone(1245, 18);
		Wait(20);
		PlayTone(1109, 38);
		Wait(60);
		PlayTone(1109, 18);
		Wait(20);
		PlayTone(1245, 18);
		Wait(20);
		PlayTone(1109, 3);
		Wait(5);
		PlayTone(1245, 38);
		Wait(40);
		PlayTone(1109, 118);
		Wait(120);
}

task play_music()
     {jupiter();}

task main()
     {start play_music;}

添付ファイル: fileJupiter.wmv 85件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-01-08 (日) 00:28:14