《计算机应用基础课程设计说明书(vb时钟程序)》由会员分享，可在线阅读，更多相关《计算机应用基础课程设计说明书(vb时钟程序)（15页珍藏版）》请在金锄头文库上搜索。
1、交通与汽车工程学院 课程设计说明书课 程 名 称: 计算机应用基础课程设计 课 程 代 码: 6011339 题 目: 时钟程序设计 年级/专业/班: 2011 级车辆 2 班 学 生 姓 名: 曹安 学 号: 312011080306220 开 始 时 间: 2012 年 2 月 20 日完 成 时 间: 2012 年 3 月 2 日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总 分（100）指导教师签名： 年 月 日计算机应用基础课程设计- 1 -目 录 （小三黑体，居中）摘要摘要221 1 引言引言331.1
2、 问题的提出 31.2 任务与分析 32 2 设计方案设计方案442.1 程序功能设计 42.1.1 程序功能描述 42.1.2 程序功能结构分析 42.2 程序界面和代码设计 52.2.1 工程设计框架 52.2.2 各界面及代码设计 5 3 3 结果分析结果分析 1212结论结论 1212致谢致谢 1313参考文献参考文献 1414计算机应用基础课程设计- 2 -摘 要 随着计算机的不断更新发展,计算机绘图方法和计时器的使用扮演着极为重要的角色， Windows 环境下的 Visual Basic 提供了丰富的绘图方法。本文主要通过对选题背景、方案设计、界面设计、代码编写及调试以及软件使用
3、说明等的介绍，介绍了作者利用 Visual Basic 对“简易时钟程序设计”应用软件的开发设计过程，并分析了所开发软件系统的优点和不足。关键词：关键词：Visual Basic 简易时钟 程序设计 计算机应用基础课程设计- 3 -1 1 引 言 通过一年来对 Visual Basic 高级语言程序设计的学习，我已经掌握了一些常用的控件的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对绘图和时间控制的一些基本操作。为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化 Visual Basic 对程序流程控制、常用控件的属性、事件、方法的理解和使用；1.1
4、 问题的提出 为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特选定“简易时钟程序设计”这个寓教于乐的小题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解决实际问题的能力，可以充分发挥想象力和创新能力；有助于提高独立思考能力，自学能力和团队协作能力。1.2 任务与分析 本任务是设计一个简易时钟，显示当前的时间。主要运用了 visual basic 的绘图方法和对 timer 控件的使用。要将绘图方法和时间指针的走动相结合起来，找出其内在的联系。计算机应用基础课程设计- 4 -2 设计方案 显示一个
5、动画时钟，该时针随着每一秒而动态变化。与其他图形动画技术一样，每隔 1 秒（1000 毫秒）触发 Timer 事件下的过程，绘制三个指针的位置，这样就实现了每秒走时的电子钟。而显示当前时间则在 timer 事件中将当前时间（time）附给 tabel1 的caption，这样就显示啦，当前的时间。在时钟的框架上，用绘图方法 line 和 circle 就可以啦。 2.1 程序功能设计 设计一个类似于 Windows“时钟”的程序，并用数字显示时间。2.1.1 程序功能描述 1、在界面显示一个活动时钟，能模拟机械钟表行走；2、表盘上有刻度和数字,数字显示当前时间；3、时针、分针、秒针的位置与数字
6、显示时间一致，与计算机系统时间一致；4、用户能修改时间并与计算机系统时间一致；2.1.2 程序功能结构分析主要使用时钟 Timer 控件的 Interval 属性和 Timer 事件。1 小时=60 分=3600 秒。分别用 Hour()函数、 Minute()函数、 Second()函数返回当前系统时间 Time()的小时、分钟、秒数。首先使用 Scale 方法定制用户坐标系统，如 Picture1.Scale (X1, Y1)-(X2, Y2)，定义了坐标系统（Picture1）的左上角(X1, Y1)和右下角(X2, Y2)的坐标值。坐标系统的中心在图片框的正中，时钟绘制在图片框中的正中
7、央，外圈用 Pset 方法或 Circle 方法绘制，时针、分针和秒针用 Line 方法选择不同的线形和颜色绘制。每隔 30用 Line画一大刻度，每隔 6用 Line 画一小刻度，表盘上的数字用 CurrentX, CurrentY 属性定位后再用 Print 方法输出。时针、分针、秒针随时间变化而导致的位置改变同样使用 Line 方法来实现,代码写在 Timer 事件中。计算机应用基础课程设计- 5 -2.2 程序界面和代码设计 2.2.1 工程设计框架系统有两个窗口一个模块工程名为”我的时钟”窗体名为”我的时钟”2.2.2 各界面及代码设计（1）主界面图 1欢迎界面主要代码如下:Cons
8、t PI = 3.1415926Dim BaseX As Integer, BaseY As Integer, R As IntegerDim basex1 As Integer, basey1 As Integer, basex2 As Integer, basey2 As IntegerDim basex3 As Integer, basey3 As Integer, basex4 As Integer, basey4 As Integer计算机应用基础课程设计- 6 -Dim basex5 As Integer, basey5 As IntegerDim r1 As Integer, r
9、2 As Integer, r3 As IntegerDim jiayi As IntegerDim jiaer As IntegerDim Second As IntegerDim Minute As IntegerDim Hours As IntegerPrivate Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()Form2.ShowEnd SubPrivate Sub Command3_Click()jiayi = jiayi + 1End SubPrivate Sub Command4_Click()jiaer =
10、jiaer + 1End SubPrivate Sub Command5_Click()jiayi = jiayi - 1End SubPrivate Sub Command6_Click()计算机应用基础课程设计- 7 -jiaer = jiaer - 1End Sub2）Command7 代码Private Sub Command7_Click()jiayi = 0jiaer = 0End Sub3）加载界面时公用代码Private Sub Form_Load()Me.ScaleMode = 3Me.AutoRedraw = TrueMe.ForeColor = vbBlackLabel1
11、6.Caption = TimeLabel3.ForeColor = vbRedLabel6.ForeColor = vbRedLabel9.ForeColor = vbRedLabel12.ForeColor = vbRedIf Me.Width BaseY Then R = BaseY * 0.6If BaseY BaseX Then R = BaseY * 0.6r1 = R * 0.2r2 = R * 0.1r3 = R * 0.05计算机应用基础课程设计- 8 -For i = 0 To 360 Step 6If i Mod 30 = 0 ThenMe.DrawWidth = 5Dr
12、awLine 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), 3ElseMe.DrawWidth = 3Me.PSet (BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180)End IfNext iMe.DrawWidth = 1Me.Circle (Base
13、X, BaseY), REnd Sub5）画外部表盘函数Private Sub DrawClock()If Hours 12 ThenHours = Hours - 12End IfMe.DrawWidth = 1Me.Circle (BaseX, BaseY), 4DrawLine BaseX - r1 * Sin(Second * PI / 30), BaseY + r1 * Cos(Second * PI / 30), BaseX + (R - 10) * Sin(Second * PI / 30), BaseY - (R - 10) * Cos(Second * PI / 30), 0DrawLine BaseX - r2 * Sin(Minute * PI / 30), BaseY + r2 * Cos(Minute * PI / 30), BaseX + R * 0.8 * Sin(Minute * PI / 30), BaseY - R * 0.8 * Cos(Minute * PI / 30), 1DrawLine BaseX - r3 * Sin(Hours
