***[[学習ノート Hypodytes rubripinnis>2005/A5/学習ノート Hypodytes rubripinnis]] [#ja9017cd]
***[[MUSIC!>2005/A5/学習ノート Hypodytes rubripinnis/MUSIC!]] [#p13211c9]
***課題5: [#sace3047]

''アクセス数:今日&counter(today); 総数&counter(all);   最終更新日:&lastmod;''

*世界に一つだけの花(SMAP)のプログラム [#e20a2b62]

 作成者:Hypodytes rubripinnis

&size(30){☆[['''movie''':http://yakushi.shinshu-u.ac.jp/robotics/?plugin=attach&pcmd=open&file=%C0%A4%B3%A6%A4%CB%B0%EC%A4%C4%A4%C0%A4%B1%A4%CE%B2%D6.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%2F%C0%A4%B3%A6%A4%CB%B0%EC%A4%C4%A4%C0%A4%B1%A4%CE%B2%D6]]};

#comment

 sub smap() {
		PlayTone(440, 28);
		Wait(30);
		PlayTone(440, 28);
		Wait(30);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(659, 28);
		Wait(30);
		PlayTone(587, 28);
		Wait(30);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(494, 18);
		Wait(20);
		PlayTone(494, 8);
		Wait(10);
		PlayTone(554, 28);
		Wait(30);
		PlayTone(587, 18);
		Wait(20);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(554, 8);
		Wait(10);
		PlayTone(494, 28);
		Wait(50);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(554, 8);
		Wait(10);
		PlayTone(587, 28);
		Wait(30);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(659, 18);
		Wait(20);
		PlayTone(659, 8);
		Wait(10);
		PlayTone(587, 18);
		Wait(20);
		PlayTone(587, 8);
		Wait(10);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(659, 38);
		Wait(40);
		PlayTone(587, 18);
		Wait(20);
		PlayTone(554, 18);
		Wait(20);
		PlayTone(554, 118);
 }
 
 task play_music()
      {smap();}
 
 task main()
      {start play_music;}

&size(30){☆[['''movie''':http://yakushi.shinshu-u.ac.jp/robotics/?plugin=attach&pcmd=open&file=%C0%A4%B3%A6%A4%CB%B0%EC%A4%C4%A4%C0%A4%B1%A4%CE%B2%D6.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%2F%C0%A4%B3%A6%A4%CB%B0%EC%A4%C4%A4%C0%A4%B1%A4%CE%B2%D6]]};

#comment



トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS