多功能计时器课设报告模板汇编.docVIP

********大学 课程设计 学号：_***********_ 班级：********* _ 姓名：******_____ 指导教师：******__ 2014年 * 月 * 日沈阳航空航天大学 课程设计任务书 学院：****学院 专业：***** 班级：******* 学号：********** 题目：多功能计时器 一、课程设计时间 2014~15 第一学期 第2周，共一周，20学时 二、课程设计内容 利用VB编写小程序，模拟一个时钟计时器，要求该计时器可以实现多种计时方式，具体的功能概括如下： 1 要求具有时钟、秒表、倒计时钟三种计时方式，方式的选择可通过按钮，也可通过菜单等实现； 2 能够以电子表的格式显示日期及时间，时间会以时钟的真实方式运行计时； 3可以模拟秒表的运行，可以控制秒表的计时及暂停； 4可以实现倒计时，结束时给出相应提示。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语 目录 需求分析 4 设计分析 4 技术要点 5 主要界面截图 6 总结 7 完整的源程序 8 参考文献 9 需求分析 设计一款多功能计时器，要求计时器： 具有时钟、秒表、倒计时钟三种计时方式，计时方式可通过菜单转换 能够以电子表的格式显示日期及时间，并以时钟的真实方式运行计时 可以模拟秒表的运行，可以控制秒表的计时及暂停 可以实现倒计时，并在计时结束时弹出提示对话框 设计分析 （1）概述： 多功能计时器主要利用菜单编辑器和timer控件以及format函数，使timer控件的interval属性值为1000，以控制秒表与倒计时器。 （2）总体设计： （3）详细设计： 框图部分，若干框图。应以传统流程图或N-S框图的方式，表示出各个主要模块的工作过程。 技术要点 使用timer控件和if函数创建倒计时钟的代码如下： Private Sub Timer2_Timer() Text1.Text = Val(Text1.Text) - 1 If Val(Text1.Text) = 0 And Val(Text2.Text) 0 Then Text2.Text = Val(Text2.Text) - 1 Text1.Text = 60 End If If Val(Text2.Text) = 0 And Val(Text3.Text) 0 Then Text3.Text = Val(Text3.Text) - 1 Text1.Text = 60 Text2.Text = 60 End If If Text1.Text = 0 And Text2.Text = 0 And Text3.Text = 0 Then MsgBox 计时结束 ------------ 计时结束后提示 Timer2.Enabled = False --------- 计时结束 End If End Sub 2.使用format函数将日期转化为字符串输出代码如下： Private Sub Timer3_Timer() Label6.Caption = Format(Now(), yyyy年m月d日) WeekdayName(Weekday(Now(), vbSunday)) Label7.Caption = Format(Now(), hh:mm:ss) End Sub 主要界面截图 图1 主界面 图2 时钟 图3 秒表 图4 倒计时器 总结 一个假期没学习，基本把以前学过的知识忘光了，这次课设不仅让我捡起了忘掉的内容，还加深了印象，让我对vb程序有了更深的了解。同时，在编写程序的过程中与同学一起讨论不懂的问题，向老师求教，也让我收获了许多。  完整的源程序 Private Sub Form_Load() Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False End Sub Private Sub kaishi_Click() Timer2.Enabled = True Text1.Text = Val(InputBox(请输入秒)) Text2.Text = Val(InputBox(请输入分)) Text3.Text =