模拟时钟的VB程序.doc

沈 阳 航 空 航 天 大 学 课程设计 学 号 2009040301055 班 级 姓 名 李超 指导教师 刘学平 2010 年 3 月 15 日沈阳航空航天大学 课程设计任务书 学院：航空宇航工程学院 专业：飞行器制造 班级学号：2009040301055 题目：模拟时钟 一、课程设计时间 2011年3月7日~11日（第1周），共计1周。 二、课程设计内容 在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。 用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、 “退出”3项。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语 目 录 一、需求分析 4 二、设计分析 5 三、关键技术 7 四、总结 12 五、完整的源程序 14 六、参考文献 16 一、需求分析 “模拟时钟”软件。在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、 “退出”3项。 ①在VB窗体Form1中设计模拟时钟表盘，设计四个按钮：运行时钟、修改时间、应用、退出。在窗体Form2中设计填输入时间的位置和两个按钮：重新输入、确定。 ②用运行时钟按钮使时钟从零点开始运行。 ③利用修改时间按钮在Form2中输入合理时间，单击确定后单击应用使模拟时钟按所需时间开始运行。 ④Form2中重新输入按钮可以使所有Text控件清空，可以进行时间的重新输入。 ⑤程序可以实现时钟指针的转动。 二、设计分析 基本原理：设计表盘，利用勾股定理实现时钟的转动，通过两个窗体的配合实现修改时间的功能，使模拟时钟能像正常时钟一样运行。 总体设计： 图1 总体设计 详细设计： 图2 详细设计 （4）表盘设计： 图3 表格 三、关键技术 1实现指针的转动 Private Sub Timer1_Timer() Static s!, m!, h! s = s + 1 m = s / 60 h = m / 60 LineS.X2 = LineS.X1 + a * Sin(s * 6 * pai / 180) LineS.Y2 = LineS.Y1 - a * Cos(s * 6 * pai / 180) LineM.X2 = LineM.X1 + b * Sin(m * 6 * pai / 180) LineM.Y2 = LineM.Y1 - b * Cos(m * 6 * pai / 180) LineH.X2 = LineH.X1 + c * Sin(h * 30 * pai / 180) LineH.Y2 = LineH.Y1 - c * Cos(h * 30 * pai / 180) End Sub 使时钟从初始位置开始工作 图4 2 Form1与Form2的连接 （1）显示Form2 Private Sub Command2_Click() Timer2.Interval = 0 Timer1.Interval = 0 Form2.Show 关闭定时器1、定时器2，对时间进行手工修改 End Sub 图5 (2)Form2隐藏 Private Sub Command1_Click() If Val(Text1.Text) 24 Or Val(Text1.Text) 0 Or Val(Text2.Text) 60 Or Val(Text2.Text) 0 Or Val(Text3.Text) 60 Or Val(Text3.Text) 0 Then MsgBox 请输入合理时间: Text1.Text = : Text2.Text = : Text3.Text = 数据不合理时弹出提示 Else Form1.Show Form2.Hide 读取到修改