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

沈 阳 航 空 航 天 大 学 课程设计学 号 _2011040301131_班 级 _14030103_ 姓 名 _赵双_ 指导教师 _董如楠_2013年 3 月 18 日沈阳航空航天大学课程设计任务书学院：空军后备军官学院 专业：飞行器制造工程 班级：14030103学号：2011040301131 题目：时钟模拟一、课程设计时间2013年3月11日15日（第3周），共计1周。二、课程设计内容在窗体上演示一个正在工作的有时、分、秒指针的时钟，要求：可以对时钟的时间进行手工修正。用户界面中的菜单（或命令按钮）至少应包括“运行时钟”、“修改时间”、 “退出”3项。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩 六、教师评语目 录需求分析4设计分析5关键技术6总结9完整的源程序10参考文献13需求分析模拟时钟运行，主要要求是设计一个有时针，分针和秒针的时钟。其应该具有“运行时钟”，“修改时钟”和“退出程序”3种功能。要求：在窗体上设计一个具有时针，分针和秒针的表盘。此表盘用户菜单至少应包括“运行时钟”，“修改时钟”和“退出”3项。能够运行时钟。能够随时对时钟进行修改。能够随时退出运行程序。设计分析（1） 基本原理：建立程序设计与图形方法绘制图形的综合应用。用Line方法For循环以及Timer控件使时钟能够动态运行 （2）设计：开始调节时钟修改时间确定修改暂停或开始对时钟进行调整时钟重新运行退出结束程序 关键技术1 声明变量，定义窗体 Const PI = 3.1415926Dim BaseX As Integer, BaseY As Integer, R As Integer（对变量进行声明） Private Sub Form_Load()Me.ScaleMode = 3Me.Width = 5505Me.Height = 5475End Sub（定义窗体的高度和宽度）2 绘制表盘的代码如下Private Sub biaopan()Dim i As IntegerBaseX = Me.ScaleWidth / 2BaseY = Me.ScaleHeight / 2If BaseX BaseY Then R = BaseX * 0.6If BaseX BaseY Then R = BaseX * 0.6If BaseX 12 ThenH = H - 12End IfMe.DrawWidth = 1DrawLine BaseX, BaseY, BaseX + (R - 10) * Sin(S * PI / 30), BaseY - (R - 10) * Cos(S * PI / 30), 0DrawLine BaseX, BaseY, BaseX + R * 0.8 * Sin(M * PI / 30), BaseY - R * 0.8 * Cos(M * PI / 30), 1DrawLine BaseX, BaseY, BaseX + R * 0.6 * Sin(H + M / 60) * PI / 6), BaseY - R * 0.6 * Cos(H + M / 60) * PI / 6), 2End SubPrivate 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 IntegerStatic OldMX1 As Integer, OldMX2 As Integer, OldMY1 As Integer, OldMY2 As IntegerStatic OldHX1 As Integer, OldHX2 As Integer, OldHY1 As Integer, OldHY2 As IntegerSelect Case FlagCase 0Me.DrawWidth = 1Me.Line (OldSX1, OldSY1)-(OldSX2, OldSY2), BackColorMe.Line (x1, y1)-(x2, y2)OldSX1 = x1OldSX2 = x2OldSY1 = y1OldSY2 = y2Case 1Me.DrawWidth = 2Me.Line (OldMX1, OldMY1)-(OldMX2, OldMY2), BackColorMe.Line (x1, y1)-(x2, y2)OldMX1 = x1OldMX2 = x2OldMY1 = y1OldMY2 = y2Case 2Me.DrawWidth = 3Me.Line (OldHX1, OldHY1)-(OldHX2, OldHY2), BackColorMe.Line (x1, y1)-(x2, y2)OldHX1 = x1OldHX2 = x2OldHY1 = y1OldHY2 = y2Case ElseMe.Line (x1, y1)-(x2, y2)End SelectEnd SubPrivate Sub Form_Resize()ClsCall biaopanEnd SubPrivate Sub Timer1_Timer()Call DrawClockLabel1.Caption = Time()End Sub参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，20032 龚沛曾 杨志强 陆慰民.Visual