VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为:x=rx*cos(alfa),y=ry*sin(alfa)其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角. 希望高手帮
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/14 06:51:35
![VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为:x=rx*cos(alfa),y=ry*sin(alfa)其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角. 希望高手帮](/uploads/image/z/6676330-58-0.jpg?t=VB%E7%A8%8B%E5%BA%8F+%E8%AE%BE%E8%AE%A1%E7%A8%8B%E5%BA%8F%E6%A8%A1%E6%8B%9F%E8%A1%8C%E6%98%9F%E8%BF%90%E5%8A%A8.%E5%A4%AA%E9%98%B3%E5%92%8C%E8%A1%8C%E6%98%9F%E8%BD%A8%E9%81%93%E7%94%A8Circle%E8%AF%AD%E5%8F%A5%E5%AE%8C%E6%88%90%2C%E8%A1%8C%E6%98%9F%E5%9C%A8%E8%BD%A8%E9%81%93%E4%B8%8A%E8%BF%90%E5%8A%A8%E7%9A%84%E6%A4%AD%E5%9C%86%E6%96%B9%E7%A8%8B%E4%B8%BA%EF%BC%9Ax%3Drx%2Acos%28alfa%29%2Cy%3Dry%2Asin%28alfa%29%E5%85%B6%E4%B8%AD%2Crx%E4%B8%BA%E6%A4%AD%E5%9C%86x%E8%BD%B4%E4%B8%8A%E7%9A%84%E5%8D%8A%E5%BE%84%2Cry%E4%B8%BAy+%E8%BD%B4%E4%B8%8A%E7%9A%84%E5%8D%8A%E5%BE%84%2Calfa%E4%B8%BA%E5%9C%86%E5%BF%83%E8%A7%92.+++%E5%B8%8C%E6%9C%9B%E9%AB%98%E6%89%8B%E5%B8%AE)
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