破釜沉舟论坛 » Flash专栏 » 声波振荡

2008-3-13 18:39 Design-Pioneer
声波振荡

写着玩的,代码插入第一帧即可。



if (flag != 1) {
createEmptyMovieClip("ba", 9);
ba.lineStyle(1, 0xff0000, 100);
ba.lineTo(100, 0);
ba._y = Stage.width/1.5;
ba._x = Stage.height/2;
ba.createEmptyMovieClip("hk", 11);
ba.hk._x = 1;
ba.hk.lineStyle(10, 0x000ff, 100);
ba.hk.lineTo(0, 1);
ba.createTextField("txt", 100, 0, 10, 200, 50);
ba.txt.text = "调整波长";
var n:Number = 1;
var bochang:Number;
var zuo:Number = ba.hk._x;
var din:Number = ba.hk._y;
var you:Number = zuo+100;
var di = din;
_root.ba.hk.onPress = function() {
  this.startDrag(flase, zuo, din, you, di);
};
ba.hk.onRelease = function() {
  this.stopDrag();
};
ba.hk.onReleaseOutside = function() {
  this.stopDrag();
};
createEmptyMovieClip("a", 10);
a.lineStyle(6, 0xff0000, 100);
a.lineTo(1, 1);
a._x = 500;
a._y = 500;
var i = a._height;
var f = 1;
var v = 50;
flag = 1;
}
onEnterFrame=function () {
a._x += bochang;
_x -= bochang;
ba._x += bochang;
a._y += (Stage.height/2-a._y)/1.08*2.05;
lineStyle(1, 0x0055ff, 100);
lineTo(a._x, a._y);
bochang = (ba.hk._x)/10+1;
f++;
if (f == 30) {
  n += (300-n)/10;
  if (n>250) {
   n = 140;
  }
  a._y = n;
  f = 0;
}
};


在這裡還要非常感謝kingofkofs !

2008-4-3 15:54 MXW7172
看过了,挺好的

刚开始学,看过了,挺有意思,就是不知道各个语句的作用。

2008-4-6 00:49 kavon
不错!呵呵!有意思,就是可做教学用具

2008-6-15 12:37 赤火狼族
呵呵!看不懂,太深奥了...

页: [1]
查看完整版本: 声波振荡


Powered by Discuz! Archiver 5.5.0  © 2001-2006 Comsenz Inc.