天体运行程序代码.docVIP

以下是窗体代码，在 VB6.0 调试通过：一、必须在引用中勾选：OLE Automatuon，否则 Img As StdPicture 语句会出错二、需在窗体放置以下 4 个控件，所有控件不用设置任何属性，均采用默认设置：??? Picture1，Picture2，Timer1，Command1（注意：在属性窗口将 Command1 的 Index 属性设置为 0）三、为窗体添加一个名为 mFast 的菜单，再为 mFast 添加一个名为 mmFast 的下级子菜单，并将 mmFast 的索引设置为 0。??? 即：mmFast 是以序号 0 开头的菜单数组控件的第一个。Dim ctD() As tyD, ctDs As Long, ctB() As Long, ctCenter As Long, ct3D As BooleanDim ctBi As Single, ctV As Single, ctBW As Long, ctSeeJ As Long, ctTrack As BooleanDim ctSeeBi As Single, ctSet As MenuSet, ctShowXX As Boolean, ctColorXX As BooleanDim ctP180 As Single, ctP90 As Single, ctP270 As Single, ctP360 As SingleDim ctSmall() As tySmall, ctSmalls As Long, ctX() As tyX, ctXs As Long, ctSize As Long定义表示星星的数据类型Private Type tyX??? x As Single??? y As Single??? r As Long??? t As Long??? Se As LongEnd Type定义表示天体的数据类型Private Type tyD??? Ji As Long???????天体级别??? Cap As String????天体名称??? r As Long????????天体半径（像素，下同）??? a As Single??????轨道：横半径??? b As Single??????轨道：纵半径??? C As Single??????轨道：焦点??? e As Single??????轨道：偏心率??? Dip As Single????轨道：倾角??? IsHui As Boolean 是否彗星??? IsSmall As Boolean 是否小行星??? Father As Long???父天体序号：轨道焦点上的天体??? Se As Long???????颜色??? V As Single??????运行角速度??? Jiao As Single???某时刻的与父天体连线角度??? x As Single??????天体当前坐标??? y As Single??? xUp As Single????上一时刻坐标??? yUp As Single??? Visible As Boolean 是否显示：球体??? ShowCap As Boolean 是否显示：标题??? GuiDao As Boolean??是否显示：轨道??? GuiJi As Boolean???是否显示：轨迹??? Img As StdPicture??天体 3D 图像??? LineFu As Boolean??与父天体的中心连线End Type定义小行星类型Private Type tySmall??? a As Single??????轨道：横半径??? b As Single??????轨道：纵半径??? Jiao As SingleEnd TypeEnum MenuSet???以下为 选项菜单 标示??? ms_Size = -11????设置字体大小??? ms_RunStop = -10 开始/暂停??? ms_3D = -9???????3D 立体图像??? ms_ColorXX = -8??是否显彩色星星??? ms_ShowXX = -7???是否显示闪烁的星星??? ms_DefSet = -6???默认设置??? ms_Track = -5????轨迹：显示/隐藏???以下为 菜单全选、全不选??? ms_Wei = -4??? ms_Xing = -3??? ms_All = -2??? ms_NoAll = -1???以下为 按钮 标示??? ms_Step = 0????步进，下一位置