総計: 938444  今日: 7  昨日: 28       Search SiteMap
☆☆☆ Dengaku's Another World
Novels Paint PC Saloon Life Essay by Dan Links MusicVideo&Flash music loop My Flash-Movies bbs Profile
 
 
     案内板
    作品展
 Romigo
ロミーゴ交流

本家サイト東宅サイト西宅サイトイタリア紀行サイトダンの小説集Healing 虚の本家サイトExciteBlog




 

 

 

 

 

 

 

DanのPCサロン(順不同)










 

Dan's 9HPで、いろんな処に使っているスキルを皆様に公開して、そのタグの事例集を番号を付けて項目にしてまとめました。ご希望に応じてコピーして、ご自由にお使い下さい。但し、不都合が起きた場合は保証を致しかねます。分からないこととかは、メールかbbsでお問い合わせ下さい。 (bbs-password 1234a)

メールはここです。leartaile@yahoo.co.jp 漸次、追加掲載も致しますから今後ともご期待下さい。

 



  17.Type writer

17.タイプライター風の打ち出し文字

 

タイプライター風の打ち出し文字を出させるJavaです。作り上げるのには、結構面倒で神経を使います。一つの;のミスでも動きません。それから、文字は英文だけで、背景の色は変えられますが、写真は入りません。しかし、<bgsound>は入ります。面白いのは、一番上の、http://に自動リンクすることです。だから、これを繋いでいけば、エンドレスループが作れます。下の全部をコピーして、赤文字の処だけを替えます。そして、<head> </head> の間に入れます。

この事例を見る 

 

 


<head>

<SCRIPT Language="JavaScript">
<!---
//User設定
 var movietype = 1; //アニメーションのタイプ。0だと一行ずつ。1だと1文字ずつ。
 var gourl = "
http://dengaku.easy-magic.com/user/index.php?menu_id=13&mode=view_content&news_content_id=77&page=1";//飛ぶURL
 var textcolor= "#ff00ff"; //<body>textの色
 var bgcolor  = "#000000"; //<body>背景色
 var fontstyle= "<font size=6 color=#ff00ff face='Times New Roman,Times'><b>"; //表示文章の設定
 var posA = "<div align=right><table width=80% height=90%><tr valign=center><td>"; //表示位置調整
 var posB = "</td></tr></table>";         //タグ閉じ
 var a_time = 150;  //type:1の時のメッセージタイプの速度。1000=1秒。この場合0.1秒。
 var c_time = 1000; //次のメッセージを表示するまでの時間。1000=1秒。この場合4秒。

 var msg = new Array();
 /* お好みのメッセージを入れてください。 */
 msg[0] = "Welcome";
 msg[1] = "Thank you for visiting my PC-Saloon.";
 msg[2] = "Are you interested in This Saloon?";
 msg[3] = "I intoroduce funny&useful Tag List.";
 msg[4] = "please enjoy my Saloon..";
 msg[5] = "wait for now loading....";

 /* メッセージを増やしたい場合、
    msg[6]="..."; msg[7]="...."; と続ける事もできます。 */


 function cancel() {
   playcheck = false;
   if(SID != null) { clearTimeout(SID); }
   location.href = gourl;
 }

 function makeHTML(str,e) {
   var html = "<HTML>";
   html += "<BODY bgColor=" +bgcolor+ " text=" +textcolor+ ">";
   html += (e) ? "<a href='javascript:parent.cancel()'>exit</a>" : "  ";
   html +=  posA + fontstyle + str + posB;
   html += "</BODY></HTML>";
   return html;
 }

 var playcheck = true;
 var temphtml="<HTML><BODY bgColor=" +bgcolor+ " text=" +textcolor+ "></BODY></HTML>";
 var current = 0;
 var currentchat= 0;
 var output  = "";
 var SID;

 function movieplay() {
  if(!playcheck) { return; }
  if(movietype == 0) {
    if(!msg[current]) { location.href = gourl; return; }
    var str = msg[current];
    output = makeHTML(str,true);
    parent.f1.location.href = "javascript:parent.output";
    current++;
    SID = setTimeout("movieplay()",c_time);
  } else {
   if(SID != null) { clearTimeout(SID); }
   if(!msg[current]) { location.href = gourl; return; }
   var str = msg[current];
   var exit= (currentchat+1 > str.length) ? true : false;
   output = makeHTML(str.substring(0, currentchat),exit);
   parent.f1.location.href = "javascript:parent.output";
   currentchat++;
   if(currentchat > str.length) {
     current++;
     currentchat = 0;
    if(!playcheck) { return; }
     SID = setTimeout("movieplay()",c_time);
   }
   else {
    if(!playcheck) { return; }
     SID = setTimeout("movieplay()",a_time);
   }
  }
 }

document.write('<frameset rows="100%, *" frameborder="no" border=0 onLoad="movieplay()">');
document.write('<frame src="javascript:parent.temphtml" name="f1">');
document.write('</frameset>');

//-->
</SCRIPT>

 

</head>

 

    [1] 
 前のテキスト : 18.Writing mode
 次のテキスト : 16.Mail to

 

        

 

 

 

 

 

Dengaku's Another World is Copyrighted (C) 2003 June. Dengakudan's software is all rights only reserved. The spase photos are presented by Hubble Space Telescope.