お知らせ花火（メッセージ1個）
【IE5】このスクリプトにはNN4も入っていますが動作しません考え中！
私の出しているもう１つのHP「ExcelVBA便利帳」が100万アカウントを達成した。
記念にそのHPのトップページに花火でも上げようと思いこのサンプルを作成しました。
もちろんNN4でも表示出来るように作成したつもりでしたが、残念ながら
JavaScriptで作成のDIV〜/DIVコンテンツを読み込めなかった。
【実用編へ戻る】
<html>
<head>
<title>お知らせ花火1</title>
<SCRIPT LANGUAGE="JavaScript">
<!--
// ******** 下記を必要に応じ変更（KIの実用JavaScript）***************
var msg = " １００万達成ありがとう御座いました。" ; //表示する文字
R = 10; // 半径
speed1= 50; // 拡大するスピード
basyo1=10 // 内側文字の表示位置（文字サイズと半径により調整）
basyo2=20 // 中側文字の表示位置
basyo3=35 // 外側文字の表示位置
speed2= 2000; // 最後に表示している時間
// *******************************************************************
pi = Math.PI / 180;
mozsu=msg.length;
msg = msg.split("");
timerID=0;
var hozyo=0;
var cnt=0;
var cnty=7;
var cnts=0;
var cntse=mozsu*3;
if (document.layers){sx=screen.avaiLWidth;sy=screen.avaiLHeight;}
if (document.all){sx=screen.width;sy=screen.height;}
chuusin_x=sx /2; // 画面中心X軸
chuusin_y=(sy-200) /2; // 画面中心Y軸
function utiage(){
if (document.layers){return} //残念NN4動作せづ
yy1=chuusin_y *2/ 7;
yy=chuusin_y + yy1*cnty;
if (document.layers){document["tama"].left=chuusin_x; document["tama"].top=yy;}
if (document.all){window["tama"].style.pixelLeft=chuusin_x; window["tama"].style.pixelTop=yy;}
cnty += -1;
clearTimeout(timerID);
if (cnty >= 0 )timerID = setTimeout("utiage()",60);
if (cnty < 0 ){
hanabi()
if (document.layers){document["tama"].left =-200; document["tama"].top =-200;}
if (document.all){window["tama"].style.pixelLeft=-200; window["tama"].style.pixelTop=-200;}
}
}
function hanabi(){
for (i=0; i<mozsu; i++) {
layerid = "div" + hozyo + (i);
kakudo = (i * 360 / mozsu);
COS = Math.cos(kakudo * pi);
SIN = Math.sin(kakudo * pi);
xx = (COS + SIN)*R +chuusin_x;
yy = (SIN - COS)*R +chuusin_y;
if (document.layers){
document[layerid].left =xx; document[layerid].top =yy;
}
if (document.all){
window[layerid].style.pixelLeft =xx; window[layerid].style.pixelTop =yy;
}
}
R += 5;
clearTimeout(timerID);
cnt += 1;
if (cnt > basyo1) hozyo="1";
if (cnt > basyo2) hozyo="2";
if (cnt < basyo3) {timerID = setTimeout("hanabi()",speed1);}
if (cnt >= basyo3 ) owari1();
}
function owari1(){
timck = (new Date()).getTime() + speed2 //全体の表示時間
do {;} while((new Date()) < timck) ;
owari2();
}
function owari2(){
j= Math.floor(Math.random()*3) ;
i= Math.floor(Math.random()*mozsu) ;
layerid = "div" + j + (i);
if (document.layers){document[layerid].left =-200; document[layerid].top =-200;}
if (document.all){window[layerid].style.pixelLeft =-200; window[layerid].style.pixelTop =-200;}
cnts=cnts+1;
clearTimeout(timerID);
if (cnts < cntse) {timerID = setTimeout("owari2()",10);}
if (cnts >= cntse ) owari3();
}
function owari3(){
for (j=0; j<3;j++){
for (i=0; i<mozsu; i++) {
layerid = "div" + j + (i);
if (document.layers){document[layerid].left =-200; document[layerid].top =-200;}
if (document.all){window[layerid].style.pixelLeft =-200; window[layerid].style.pixelTop =-200;}
}
}
}
// -->
</SCRIPT>
</head>
<BODY bgcolor=#FFFFEE onLoad="utiage()">
<b>お知らせ花火（メッセージ1個）</b><br>
<font size=2>【IE5】このスクリプトにはNN4も入っていますが動作しません考え中！
<hr>
私の出しているもう１つのHP「ExcelVBA便利帳」が100アカウントを達成した。
記念にそのHPのトップページに花火でも上げようと思いこのサンプルを作成しました。<br>
もちろんNN4でも表示出来るように作成したつもりでしたが、残念ながら
JavaScriptで作成のDIV〜/DIVコンテンツを読み込めなかった。<br>
<FORM name="FM1">
<INPUT type="button" value="花火の打上（再読込）"
onClick="location.reload()"><br><br>
</FORM>
<SCRIPT LANGUAGE="JavaScript">
<!--
if (document.all){
var shoki=" STYLE='position:absolute;left:-200px;top:-200px;"
for (n=0;n<3;n++){
if (n==0) siz="font-size:25px;" // 文字サイズ
if (n==1) siz="font-size:35px;"
if (n==2) siz="font-size:45px;"
for (i=0;i<mozsu;i++) {
rrr= Math.floor(Math.random()*255); //文字の色
ggg= Math.floor(Math.random()*255);
bbb= Math.floor(Math.random()*255);
bg1= rrr.toString(16);
bg2= ggg.toString(16);
bg3= bbb.toString(16);
rgb=bg1+bg2+bg3;
iro="color:#" + rgb +";"
document.write ("<div id='div" + n + i + "'" + shoki + iro + siz + "'>")
document.write(msg[i])
document.write ("</div>")
}
}
document.write ("<div id='tama'" + shoki + "'><IMG SRC='tama.gif'></div>")
}
// -->
</SCRIPT>
<BR><hr>
</body>
</html>