实现一个不断弹跳的球的方法!(50分)

  • 主题发起人 主题发起人 shan_wan
  • 开始时间 开始时间
S

shan_wan

Unregistered / Unconfirmed
GUEST, unregistred user!
控制小球的弹跳的速度!
 
用timer控件的ontimer事件控制
彈跳過程,設置變化timer的interval
屬性的值可改變速度,因為其事件觸發
的時間間隔變了。
 
参见小球病毒源程序
 
我认为定时器的时间间隔不用改变
每次
Y:=Y/N;
就可以了
N用来调节加速度
最好用物理公式计算一下
 
用timer控件的ontimer事件控制
設置變化timer的interval屬性的值可改變速度
用ARANDOM(N)来设置随机高度
N*TIMER的INTERVAL的值来确定时间.
这是计算平均时间和速度,如果想做成物理实验般的,你就用重力计算公式凑了.
 
如果小球是平面的效果,那么你可以自己在Canvas上绘制,通过不断的擦除、重画来实现
跳动的效果。
当然,为了直观、形象,最好考虑到实际的物理运动轨迹,有快慢的变化;
这可以由定时器或者利用延时函数来实现。
 
to:卷起千堆雪tyn.可是我用定时器的效果不是很好,用canvas画图感觉不像一个自由落体的球,到象是一个在平面移动的物体。
to:basin。用 N*TIMER的INTERVAL的值来确定时间。定时器的时间控制效果不太好。还有关于计算平均时间和速度用重力公式我
没试过。
 
to:我爱PASCAL,我没有小球病毒的源码,你有吗?给我一份看看。
 
弹跳高度 = |X*sin(X)|
X = n --> 0
速度同样套用上一公式试试
 
后退
顶部