指针式时钟课程的设计.docxVIP

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.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 = 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.3 画线函数代码如下Private Sub DrawLine(x1 As Integer, y1 As Integer,