| 2009年 牛年 找个网友一起在这里开心快乐每一天 点击进入>>
|
Flash MX 在物理教学中的应用
����������������������������������������������������������������������������机械运动
今天我们来看一个经典的Flash作品，这个作品最初见于新宇等人所著的“网页飞花”，笔者过去将其实现的时候着实高兴了一阵子，一直舍不得将其丢弃，现在笔者将其作了进一步的修改，使它用起来更方便。从这个例子，各位可以窥见Flash MX Actionsc
请看下面的特效图：
��
首先，我们需要新建一Moveiclip在其中放一个球（长40，宽40，只要看着顺眼就可以了），并将该球转化为Button，在该Button上加入以下代码：
on (press) {
������startDrag("" false /:minx /:miny /:maxx /:maxy);//防止ball被拖动时出界
������tellTarget ("/mouse") {
��������������play();
������}
������/:mouse = "dragged";
}
on (release) {
������stopDrag();//停止拖动
������tellTarget ("/mouse") {
��������������gotoAndStop(1);
������}
������/:mouse = "not dragged";
}
然后将整个Movieclip命名为“ball”，
新建一层，命名为“显示文本”，并在其第二帧加入以下代码：
OLDXPOS1 = OLDXPOS-70;//以使小球的x坐标显示在场景中
OLDYPOS1 = OLDYPOS-40;//以使小球的y坐标显示在场景中
新建一层，命名为“磨擦系数滚动条层”，在第一帧加入以下代码，并延长至三帧：
/:gravity1 = /:gravity*10;//因为gravity是小数，帮需将其扩大10倍。
��
新建一Movieclip并命名为“重力加速度滚动条”，如图2所示（其中绿色小球可以拖动），用其控制gravity1的大小，并在该Movieclip上加入以下代码：
onClipEvent (enterfr
������len1 = getProperty (条_x );
������len2 = getProperty (球子_x );
������/:gravity = (len2-len1+105.25-0.5-4)/200;
������/:gravity1 = /:gravity*10;
}
复制“重力加速度滚动条”Movieclip（也就是上图2），并重新命名为：“磨擦系数滚动条”，并在该Movieclip上加入以下代码：
onClipEvent (enterfr
������len1 = getProperty (条1_x );//该Movieclip内长条命名为“条1”
������len2 = getProperty (球子1_x );该Movieclip内可拖动球命名为“条1”
������/:friction = (len2-len1+105.1-0.5-4)/200;//调节磨擦系数的大小
}
新建一层，命名为“control”，并在其第一帧加入以下代码：
minx = "80";//ball的左界
maxx = "480";//ball的右界
miny = "50";//ball的上界
maxy = "350";//ball的下界
gravity = "0.098";//ball的默认重力加速度，相当于9.8N/kg
friction = "0.9";//ball的默认磨擦系数
fscommand("fullscreen" "true");//全屏
在control 层第二帧加入以下代码：
if (/:mouse ne "dragged") {//如果小球未被拖动，则执行以下代码
������/:yspeed = Number(/:yspeed)+Number(/:gravity);//计算速度的公式：Vt=V0+gt
������oldypos = getProperty("/ball" _y);//获取ball的y位置
������oldxpos = getProperty("/ball" _x);//获取ball的x位置
������newypos = Number(oldypos)+Number(yspeed);//设置ball的新的y位置
������newxpos = Number(oldxpos)+Number(xspeed);//设置ball的新的x位置
������if ((Number(newypos)>Number(/:maxy)) or (Number(newypos)Number(/:maxx)) or (Number(newxpos)5 or Number(((y0-y1)*(y0-y1)))>5) {
����������������������n = Number(n)+1;
����������������������duplicateMovieClip("line" "line" add n n);
����������������������setProperty("line" add n _x x1);
����������������������setProperty("line" add n _y y1);
����������������������setProperty("line" add n _xscale (x0-x1));
����������������������setProperty("line" add n _yscale (y0-y1));
����������������������x1 = x0;
����������������������y1 = y0;
��������������}
������}
}
��
新建层按钮：
on (release) {
������setProperty(music _alpha 0);
������unloadMovie(music);
������num = 0;
������removeMovieClip(copy);
������while (num
