32-多功能计时器.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：B 实现基本要求代码: 约200行 主要涉及: 基本控件、算法、文件操作 一、设计题目：多功能计时器（出题人：王岩） 二、目的与要求 1.目的 培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的图像控件进行界面设计，用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。 2.基本要求 设计一个具有时钟、秒表和倒计时功能的“多功能计时器” 3.创新要求 在基本要求达到后，必须进行创新设计，创新点可以自己选择，方向提示如下（也可以自己拟订）： 程序在每次Timer事件发生时全部重绘所有字符，很多时候没有必要所有字符重绘。试着编制在绘制字符的程序时，只重绘变化的字符。 三、设计方法和基本原理 1 问题描述 （1）程序启动时，首先进入图1所示的“时钟”模式。要求以“YYYY-MM-DD HH：MM：SSA/P”的形式显示当前日期、时间和上下午。月日时分秒始终以两位数字显示。日期和时间之间留一空格，小时采用12小时制，用“A”表示上午，“P”表示下午。 图１ （2）从“文件”菜单中选择“秒表”或“倒计时”命令可以进入相应模式。 （3）选择“秒表”模式后，程序显示0：00：00.00，如图2所示，单击“开始”按钮后秒表走时，小数点后精确到0.01s，从“.00”到“.99”。 秒表走时时，开始按钮变为暂停，回零按钮成为无效状态。单击暂停按钮，秒表暂停，暂停按钮变为继续，单击此按钮秒表接着暂停前的时间走时。在暂停状态时，回零按钮变为可用，单击将秒表示数归零，继续按钮变为开始。 （4）选择相应菜单命令进入倒计时模式时，首先弹出如图3所示的“设置倒计时长度” 对话框。输入时分秒值并单击“开始”按钮关闭对话框后直接开始倒计时。如果指定的时间不正确，如输入负值或大于59的分或秒，则显示消息框要求重新输入。 如果倒计时时间归零，则显示时间到消息框，并且窗口背景以不同的颜色闪烁以示提醒。 图2 图3 2.问题的解决方案 四、主要技术问题的描述： (1)提供下图。图片大小为256*27像素。使用PictureClip 控件将此图片分为16个图快（Rows属性为1，Cols属性为16），然后根据显示的需要将图块绘制到窗体或图片框中即可显示时间，也可以将图块赋值给Image控件数组来显示时间。 下面的例程是如何将一个包括时间信息的字符串以液晶的效果显示到一个图片框中，其中PC是已设置好Picture、Rows和Cols属性的PictureClip控件名。 Private sub Show_LED(pic as PictureBox,str as string) Dim s as string*1 Dim pos as integer Dim i as integer Dim n as integer For i=1 to Len(str) s=mid(str,i,1) n=-1 select case s case “0” to “9” n=Cint(s) case “:” n=10 case “-” n=11 case “.” n=12 case “a”,”A” n=13 case “p”,”P” n=14 case “” n=15 end select if n-1 then pic.PaintPicture PC.GraphicCell(n),pos,0 pos=pos+16 end if next end sub 因为所有显示内容全部来自于这个图片，所以可以在设计时将此文件赋值给PictureClip控件的Picture属性。 (2)为了保证正确绘制，应将显示时间的图片框的ScaleMode属性设置为3（以像素为绘图单位）、将AutoRedraw属性设置为True。 五、参考资料 Visual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 VB参考资料中的“文本编辑器.ZIP” MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为B级，综合时乘难度系数0.9） 完成基本要求 60-80 创新要求完成任意两项(不包括“其它”) 90 创新要求全部完成，并有自己独创性 100 [注：最后得分是根据本部分得分(占最大比例）以及课程设计期间纪律、设计报告书、答辩情况综合得出] VB课程设计任务书 – 多功能计时器 第1页共3页