放飞你的梦想--翱翔我的天空 | 会员登陆 | 繁體中文 | 站点地图 | 站长博客
 | 网站首页 | 文章中心 | IT 前沿 | 清怡画风 | 视频教程 | 资源下载 | 精彩图库 | 博客文赏 | 天空论坛 | 访客留言 | 音乐版 | 
    本站全新推出IT 前沿频道欢迎大家访问 地址 http://it.tkbbs.com  [风雪残士  2005年12月9日]            本站推出新浪VIVI收藏夹服务,欢迎使用  [风雪残士  2005年10月18日]        
您现在的位置: 翱翔翼站 >> 文章中心 >> 编程开发 >> 网页开发 >> Script脚本 >> 文章正文 今天是:
Vml+Js算法:完成5个小球在网页运动(碰壁返回)的游戏,详细注释 【字体:
作 者:佚名 文章来源:网络 更新:2006-3-18 11:51:11 点击:









<HTML xmlns:v>
<HEAD>
<META http-equiv='Content-Type' content='text/html;charset=gb2312'>
<Meta name='Gemeratpr' content='网络程序员伴侣(Lshdic)2004'>
<TITLE>物极必反</TITLE>
<STYLE>
v\:*{behavior:url(#default#VML);} //声明变量v为VML对象
*{font-size:12px;color:;}
a{text-decoration:none;}
a:hover{color:red;}
</STYLE>
</HEAD>
<BODY topmargin='2' leftmargin='2'>
<BASE target='_top'>
<div id=a style='table-Layout:fixed;width:100%;height:100%;border:1 solid black'></div>
<script>
//原作:风云舞,载自:http://www.lshdic.com/bbs
//以前在VB里很容易实现用我摸索的这套“物极必反”的算法完成物体碰壁返回的游戏,这次是DHTML版的,VB的下载来http://www.lshdic.com/download/lshdic/vb_xiaoguo.rar
var wid1,hei1,str1=""     //定义全局变量,为提高运行速度
var xx=new Array(0,0,0,0,0)  //分别存储5个球的X坐标
var yy=new Array(0,0,0,0,0)  //分别存储5个球的Y坐标
var xjia=new Array(false,true,false,true,false)  //分别判断5个球是否“物极”到了X极限
var yjia=new Array(true,false,true,false,true)   //分别判断5个球是否“物极”到了Y极限
var ovalwid=new Array(0,0,0,0,0) //直鸫娲?个球随机的大小
wid1=a.offsetWidth-70;hei1=a.offsetHeight-70    //得到容器的宽和高
for(i=0;i<5;i++){  //首次向容器内塞进5个球,球属性是随机的
tempx=Math.round(Math.random()*wid1);tempy=Math.round(Math.random()*hei1);
tempcolor="rgb("+Math.round(Math.random()*255)+","+Math.round(Math.random()*255)+","+Math.round(Math.random()*255)+")";
ovalwid[i]=Math.round(Math.random()*70)+20;
xx[i]=tempx;yy[i]=tempy
str1+="<v:oval fillcolor='"+tempcolor+"' style='position:absolute;left:"+tempx+";top:"+tempy+";z-index:"+i+";width:"+ovalwid[i]+";height:"+ovalwid[i]+";' id='oval1'/>"
}
a.innerHTML=str1; //插入STR1,STR1是5个VML球的代码
function play1(){  //播放函数
wid1=a.offsetWidth;hei1=a.offsetHeight
for(i=0;i<5;i++){   //循环5次
if(wid1-xx[i]<ovalwid[i]+5)xjia[i]=false //到达X极限,值为FALSE
if(xx[i]<5)xjia[i]=true    //到达X起点,值为TRUE
if(hei1-yy[i]<ovalwid[i]+5)yjia[i]=false
if(yy[i]<5)yjia[i]=true
if (xjia[i]==true)xx[i]+=5;else xx[i]-=5  //TRUE的话就++,FALSE的话就--
if (yjia[i]==true)yy[i]+=5;else yy[i]-=5
oval1[i].style.left=xx[i];oval1[i].style.top=yy[i]  //更新球的位置
}}
setInterval("play1()",10)  //10毫秒播放一次,一般CPU保证能消化~~~
</script>
</BODY>
</HTML>

文章录入:风雪残士    责任编辑:风雪残士 
  • 上一篇文章:

  • 下一篇文章:
  • 发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    相关文章
    Asp.net+Xml开发网络硬盘
    将Word文档转化为HTML格式的…
    用ASP.NET结合XML制作广告管…
    用ASP.NET和XML做的新闻系统
    ASP.Net+XML打造留言薄
    用Asp.net实现基于XML的留言…
    用Asp.net实现基于XML的留言…
    用Asp.net实现基于XML的留言…
    用Asp.net实现基于XML的留言…
    XML、DataSet、DataGrid结合…
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
    最新文章 TOP10
    最新热门 TOP10
    最新推荐TOP10
    翱翔翼站拥有本站所有版权! Copyright © 2005 - 2008 5-IT.COM
    本站维护 :风雪残士

    浙ICP备05039908号
    努力打造国内最全的电脑技术资料库