我要学习中看到一个设计自由落体的例,但不成功,一知那做错了,望给予指教
表单上有一个球体(shape1),一个地面( shape2),一个定时器
procedure init
public n,m,s
n=20
m=1
s=1000
endproc

procdure timer1.timer
if m=1
   if (n<=160-thisform.shape2.top)
     thisform.shape1.move(thisform.shape1.left,n,thisform.shape1.height,thisform.shape1.width)
     n=n+10
     thisform.timer1.interval=s
     m=seconds()
     thisform.lable1.caption=thisform.str(m,5)
     s=s-40
   else
     m=2
   endif
else
   if (n>=20)
       n=n-10
       thisform.shape1.move(thisform.shape1.left,n,thisform.shape1.height,thisform.shape1.width)
       s=s+40
       thisform.timer1.interval=s
        m=seconds()
        thisform.lable1.caption=thisform.str(m,5)
    else
       m=1
    endif
 endif
endproc

不好意思此问题我已解决