指针式时钟--课程设计.docx

2014届学生结课论文 存档编号：_ 长春建筑学院文创学院 课程设计总结报告 课程设计题目 部 （系） 专 业 姓 名 学 号 指导教师 2016年 6月 10 日目 录第1章课程设计概述11.1 课程设计名称31.2 任务要求31.3 开发环境4第2章总体设计42.1 系统功能需求分析42.2 系统总体设计框架5第3章 详细设计53.1 声明变量，定义窗体 53.2 绘制表盘的代码如下63.3 画线函数代码如下73.4 Timer控件代码如下93.5 修改时间控件代码如下93.6 确认修改控件代码如下 93.7 退出控件代码如下103.8完整代码10 第4章 调试分析过程描述15 第5章课程设计体会15 课程设计任务书第1章课程设计概述1.1 课程设计名称指针式时钟1.2 任务要求使用VB很容易就能设计一个具有基本功能的指针试时钟程序。但是，很多指针式时钟程序是使用Label、Shape等基本控件和Line方法来制作最简单的指针式时钟。本次课设要使用API函数、控件对象等方法设计一个具有圆形窗口、旋转字体、窗口可拖动和始终置前等功能的指针式时钟。指针式时钟不但要具有显示当前时间的基本功能，还要有时间和闹铃设置等基本功能，以及圆形窗体界面等风格。本次课设设计的指针式时钟包括以下功能： 1.指针式时钟需要有时针、分针和秒针三根时钟指针。2.时钟界面为圆形，并且没有任何边框。3.程序启动时，时钟的默认时间是计算机系统时间。4.时钟截面上需要有分钟刻度线和小时刻度线。5.3、6、9和12点需要有罗马数字表示时间，并且各数字需要旋转到相应的角度。6.可以使用鼠标将时钟拖到屏幕的任何位置。7.可以使用热键Esc退出时钟程序。8.可以设置时钟的时间。9.可以设置闹钟时间。10.可以设置时钟窗口始终置前，也可以取消时钟窗口置前，系统默认时钟窗口始终置前。1.3 开发环境基于vb6.0的操作使用第2章总体设计2.1 系统功能需求分析模拟时钟运行，主要要求是设计一个有时针，分针和秒针的时钟。其应该具有“运行时钟”，“修改时钟”和“退出程序”3种功能。 要求： 在窗体上设计一个具有时针，分针和秒针的表盘。此表盘用户菜单至少应包括“运行时钟”，“修改时钟”和“退出”3项。 能够运行时钟。 能够随时对时钟进行修改。 能够随时退出运行程序。2.2 系统总体设计框架（1）基本原理：建立程序设计与图形方法绘制图形的 综合应用。用Line方法For循环以及Timer控件使时钟能够动态运行 开始（2）设计：退出确定修改修改时间调节时钟结束程序时钟重新运行对时钟进行调整暂停或开始第3章 详细设计3.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（定义窗体的高度和宽度） 3.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 = BaseX * 0.6If BaseX 12 Then H = H - 12 End If Me.DrawWidth = 1 DrawLine BaseX, BaseY, BaseX + (R - 10) * Sin(S * PI / 30), BaseY - (R - 10) * Cos(S * PI / 30), 0 DrawLine BaseX, BaseY, BaseX + R * 0.8 * Sin(M * PI / 30), BaseY - R * 0.8 * Cos(M * PI / 30), 1 DrawLine BaseX, BaseY, BaseX + R * 0.6 * Sin(H + M / 60) * PI / 6), BaseY - R * 0.6 * Cos(H + M / 60) * PI / 6), 2 End 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 Label4_Click()End SubPrivate Sub Timer1_Timer()Call DrawClockLabel1.Caption = Time()End SubPrivate Sub Command1_Click()Text1.Visible = TrueMsgBox 请输入要修改的时间,输入的数字必须符合时间格式Text1.SetFocus End SubPrivate Sub Command3_Click()Time() = Text1.TextLabel1.Caption = Text1.TextEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 27 ThenEndEnd IfEnd Sub第4章 调试分析过程描述 调试过程中出现的了时钟不能运行的情况，经过检查发现代码没有问题，最后发现是timer控件interval忘记了设置。设置后可以运行。第5章课程设计体会这次课设我的题目是时钟模拟，通过这次课设让我了解了VB可以画出许多图形，并且可以将其与Timer控件联系起来，是图形能够运动起来。还可以运用一些颜色函数给予图形色彩，使图形更加美观生动