用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 20:40:51
![用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果](/uploads/image/z/5016614-14-4.jpg?t=%E7%94%A8VB%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F%2C%E5%AE%9E%E7%8E%B0%E4%B8%80%E4%B8%AA%E5%9C%86%E7%BB%95%E6%A4%AD%E5%9C%86%E8%BD%A8%E8%BF%B9%E8%BF%90%E5%8A%A8%E7%9A%84%E5%8A%A8%E7%94%BB%E6%95%88%E6%9E%9C)
用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果
用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果
用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果
这样就可以了,楼上的子函数M() 没有用到
Dim pi As Double
Dim runTime As Double
Dim a As Single, b As Single
Dim cntX As Single, cntY As Single
Dim r As Single
Private WithEvents Timer1 As Timer
Dim tX As Single, tY As Single
Dim tStep As Single
Private Sub Form_Load()
Me.ScaleMode = 3
Me.AutoRedraw = True
pi = Atn(1)
Set Timer1 = Controls.Add("vb.timer", "Timer1")
a = 50 '椭圆长轴
b = 30 '椭圆短轴
cntX = 100 '中心坐标X
cntY = 60 '中心坐标Y
r = 10 '圆半径
Timer1.Interval = 50 '运动间隔(毫秒)
tStep = pi / 10 '角度步长
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
runTime = runTime + 1
Dim Arg As Double
Arg = runTime * tStep
tX = cntX + a * Cos(Arg)
tY = cntY + b * Sin(Arg)
Me.Cls
Me.DrawStyle = 2
Me.Circle (cntX, cntY), a, , , , b / a
Me.DrawStyle = 0
Me.Circle (tX, tY), r
End Sub