VB时钟模拟的课程设计报告.docVIP

沈 阳 航 空 航 天 大 学 课程设计 学 号 __2011040301131______ 班 级 _______ 姓 名 __赵双_______ 指导教师 __董如楠________ 2013年 3 月 18 日沈阳航空航天大学 课程设计任务书 学院：空军后备军官学院 专业：飞行器制造工程 班级学号：2011040301131 题目：时钟模拟 一、课程设计时间 2013年3月11日~15日（第3周），共计1周。 二、课程设计内容 在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。 用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、 “退出”3项。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语 目 录 需求分析 4 设计分析 5 关键技术 6 总结 9 完整的源程序 10 参考文献 13 需求分析 模拟时钟运行，主要要求是设计一个有时针，分针和秒针的时钟。其应该具有“运行时钟”，“修改时钟”和“退出程序”3种功能。 要求： ①在窗体上设计一个具有时针，分针和秒针的表盘。此表盘用户菜单至少应包括“运行时钟”，“修改时钟”和“退出”3项。 ②能够运行时钟。 ③能够随时对时钟进行修改。 ④能够随时退出运行程序。 设计分析 基本原理：建立程序设计与图形方法绘制图形的综合应用。用Line方法For循环以及Timer控件使时钟能够动态运行 （2）设计： 关键技术 1 声明变量，定义窗体 Const PI = 3.1415926 Dim BaseX As Integer, BaseY As Integer, R As Integer（对变量进行声明） Private Sub Form_Load() Me.ScaleMode = 3 Me.Width = 5505 Me.Height = 5475 End Sub（定义窗体的高度和宽度） 2 绘制表盘的代码如下 Private Sub biaopan() Dim i As Integer BaseX = Me.ScaleWidth / 2 BaseY = Me.ScaleHeight / 2 If BaseX BaseY Then R = BaseX * 0.6 If BaseX BaseY Then R = BaseY * 0.6（当窗体的高度和宽度发生改变时，使得表盘始终在窗体的中心） For i = 0 To 360 Step 6 If i Mod 30 = 0 Then Me.DrawWidth = 2 DrawLine BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180), BaseX + (R - 8) * Sin(i * PI / 180), BaseY - (R - 8) * Cos(i * PI / 180), 3（在表盘时针刻度的地方绘制断线） Else: Me.PSet (BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180)), vbBlue（在表盘分针刻度的地方画点） End If Next i Me.DrawWidth = 1 Me.Circle (BaseX, BaseY), R, vbRed End Sub 3 画线函数代码如下 Private Sub DrawLine(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, Flag As Integer)（自己编写一个画线的函数） Static OldSX1 As Integer, OldSX2 As Integer, OldSY1 As Integer, OldSY2 As Integer Static OldMX1 As Integer, OldMX2 As Integer, OldMY1 As Integer, OldMY2 As Integer Static OldHX1 As Integer, OldH