我们知道，地球每时每刻都在绕太阳做周期性转动，也就是地球绕太阳公转。公转轨道是非常接近正圆的椭圆，平均角速度是每年360度，平均线速度为每年940，000，000公里。
天体图
今天，我们就共同来学习如何用VB编程来实现地球绕太阳运动的轨迹图。
首先，我们需要用到的VB控件及知识内容有：
标签(Label，用于显示文字)控件、形状(Shape，用于生成地球、太阳)控件、时钟(Timer，用于实现运动轨迹)控件、图形方法。
程序运行图
实现代码Dim x!
Private Sub Form_Load()
x = -80
Scale (-155, 100)-(155, -100) '自定义坐标系
Sun.FillColor = RGB(255, 0, 0) '设置太阳颜色
Sun.Move 0 - Sun.Width / 2, 0 + Sun.Height / 2 '太阳定位
Label1.Move 0 - Label1.Width / 2, 0 + Label1.Height / 2 '说明文字定位
Earth.Move -80 - Earth.Width / 2, 0 + Earth.Height / 2 '地球定位
Timer(2).Enabled = False
Circle (0, 0), 80, vbRed, , , 3 / 5 '先画出运动轨迹
End Sub
Private Sub Timer_Timer(Index As Integer) '计时器事件
Dim y!
Select Case Index
Case 1
If x <= 79 Then
y = -Sqr((1 - x * x / (80 * 80)) * 78 * 78)
x = x + 1 '不断移动
ElseIf x > 79 Then
Timer(2).Enabled = True '计时器2开
Timer(1).Enabled = False '计时器1关闭
Exit Sub
End If
Case 2
If x >= -79 Then
y = Sqr((1 - x * x / (80 * 80)) * 78 * 78)
x = x - 1 '不断移动
ElseIf x < -79 Then
Timer(1).Enabled = True '计时器1开
Timer(2).Enabled = False '计时器关闭
Exit Sub
End If
End Select
Earth.Move x - Earth.Width / 2, y + Earth.Height / 2 '地球移动一点
Label2.Move x - Label2.Width / 2, y + Label2.Height / 2 '文字跟随移动
End Sub
程序运行图
今天的内容就到这里，祝大家假期愉快、学习进步！
祝愿大家学习成功！
长按上图，关注跟我学VB公众平台
