进一步运用VB中的Timer控件

进一步运用VB中的Timer 控件 开发研究与设计技术。。本栏目责任编辑:谢媛媛进一步运用VB 中的Timer 控件 (河南大学计算中心,河南开封475001)摘要:计时器Timer 是VisualBasic(简称VB)的常用控件。它提供了计时功能,即每隔 一段指定的时间间隔就响应一次 Timer 事件。执行相应的程序代码。用于控制某些进程本文给出计时器控件的几个 用法。 关键词:Timer;控件:属性:事件代码 中图分类号:TP311 文献标识码:A 文章编号:1009—3044(2007)21—40800—02 UsingTlmerControIinVB ZHANGji—shi,QUShen—ming (CumpurtingCenterofHenanUniversity,Kaifeng475001,China) Abstract:TimerisaControlinVisualBasic。ItProvidedTimerfunctions。Alsoataspecifiedti meintervalrespondTimer event,theimplementationofthecorrespondingprocedurecodes,usedtocontrolcertainproce sses。

（3）程序以事件为驱动，该设计分为i/o模拟端口事件（判断3个模拟端口检测的值是否超过范围，若超出，则发送相应警报）、定时发送报告事件（检测定时是否已到，若是，则发送相应的报告，重新定时）和发送消息事件（检测是否有请求消息的命令，若有，则发送相应消息）等3个事件vb timer控件的用法，程序将不断地判断哪个事件被触发，并进行该事件的处理。4. 秒表：秒表主界面点击【启动】按钮即可开始计时，计时中点击【计次】会记录每一个来回的时间，计时中点击【停止】会停止计时，停止后点击【复位】可重新初始化将秒表清零（注意：若您启动了秒表并切换至另一应用程序，秒表在后台仍然正常运行）。原因：因为tap事件是通过 touchstart 、touchmove 、 touchend 这三个事件来模拟实现的，在手机端事件机制中，触发touch事件后会紧接着触发touch事件坐标元素的click事件，因为b元素在300ms内刚好“掉”回来a的位置，所以就触发了b的click事件，还有zepto的tap事件都是代理到body的，所以想通过e.preventdefault()阻止默认行为也是不可行的。

f21 在窗体(form1)上添加一个文本框控件,名称为 TEXT1。将TEXT1 的Alignment 的属性设置为"2 一center"。 Text 的属性设置为"00:00:00",适当调整文本框的高度,宽 度,字号,字体等。 f31 在窗体(form1)上添加两个命令按钮控件。名称为 COMMAND1 和COMMAND2。分别将其Caption 的属性设 置为"启动"和"清零",适当调整命令按钮的高度,宽度,字 号,字体等。 f41 在窗体(form1)上添加一个计时器控件,名称为 TIMER1。设置TIMER1 的Interval 的属性为"1"。Enabled 的属性为"False" f5)在窗体(form1)代码窗口声明变量:DimtAsDate f61 设置Commandl 的Click 事件代码如下: IfCommand1。Caption="启动"Then Command1。Caption="停止" Timer1。Enabled=True Else。 Command1。Caption="启动"Timer1。Enabled=False'启动和停止功能 集合在一个命令按钮上 EndIf f71 设置Command2 的Click 事件代码如下: IfCommand1。

Caption:"启动"Then Timer1。Enabled=FalseText1。Text:"00:00:00"'只有当秒表停止 时。才能执行清零功能 EndIf f81 设置Timer1 的Timer 事件代码如下: t=t+"00:00:0l" Text1。xt=t 运行程序即可实现模拟秒表的功能。 倒计时我们经常在一些考试系统的界面上。可以看到有一个 倒计时器控制考试的时间【3】。这种倒计时控制可以利用Vi。 sualaasic 的Timer 控件进行设计 设计"倒计时"程序的过程: 收稿日期:2007—08—10 作者简介:张济仕,男,河南漯河人,助理实验师,硕士,计算机控制;渠慎明,男,江苏徐 州人,助教,硕士,计算机网络。 800 电脑知识与技术 本栏目责任编辑:谢媛媛开发研究与设计技术 f1)新建一工程,适当调整窗体(form1)的大小。 f2)在窗体(form1)上添加两个标签控件,名称为Label1 和Labe12。将Labe11 的Caption 的属性设置为"剩余时间", 将Labe12 的Caption 的属性设置为"10:o0",适当调整标签 的位置,高度,宽度,字号,字体等。

f3)在窗体(form1)上添加两个命令按钮控件,名称为 Commandl 和Command2。分别将其Caption 的属性设置为 "开始计时"和"退出"。适当调整命令按钮的位置,高度,宽 度,字号,字体等 f4)在窗体(form1)上添加一个计时器控件,名称为 Timer1。设置Timer1 的Interval 的属性为"1000"。Enabled 的属性为"False" f5)在窗体(form1)代码窗口声明变量:PublicsAsLong f6)设置Command1 的Click 事件代码如下:Timer1。En— abled=True f7)设置Command2 的Click 事件代码如下:End f8)设置Timer1 的Timer 事件代码如下: t:600'该程序控制时间为10 分钟。可 以根据具体情况进行调整 Ift—S=0ThenEnd Else a=Int((t—S1/601 b=(t—S)Mod60 Ifb<10Then Form1。Label2。Caption:CStr(a)+":0"+CStr(b)'当 秒数为个位时。前面加零 Else Form1。

