计算机应用基础课程设计说明书(vb时钟程序).doc

计算机应用基础课程设计交通与汽车工程学院课程设计说明书课 程 名 称: 计算机应用基础课程设计 课 程 代 码: 6011339 题 目: 时钟程序设计 年级/专业/班: 2011级车辆2班 学 生 姓 名: 曹安 学 号: 312011080306220 开 始 时 间: 2012 年 2 月 20 日完 成 时 间: 2012 年 3 月 2 日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总 分（100）指导教师签名： 年 月 日 目 录 （小三黑体，居中）摘要21 引言31.1问题的提出 31.2任务与分析 32 设计方案42.1程序功能设计 42.1.1程序功能描述 42.1.2程序功能结构分析 42.2程序界面和代码设计 52.2.1工程设计框架 52.2.2各界面及代码设计 5 3 结果分析 12结论 12致谢 13参考文献 14 摘 要 随着计算机的不断更新发展,计算机绘图方法和计时器的使用扮演着极为重要的角色， windows环境下的visual basic提供了丰富的绘图方法。本文主要通过对选题背景、方案设计、界面设计、代码编写及调试以及软件使用说明等的介绍，介绍了作者利用visual basic对“简易时钟程序设计”应用软件的开发设计过程，并分析了所开发软件系统的优点和不足。关键词：visual basic 简易时钟 程序设计 1 引 言 通过一年来对visual basic 高级语言程序设计的学习，我已经掌握了一些常用的控件的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对绘图和时间控制的一些基本操作。为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化visual basic对程序流程控制、常用控件的属性、事件、方法的理解和使用；1.1问题的提出 为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特选定“简易时钟程序设计”这个寓教于乐的小题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解决实际问题的能力，可以充分发挥想象力和创新能力；有助于提高独立思考能力，自学能力和团队协作能力。1.2任务与分析 本任务是设计一个简易时钟，显示当前的时间。主要运用了 visual basic 的绘图方法和对timer控件的使用。要将绘图方法和时间指针的走动相结合起来，找出其内在的联系。2 设计方案 显示一个动画时钟，该时针随着每一秒而动态变化。与其他图形动画技术一样，每隔1秒（1000毫秒）触发timer事件下的过程，绘制三个指针的位置，这样就实现了每秒走时的电子钟。而显示当前时间则在timer事件中将当前时间（time）附给tabel1的caption，这样就显示啦，当前的时间。在时钟的框架上，用绘图方法line和circle就可以啦。 2.1程序功能设计 设计一个类似于windows“时钟”的程序，并用数字显示时间。2.1.1程序功能描述 1、在界面显示一个活动时钟，能模拟机械钟表行走；2、表盘上有刻度和数字,数字显示当前时间；3、时针、分针、秒针的位置与数字显示时间一致，与计算机系统时间一致；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)的坐标值。坐标系统的中心在图片框的正中，时钟绘制在图片框中的正中央，外圈用pset方法或circle方法绘制，时针、分针和秒针用line方法选择不同的线形和颜色绘制。每隔30用line画一大刻度，每隔6用line画一小刻度，表盘上的数字用currentx, currenty属性定位后再用print方法输出。时针、分针、秒针随时间变化而导致的位置改变同样使用line方法来实现,代码写在timer事件中。2.2程序界面和代码设计 2.2.1工程设计框架系统有两个窗口一个模块工程名为”我的时钟”窗体名为”我的时钟”2.2.2 各界面及代码设计（1）主界面 图 1欢迎界面主要代码如下:const 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 integerdim basex5 as integer, basey5 as integerdim r1 as integer, r2 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 = jiaer + 1end subprivate sub command5_click()jiayi = jiayi - 1end subprivate sub command6_click()jiaer = jiaer - 1end sub2）command7代码private sub command7_click()jiayi = 0jiaer = 0end sub3）加载界面时公用代码private sub form_load() me.scalemode = 3 me.autoredraw = true me.forecolor = vbblack label16.caption = time label3.forecolor = vbred label6.forecolor = vbred label9.forecolor = vbred label12.forecolor = vbred if me.width 3000 then me.width = 3000 if me.height basey then r = basey * 0.6 if basey basex then r = basey * 0.6 r1 = r * 0.2 r2 = r * 0.1 r3 = r * 0.05 for i = 0 to 360 step 6 if i mod 30 = 0 then me.drawwidth = 5 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.drawwidth = 3 me.pset (basex + (r - 3) * sin(i * pi / 180), basey - (r - 3) * cos(i * pi / 180) end if next i me.drawwidth = 1 me.circle (basex, basey), rend sub5）画外部表盘函数private sub drawclock() if hours 12 then hours = hours - 12 end if me.drawwidth = 1 me.circle (basex, basey), 4 drawline 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), 0 drawline 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), 1 drawline basex - r3 * sin(hours + minute / 60) * pi / 6), basey + r3 * cos(hours + minute / 60) * pi / 6), basex + r * 0.6 * sin(hours + minute / 60) * pi / 6), basey - r * 0.6 * cos(hours + minute / 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 = 2me.line (oldsx1, oldsy1)-(oldsx2, oldsy2), backcolorme.line (x1, y1)-(x2, y2), vbblackoldsx1 = x1oldsx2 = x2oldsy1 = y1oldsy2 = y2case 1me.drawwidth = 4me.line (oldmx1, oldmy1)-(oldmx2, oldmy2), backcolorme.line (x1, y1)-(x2, y2), vbyellowoldmx1 = x1oldmx2 = x2oldmy1 = y1oldmy2 = y2case 2me.drawwidth = 6me.line (oldhx1, oldhy1)-(oldhx2, oldhy2), backcolorme.line (x1, y1)-(x2, y2), vbredoldhx1 = x1oldhx2 = x2oldhy1 = y1oldhy2 = y2case elseend selectend subprivate sub form_resize() me.cls call initend sub6）工作函数private sub timer1_timer()dim a as integerdim b as integerdim c as integer second = datepart(s, time) minute = datepart(n, time) + jiaer hours = datepart(h, time) + jiayi a = datepart(s, time) b = datepart(n, time) + jiaer c = datepart(h, time) + jiayi call drawclock dim tt as stringlabel16.caption = c & : & b & : & aend sub（2）信息界面 图 2界面一主要代码如下：private sub command1_click()unload me form1.showend sub3 结果分析 运行结果 图 3 结 论 在设计过程中，我通过查阅大量有关资料，与同学交流经验和自学，并向老师请教等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，大大提高了自己的动手能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次程序设计的最大收获和财富，使我终身受益。当然，我也深