用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/21 11:29:23
用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 Su
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 Su
用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果
用VB设计一个计算圆的面积的程序
用VB设计一个计算银行存款利息的程序
VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为:
vb公尺转换成英尺设计一个程序实现公尺和英尺之间量度转换.
用VB编一个钟表,表针运动程序怎么编?
谁能帮我用VB设计一个简单的程序:计算正方形的面积(详细点)
如何设计用vb语言编写一个程序,输入三个数,输出其中的最大数
用VB设计一个程序计算物理,英语,数学三门课的绩点.
用VB语言设计程序,把一个正整数写成若干个素数相乘的形式.
2003版本的PPT中的自定义动画效果,“上弧线”运动轨迹效果怎么设置?
编写一个程序 ,采用方法重载分别实现圆、三角形、矩形、椭圆的面积计算