NO.142 ドキュメント応用②

ディスコScript

これまたカッコいいぐらい非実用的＋非現実的な実例です。
JavaScriptでリズムにあわせて背景色・文字色をランダムに変化させるという荒業です。
音楽に合わせてページを変化させると言うのは不可能と思われていますが、リズムごとにWAVEファイル(*.wav)を用意すれば出来ない事ではありません。
さらにこのScriptではパンポット(音の位置)もランダムに飛ばしてるので、異様な世界が味わえると思います。
例によってIE以外での動作は保障しかねます。

実行例

ソース

ShowControl:true:<input type=radio onClick="javascript:hp.showcontrols=true;w1.showcontrols=true;w2.showcontrols=true;sp.showcontrols=true;mp.showcontrols=true;ap.showcontrols=true;"name=fr>
false:<input type=radio onClick="javascript:hp.showcontrols=false;w1.showcontrols=false;w2.showcontrols=false;sp.showcontrols=false;mp.showcontrols=false;ap.showcontrols=false;"name=fr checked><br>
<object id="sp" classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name=src value="http://windows2010.hp.infoseek.co.jp/001a.wav">
<param name=volume value=0>
<param name=showcontrols value=false>
<param name=autostart value=false>
<param name=autorewind value=true>
</object><br>
<object id="mp" classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name=src value="http://windows2010.hp.infoseek.co.jp/001.wav">
<param name=volume value=0>
<param name=showcontrols value=false>
<param name=autostart value=false>
<param name=autorewind value=true>
</object><br>
<object id="ap" classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name=src value="http://windows2010.hp.infoseek.co.jp/002.wav">
<param name=volume value=0>
<param name=showcontrols value=false>
<param name=autostart value=false>
<param name=autorewind value=true>
</object><br>
<object id="w1" classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name=src value="http://windows2010.hp.infoseek.co.jp/003.wav">
<param name=volume value=0>
<param name=showcontrols value=false>
<param name=autostart value=false>
<param name=autorewind value=true>
</object><br>
<object id="w2" classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name=src value="http://windows2010.hp.infoseek.co.jp/004.wav">
<param name=volume value=0>
<param name=showcontrols value=false>
<param name=autostart value=false>
<param name=autorewind value=true>
</object><br>
<object id="hp" classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name=src value="http://windows2010.hp.infoseek.co.jp/the.wav">
<param name=volume value=0>
<param name=showcontrols value=false>
<param name=autostart value=true>
<param name=autorewind value=true>
</object><br>
<script type=text/javascript>
<!--
CN=1;
RR=new Array("00","11","22","33","44","55","66","77","88","99","aa","bb","cc","dd","ee","ff");
function js2(){
S1=Math.floor(Math.random()*RR.length);
S2=Math.floor(Math.random()*RR.length);
S3=Math.floor(Math.random()*RR.length);
document.fgColor="#"+RR[S3]+RR[S3]+RR[S3];
document.bgColor="#"+RR[S1]+RR[S2]+RR[S3];
window.status="#"+RR[S1]+RR[S2]+RR[S3];
rm=Math.floor(Math.random()*20000-10000);
sp.balance=rm;mp.balance=rm;ap.balance=rm;
}
function jsz(){js2();ap.Play();clearTimeout(dd);}
function jsa(){js2();mp.Play();dd=setTimeout('jsz()',500);CN++;if(CN==5){w2.Play();}if(CN==9){w1.Play();CN=1;}}
function jsx(){jsa();clearTimeout(kk);gg=setInterval('jsa()',1000);CN=1;w1.Play();}
function jsy(){js2();ap.Play();clearTimeout(hh);kk=setTimeout('jsx()',400);}
function jsd(){js2();sp.Play();C++;
if(C<=7&&C>=0){hh=setTimeout('jsd()',500);}
if(C==7){clearTimeout(hh);hh=setTimeout('jsd()',250);}
if(C==8){hh=setTimeout('jsy()',230);}
}
function js1(){C=0;
hh=setTimeout('jsd()',500);
}
function jss(){clearInterval(gg);}
window.onload=js1;
window.onunload=jss;
-->
</script>

※Array(a,b,c,...)⇒配列、Math.floor(数式)⇒数式を整数にする(小数点以下切り捨て)、Math.random()⇒0から1までの乱数を発生させる
MediaPlayer埋め込みの参考⇒Windows Media Player 7 オブジェクトモデルへの移行ガイド

実行 ShowControl:true: false:

※うまく行かない時は一度ページを更新してみてください。

トップに戻る前に戻る　次に進む

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送