Label2。Caption=CStr(a)+":"+CStr(b) EndIf EndIf 运行程序即可实现倒计时的功能 效果我们经常看到在某些界面上对象可以动态变化。上下 移动,左右移动,字号变化,时隐时现等各种变化。这种简单 的效果都可以通过Timer 控件进行设计 设计"效果"程序的过程: (1)新建一工程,适当调整窗体(form1)的大小。 (2)在窗体(form1)上添加一个标签控件,名称为La— bel1。将Labell 的Caption 的属性设置为"奥运"。AutoSize 的属性设置为"True",适当调整标签的位置,高度,宽度, 字号,字体等 (3)在窗体(form1)上添加一个计时器控件,名称为 Timer1。设置Timer1 的Enabled 的属性为"Tfue"。Interval 属性为"80"。(间隔时间可以调整)(4)在窗体(form1)代码窗1:3 声明变量:PublictAsLong (5)设置窗体(form1)的Load 事件代码:Label1。FontSize=5 f6)设置Timer1 的Timer 事件代码如下: IfLabel1。

Left>一Label1。WidthThen T。abel1。Ieft=Iabel1。Ift 一】00 Label1。FontSize=Label1。FontSize+l t=t+1 Else Label1。Left=Width Label1。FontSize=5 EndIf m=tMod4 Ifm<2Then Label1。Visible=True Else Label1。Visible:False'此if 语句用来实 现对象时隐时现的效果 EndIf 运行程序即可实现效果 交通灯模拟我们可以利用VisualBasic 的Timer 控件来模拟控制 交通信号灯的变化和汽车的运动。当汽车行至信号灯下方 时,如果绿地亮,汽车继续前进,否则停止前进,待绿灯亮时 方可继续前行。设计此程序的过程: (1)准备一个汽车图标和代表红,黄,绿三色信号灯的图 标文件(三个图标大小一样)。 (2)薪建一工程,适当调整窗体(form1)的大小。 (3)在窗体(form1)上添加两个图像框,名称分别为P1 和P2。将其BorderStyle 均设置为"0 一None"。AutoSize 设置 为"Tfue"。

然后按eos 6d的q（速控）按钮，在速控屏幕中选择wi-fi功能的图标后按set（设置）按钮确认。（2）在名称为form1的窗体上画一个名称为image1的图象框vb timer控件的用法，利用属性窗口装入考生目录下的图象文件 pic1.bmp，并设置适当属性使其中的图象可以适应图象框大小。eos 6d重新连接智能手机时，首先按eos 6d的q（速控）按钮，在速控屏幕中选择wi-fi功能的图标后按set（设置）按钮确认。

第二是不育种的染色体数目加倍：单倍体含有本物种配子染色体数及其全套染色体组。若要制备瘤细胞，需取免疫后小鼠的b淋巴细胞（染色体数目为40条），并将该细胞与体外培养的小鼠骨髓瘤细胞（染色体数目为60条）按一定比例加入试管中，再加入聚乙二醇诱导细胞融合，经筛选培养及抗体检测，得到不断分泌抗a抗体的瘤细胞。现用纯合的灰身红眼雌果蝇与黑身白眼雄果蝇，f1个体相互交配得到f2，结果如乙图所示，则f2可能出现的表现型有种，f2雄性中灰身白眼果蝇出现的概率是。

(4)在进化过程中颈和前肢长的变异个体能被逐渐保留下来说明这样的个体能__适应__环境的变化并且这种变异是可以__遗传__的。虽然真核生物的c值变异很大, 但一般来说, 进化程度越高的类群, 群内最小c值亦越大。15. 第四章根据ccga的特点，提出了无限群体的概念，并在此概念的基础上就对抗性问题设计了几种独特的方法，这些方法包括：共享适应值、基因连锁、自适应变异、虚幻寄生体、精英群体、共享采样和同胞选择等，然后从理论和实验上对这些方法给予的充分说明和论证。

得到的最优解没有任何变化。此时 也可以停止交配 通过上例求函数的极大值问题。说明了遗传算法是一 种很好的方法。它可以不需要适应甬数的连续性。可导性 放宽了高等数学中求极值时的条件。同时,经过编码后,只 需做适应值的计算,操作简单可见。遗传算法,在高数求解 极值问题中发挥了良好的作朋 参考文献: fl1 马少平。朱小燕。人工智能fMI。清华大学出版社。2004。 f21 曹承志。智能技术fM1。清华大学出版社,2004。 f31 蔡自兴,徐光佑。人工智能及其应用fM1。清华大学出 版社。2004。 『41 朱福喜。杜友福。人工智能引论『M1。武汉大学出版社, 2006。 (上接第801 ,Case4。56P1。Picture=LoadPicturef't 绿灯。ic0"1 fbThenTimer2。Enabled=b EndSelect (10)设置Timer2 的Timm?事件代码如下: Iffa<4)AndfP2。Left>P1。LeftAndP2。Left<P1。Left +P1。Width1OrP2。Left<=l00Then Timer2。Enabled=False Else P2。

MoveP2。Left—l0。P2。Top。P2。Width。P2。Height EndIf 运行程序即可完成信号灯指挥交通的功能, 结束语本文给出了Timer 控件的几种用法。起抛砖引玉的作 用。Timer 控件的作用还有待进一步挖掘一 参考文献: 『l1 刘瑞新,文成林汪远征。VisualFoxPr()程序设计教程 IM1。机械T 业出版社。2004。86—89。 龚沛曾。陆尉民杨志强。VisuaJBasic 程序没计简明教 程[MI。高等教育出版社。2001。154 一l56。 『31 应用技巧与常见问题你问我答[MI。北京机械工业出版社。2003。206—2l0。 『41 程序设计[MI。巾国科学技术出版社。2007。3l 一32。 803

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-106167-1.html