2005/A5/学習ノート Hypodytes rubripinnis/MUSIC!/Jupiter
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
***[[学習ノート Hypodytes rubripinnis>2005/A5/学習ノート Hypodytes rubripinnis]] [#ja9017cd]
***[[MUSIC!>2005/A5/学習ノート Hypodytes rubripinnis/MUSIC!]] [#p13211c9]
***課題5: [#sace3047]
''アクセス数:今日&counter(today); 総数&counter(all); 最終更新日:&lastmod;''
*Jupiter(平原綾香)のプログラム [#e20a2b62]
作成者:Hypodytes rubripinnis
&size(30){☆[['''movie''':http://yakushi.shinshu-u.ac.jp/robotics/?plugin=attach&pcmd=open&file=Jupiter.wmv&refer=2005%2FA5%2F%B3%D8%BD%AC%A5%CE%A1%BC%A5%C8%20Hypodytes%20rubripinnis%2F%A3%CD%A3%D5%A3%D3%A3%C9%A3%C3%A1%AA%2FJupiter]]};
#comment
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;}
終了行:
***[[学習ノート Hypodytes rubripinnis>2005/A5/学習ノート Hypodytes rubripinnis]] [#ja9017cd]
***[[MUSIC!>2005/A5/学習ノート Hypodytes rubripinnis/MUSIC!]] [#p13211c9]
***課題5: [#sace3047]
''アクセス数:今日&counter(today); 総数&counter(all); 最終更新日:&lastmod;''
*Jupiter(平原綾香)のプログラム [#e20a2b62]
作成者:Hypodytes rubripinnis
&size(30){☆[['''movie''':http://yakushi.shinshu-u.ac.jp/robotics/?plugin=attach&pcmd=open&file=Jupiter.wmv&refer=2005%2FA5%2F%B3%D8%BD%AC%A5%CE%A1%BC%A5%C8%20Hypodytes%20rubripinnis%2F%A3%CD%A3%D5%A3%D3%A3%C9%A3%C3%A1%AA%2FJupiter]]};
#comment
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;}
ページ名: