资源描述：
《太阳系行星轨道及运行》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、实用标准文案太阳系行星轨道及运行动画演示本程序对太阳系行星、卫星运行情况进行动画演示。具有以下功能：1.可单独（或全部）显示或隐藏某个天体、运行轨道、天体名称。2.可调节演示速度、画面比列、观察角度（从天球赤道到天球北极观察太阳系）。3.可将某个天体（例如月亮）设置为屏幕中间静止不动的天体，观察其他天体相对于该天体运行的情况。本程序改进版见：太阳系行星轨道及运行-3D立体动画演示通过设置不同的参数，可得到许多美丽而奇妙的图案，如下：精彩文档实用标准文案精彩文档实用标准文案'需在窗体放置以下3个控件，所有控件均采用默认设置：'
2、 Picture1，Command1，Timer1'注意：在属性窗口将Command1的Index属性设置为0'其次，为窗体添加一个名为mFast的菜单，再为mFast添加一个名为mmFast的下级子菜单，并将mmFast的索引设置为0。' 即：mmFast是以序号0开头的菜单数组控件的第一个。'以下是窗体代码，在VB6.0调试通过：DimctD()AstyD,ctDsAsLong,ctPAsSingle,ctCenterAsLongDimctBiAsSingle,ctVAsSingle,ctTrackAsBoolean
3、,ctBWAsLongDimctSeeJAsLong,ctSeeBiAsSingle,ctSetAsMenuSet'定义表示天体的数据类型PrivateTypetyDCapAsString '天体名称精彩文档实用标准文案rAsLong '天体半径（像素，下同）aAsSingle '轨道：横半径bAsSingle '轨道：纵半径cAsSingle '轨道：焦点eAsSingle '轨道：偏心率IsHuiAsBoolean'是否彗星FatherAsLong '父天体序号：轨道焦点上
4、的天体SeAsLong '颜色VAsSingle '运行角速度JiaoAsSingle '某时刻的与父天体连线角度XAsSingle '天体当前坐标YAsSinglexUpAsSingle '上一时刻坐标yUpAsSingleVisibleAsBoolean'是否显示：球体ShowCapAsBoolean'是否显示：标题GuiDaoAsBoolean'是否显示：轨道EndTypeEnumMenuSet'以下为选项菜单标示ms_All=-2ms_NoAll=-1'以下为按钮标示ms_RunStop
5、=0'开始/暂停ms_Step '步进，下一位置ms_UnRun '后退ms_Track '轨迹：显示/隐藏ms_DefSet '默认设置ms_Center '参照系ms_Visible '天体：显示/隐藏ms_ShowCap '天体名称ms_GuiDao '轨道ms_Bi '缩放比 ms_V '速度ms_SeeJ '视角EndEnumPrivateSubForm_Load()Me.ScaleMode=3:Me.
6、Caption="太阳系行星运行演示"mFast.Visible=False:ctP=3.1415926Timer1.Interval=25:Timer1.Enabled=TrueCallInit'Me.WindowState=vbMaximized'最大化窗体'窗体大小为屏幕的精彩文档实用标准文案3/4，居中Me.MoveScreen.Width*0.1,Screen.Height*0.1,Screen.Width*0.8,Screen.Height*0.8EndSubPrivateSubForm_Resize()DimIA
7、sLong,LAsSingle,TAsSingle,HAsSingle,H1AsSingle,WAsSingle'设置控件位置H1=Me.TextHeight("A"):L=H1*0.3:T=LL=3ForI=0ToCommand1.Count-1W=Me.TextWidth(Command1(I).Caption&"ab")Command1(I).MoveL,T,W,H1*2L=L+W+3NextT=T*2+Command1(0).Height:H=Me.ScaleHeight-TIfH>0ThenPicture1.Move
8、0,T,Me.ScaleWidth,H'将Picture1的中心设置为坐标原点Picture1.ScaleMode=3Picture1.ScaleLeft=-Picture1.ScaleWidth*0.5Picture1.ScaleTop=-Picture1.ScaleHei
