VB课程设计任务书32-多功能计时器

Image控件数组来显示时间。下面的例程是如何将一个包括时间信息的字符串以液晶的效果显示到一个图片框中,其中PC是已设置好Picture、Rows和Cols属性的PictureClip控件名。PrivatesubShow_LED(picasPictureBox,strasstring)Dimsasstring*1DimposasintegerDimiasintegerDimnasintegerFori=1toLen(str)s=mid(str,i,1)n=-1selectcasescase“0”to“9”n=Cint(s)VB课程设计任务书–多功能计时器第3页共3页case“:”n=10case“-”n=11case“.”n=12case“a”,”A”n=13case“p”,”P”n=14case“”n=15endselectifn<>-1thenpic.PaintPicturePC.ell(n),pos,0pos=pos+16endifnextendsub因为所有显示内容全部来自于这个图片,所以可以在设计时将此文件赋值给PictureClip控件的Picture属性。(2)为了保证正确绘制,应将显示时间的图片框的ScaleMode属性设置为3(以像素为绘图单位)、将AutoRedraw属性设置为True。五、参考资料★VisualBasic程序设计教程及VisualBasic实验教程★VB6.0程序员指南★VB6.0控件参考手册★VB参考资料中的“文本编辑器.ZIP”★MSDN中文版,课程设计网站上提供的其它资料。六、设计部分的评分标准(本题难度为B级,综合时乘难度系数0.9)完成基本要求60-80创新要求完成任意两项(不包括“其它”)90创新要求全部完成,并有自己独创性100[注:最后得分是根据本部分得分(占最大比例)以及课程设计期间纪律、设计报告书、答辩情况综合得出]