动画模拟篮球的自由落体运动.docVIP

沈 阳 航 空 航 天 大 学 课程设计 学 号 _2009040601278__ 班 级 ______ 姓 名 ____田晓光______ 指导教师 ______刘成____ 2011年 3 月 26 日沈阳航空工业学院 课程设计任务书 学院：机电工程 专业：机械制造 班级学号：2009040601278 题目：动画模拟篮球的自由落体运动 一、课程设计时间 2010~11第2学期第2周，共计2周，40学时。 二、课程设计内容 先将篮球平稳置于一定高度，然后松手让其做垂直方向的自由落体运动，篮球落地后做第一次反弹，并运动到反弹的最高点。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“输入相关系数”“开始运动”“退出”3项 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：__ ______ 五、成绩 六、教师评语 目 录 需求分析 4 设计分析 4 关键技术 6 总结 10 完整的源程序 11 参考文献 13 需求分析 设计一个能模拟篮球自由落体运动的动画，要求： 1小球下落过程要符合相应的物理定理 2能通过输入相关数据控制篮球的初始高度 3能人为的控制篮球的运动和停止 设计分析 (1) 基本原理：运用if语句和timer控件配合实现篮球的往复循环运动。 (2)总体设计： （3)详细设计： 程序： 窗体设计： 关键技术 1实现小球的往复运动 Private Sub Timer1_Timer() ShTop = g * t ^ 2 / 2 Shape1.Top = Line1.Y1 - Shape1.Height - h + ShTop If Shape1.Top = Line1.Y1 - Shape1.Height Then if语句 Timer2.Enabled = False Shape1.Top = Line1.Y1 - Shape1.Height Timer3.Enabled = True Else If t = 0 Then Timer3.Enabled = False t = 0 Timer2.Enabled = True End If End If End Sub End Sub Private Sub Timer2_Timer() t = t + 1 End Sub Private Sub Timer3_Timer() t = t - 1 End Sub 解释：起初timer2可用t = t + 1，当小球下落到“地面Shape1.Top = Line1.Y1 - Shape1.Height时 timer2不可用，timer3可用t = t – 1，t=0时timer3不可用，timer2可用，如此实现篮球的往复运动。 2消息提示框的实现 程序段如下： Timer1.Interval = 10 Timer2.Interval = 10 Timer3.Interval = 10 Shape1.Left = (Me.ScaleWidth - Shape1.Width) / 4 篮球初始位置 t = 0 h = Val(Text1.Text) If h 10 Or h 20000 Then 提醒框 MsgBox 超出范围, 0 + vbExclamation, 提醒 Text1.Text = Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False End If End Sub 3实现“暂停”“结束”按钮功能 Private Sub Command3_Click() 暂 Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False End Sub Private Sub Comma