A星算法,flash版
A星算法,flash 演示版
package
{
import flash.display.Sprite;
import flash.events.MouseEvent;
[SWF(width="550",height="550",backgroundColor="#999999")]
public class astart extends Sprite
{
// 常数定义
private static const size:int = 50;
private var points:Array = new Array();
private var bg:Sprite = new Sprite();
private var person:Sprite = null;
private var line:Sprite = new Sprite();
public function astart() {
var i:int = 0;
// 填充颜色
bg.x = bg.y = 25;
bg.graphics.beginFill(0xff0000,1);
bg.graphics.drawRect(0,0,500,500);
bg.graphics.endFill();
// 画格子线
bg.graphics.lineStyle(1,0);
for ( i=0;i<=size;i++ ) {
bg.graphics.moveTo(0,500/size*i);
bg.graphics.lineTo(500,500/size*i);
bg.graphics.moveTo(500/size*i,0);
bg.graphics.lineTo(500/size*i,500);
}
// 初始化格子
for ( i = 0;i<size;i++ ) {
var _points:Array = new Array();
for ( var j:int=0;j<size;j++ ) {
if ( Math.floor(Math.random()*5) == 0 ) { // 五分之一的格式是障碍
_points.push(1);
bg.graphics.beginFill(0,1);
bg.graphics.drawRect(500/size*i,500/size*j,500/size,500/size);
bg.graphics.endFill();
}
else
_points.push(0);
}
points.push(_points);
}
//放置起点
while ( true ) {
var ix:int = Math.floor(Math.random()*size);
var iy:int = Math.floor(Math.random()*size);
if ( points[ix][iy] == 0 ) {
person = new Sprite();
person.graphics.beginFill(0xff00,1);
person.graphics.drawRect(0,0,500/size,500/size);
person.graphics.endFill();
person.x = ix * 500/size + 25;
person.y = iy * 500/size + 25;
person.mouseEnabled = false;
person.mouseChildren = false;
break;
}
}
bg.addEventListener(MouseEvent.CLICK,onClick);
addChild(bg);
line.x = line.y = 25;
addChild(line);
addChild(person);
}
public function onClick(event:MouseE
相关文档:
1、用panel,label,button,textinput组建布局,如下图:
2、设用户名、密码、验证码所对应的textinput的id分别为userName、pasWord、inVal;设用于显示验证码的label组建的id为:val.
布局代码如下:
<s:Panel x="126" y="98" width="250" height="200" id="login" title="用户 ......
我喜欢看flash动画,打开了firefox,百度一下flash动画,进入网站之后观看不了,但firefox提示“您需要其他插件以显示此页面的所有媒体”于是点击“安装缺失插件”,这时firefox自动查找插件,提示:
Adobe Flash Player(installer)
单击选择这个插件,并单击“下一步”,根据提示,输入密 ......
配合焦点图flash使用,原来是取得最新的图片文章,然后把相关信息作为参数传递给flash播放。
focus.asp代码如下:
<!--#Include File="conn.asp" -->
<!--#Include File="include/inc.asp"-->
<%
'首页焦点页面
'by winston
'2010/05/15
Dim QueryArray
Dim FocusLinks,FocusP ......
自己写的程序,希望对大家有帮助,其实这片flash十分的悲剧,只有4个block,1MB的空间,长期放可执行代码用的,短期放数据,十分的不合适...
void DelayTime( void )
{
u8 i ;
for( i = 0 ; i < 10 ; i++ ) ;
}
void atWriteCmd( u8 cmd )
{
SSPSend( &cmd , 1) ;
}
void atWriteData(u8 * buf , u32 nBytes ......