VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为:x=rx*cos(alfa),y=ry*sin(alfa)其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角. 希望高手帮
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/25 21:53:27
VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为:x=rx*cos(alfa),y=ry*sin(alfa)其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角. 希望高手帮
VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为:
x=rx*cos(alfa),y=ry*sin(alfa)
其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角.
希望高手帮忙解答,高分
VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为:x=rx*cos(alfa),y=ry*sin(alfa)其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角. 希望高手帮
Const PI = 3.14159
Dim alfa As Single
Dim x As Single, y As Single, rx As Single, ry As Single
Dim cenx As Single, ceny As Single
Private Sub Form_Load()
cenx = 2000 '绘图中心
ceny = 1600
alfa = 0
rx = 1500 'x轴半径
ry = 900 'y轴半径
Do
alfa = alfa + 0.1
x = rx * Cos(alfa)
y = ry * Sin(alfa)
Me.PSet (x + cenx, y + ceny) '点绘
Loop Until alfa >= 2 * PI
Me.Picture = Me.Image
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
alfa = alfa + 0.1
If alfa >= 2 * PI Then alfa = 0
x = rx * Cos(alfa)
y = ry * Sin(alfa)
Me.Cls
Me.Circle (x + cenx, y + ceny), 120
Me.PSet (x + cenx, y + ceny)
End Sub