文档介绍
太阳系行星轨道及运行动画演示本程序对太阳系行星、卫星运行情况进行动画演示。具有以下功能：1.可单独（或全部）显示或隐藏某个天体、运行轨道、天体名称。2.可调节演示速度、画面比列、观察角度（从天球赤道到天球北极观察太阳系）。3.可将某个天体（例如月亮）设置为屏幕中间静止不动的天体，观察其他天体相对于该天体运行的情况。本程序改进版见：太阳系行星轨道及运行-3D立体动画演示通过设置不同的参数，可得到许多美丽而奇妙的图案，如下：'需在窗体放置以下3个控件，所有控件均采用默认设置：'Picture1，Command1，Timer1'注意：在属性窗口将Command1的Index属性设置为0'其次，为窗体添加一个名为mFast的菜单，再为mFast添加一个名为mmFast的下级子菜单，并将mmFast的索引设置为0。'即：mmFast是以序号0开头的菜单数组控件的第一个。'以下是窗体代码，在VB6.0调试通过：DimctD()AstyD,ctDsAsLong,ctPAsSingle,ctCenterAsLongDimctBiAsSingle,ctVAsSingle,ctTrackAsBoolean,ctBWAsLongDimctSeeJAsLong,ctSeeBiAsSingle,ctSetAsMenuSet'定义表示天体的数据类型PrivateTypetyDCapAsString'天体名称rAsLong'天体半径（像素，下同）aAsSingle'轨道：横半径bAsSingle'轨道：纵半径cAsSingle'轨道：焦点eAsSingle'轨道：偏心率IsHuiAsBoolean'是否彗星FatherAsLong'父天体序号：轨道焦点上的