admin 管理员组文章数量: 1086019
2024年3月27日发(作者：html中a标签href)
维普资讯
第１卷第３期
贵阳学院学报（自然科学版） （季刊）
ＪＯＵＲＮＡＬ ＯＦ ＧＵＩＹＡＮＧ ＣＯＬＬＥＧＥ
Ｖｏ１．１ Ｎｏ．３
２００６年９月
Ｎａｔｕｒａｌ Ｓｃｉｅｎｃｅｓ（Ｑｕａｒｔｅｒｌｙ）
ＶＢ中计时器控件的长定时初探
周 强
（贵阳学院继续教育部，贵州贵阳５５０００３）
摘要：Ｗｉｎｄｏｗｓ应用程序中通常要用到时间控制的功能，ＶＢ中定时器Ｔｉｍｅｒ控件不能进行
长定时，最大间隔时间是１分多钟，如需要长时间计时，该控件就无法完成。利用计数器和创
建超长时间计时器对象能较好地解决长定时问题。
关键词：ＶＢ；计时器；长定时
中图分类号：ＴＰ３１２ 文献标识码：Ａ 文章编号：１６７３—６１２５（２００６）０３—００１８—０３
Ｐｒｅｌｉｍｉｎａｒｙ Ｓｔｕｄｙ ｏｎ Ｌｏｎｇ－ｐｌａｙｉｎｇ Ｔｉｍｉｎｇ ｏｆ Ｔｉｍｅｒ
Ｃｏｍｐｏｎｅｎｔ ｉｎ Ｖｉｓｕａｌ Ｂａｓｉｃ
ＺＨＯＵ Ｑｉａｎｇ
（Ｇｕｉｙａｎｇ Ｃｏｌｌｅｇｅ，Ｇｕｉｙａｎｇ Ｇｕｉｚｈｏｕ ５５０００３，Ｃｈｉｎａ）
Ａｂｓｔｒａｃｔ：Ｔｈｅ ｆｕｎｃｔｉｏｎ ｏｆ ｔｉｍｅ ｃｏｎｔｒｏｌｌｉｎｇ ｉｓ ｕｓｕａｌｌｙ ｕｓｅｄ ｉｎ Ｗｉｎｄｏｗｓ ａｐｐｌｉｃａｔｉｏｎ ｐｒｏｇｒａｍ．Ｈｏｗｅｖｅｒ，
ｔｈｅ ｔｉｍｅｒ ｃｏｍｐｏｎｅｎｔ ｉｎ Ｖｉｓｕａｌ Ｂａｓｉｃ ｃａｎ ｎｏｔ ｍｅｅｔ ｔｈｅ ｄｅｍａｎｄ ｏｆ ｌｏｎｇ—ｐｌａｙｉｎｇ ｔｉｍｉｎｇ ｂｅｃａｕｓｅ ｏｆ ｉｔｓ
ｐｒｏｐｅｒｔｙ ｏｆ Ｉｎｔｅｒｖａｌ ｊｕｓｔ ｃａｎ ｂｅ ｓｅｔ ｏｎｅ ｍｉｎｕｔｅ ｏｒ ａ ｌｉｔｔｌｅ ｍｏｒｅ．Ｉｆ ｔｈｅｒｅ ｉｓ ｒｅｑｕｉｒｅｍｅｎｔ ｔｏ ｔｉｍｅ ｆｏｒ ａ ｌｏｎｇ
ｔｉｍｅ，ｔｈｉｓ ｃｏｍｐｏｎｅｎｔ ｉｓ ｈｅｌｐｌｅｓｓ．Ｔｈｉｓ ｐｒｏｂｌｅｍ ｃａｎ ｂｅ ｓｏｌｖｅｄ ｔｈｒｏｕｇｈ ｕｓｉｎｇ ａ ｃｏｕｎｔｅｒ ｏｒ ｂｕｉｌｄｉｎｇ ａ ｔｉｍ—
ｅｒ ｏｂｊｅｃｔ ｔｈａｔ ｃａｎ ｔｉｍｅ ｏｒｆ ａ ｖｅｒｙ ｌｏｎｇ ｔｉｍｅ．
Ｋｅｙ ｗｏｒｄｓ：Ｖｉｓｕａｌ Ｂａｓｉｃ；ｔｉｍｅｒ；ｌｏｎｇ—ｐｌａｙｉｎｇ ｔｉｍｉｎｇ
目Ｕ菁
专门解决这方面问题的控件。Ｔｉｍｅｒ控件最
重要的是Ｉｎｔｅｒｖａｌ即时间间隔属性，该属性
决定了时钟事件之间的间隔，以毫秒为单
位，取值范围为０～６５５３５，因此，其最大时
间间隔不能超过６５秒，即一分钟多一点的
时间。如果把Ｉｎｔｅｒｖａｌ属性设置为１０００，则
在Ｗｉｎｄｏｗｓ应用程序中常常要用到时
间控制的功能，如在程序界面上显示当前时
问，或者每隔多长时间触发一个事件等等。
Ｖｉｓｕａｌ Ｂａｓｉｃ中的Ｔｉｍｅｒ（时间）控制器就是
收稿口期：２００６—０５—２０
作者简介：周
一
强（１９７３一），男，贵州贵阳人，贵阳学院继续教育部讲师。
ｌ８一
维普资讯
表示每秒钟触发一个Ｔｉｍｅｒ事件。但这却
意味着Ｔｉｍｅｒ控件只能响应大约一分钟之
内的事件，在需要长时间计时时，该控件就
无能为力了。例如，我们要开发一个测试系
统，其测试过程需要限制一个确定时间，一
般都在１０～１５０分钟，开始自动计时，时间
到报警测试结束。这就需多个Ｔｉｍｅｒ控件
配合使用，这样做显得繁琐又不实用。本文
采用两种方法来实现长定时问题。
１利用计数器实现长定时
用一个Ｔｉｍｅｒ控件，在其Ｔｉｍｅｒ过程中
使用一个计数器，从而响应任意长时间间隔
的事件。下面是一个定时实例的部分代码：
控件属性 设置的值
ＬａｂｅＵＣａｐｔｉｏｎ
“请输入限定时间（分钟）：”
Ｔｅｘｔｌ Ｔｌｅｘｔ
‘‘ ’’
ＣｏｍｍａｎｄＩ Ｃａｐｔｉｏｎ
“确认”
Ｔｉｍｅｒｌ Ｉｎｔｅｒｖａｌ
６Ｏ００
Ｅｎａｂｌｅｄ Ｆａｌｓｅ
在窗体通用模块Ｇｅｎｅｒａｌ里声明ｎ、ｔ两
个变量，ｎ作为计数器，ｔ用来存放限定时
间。
ＤＩＭ ｎ ＡＳ Ｉｎｔｅｇｅｒ
ＤＩＭ ｔ ＡＳ Ｓｔｉｒｎｇ
Ｃｏｍｍａｎｄｌ—Ｃｌｉｃｋ（）
ｔ＝Ｔｅｘｔ１．Ｔｅｘｔ
Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ……
Ｅｎｄ Ｓｕｂ
Ｔｉｍｅｒｌ—Ｔｉｍｅｒ（）
ｎ＝ｎ＋ｌ
ｉｆ ｎ＝ｖｅａｌ（ｔ、Ｔｈｅｎ
Ｂｅｅｐ
Ｔｉｍｅｒ １．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ
Ｅｎｄ ｉｆ
Ｅｎｄ Ｓｕｂ
将定时器的Ｉｎｔｅｒｖａｌ属性值设为６０００，
使得计数器每分钟加１，当然也可以设置为
其他的值，如１０００，这样就使得计数器每秒
钟加１，但这样要浪费较多的系统时间，运
行速度受影响。
２创建超长时间计时器对象
采用Ｔｉｍｅｒ控件来创建一个超长时间
的计时器对象，并将其编译成ＡｃｔｉｖｅＸ ＤＬＬ
部件，供其它应用程序调用，可实现最大限
度地利用代码的可重用性。
编写程序：启动ＶＢ，新建一个ＡｃｔｉｖｅＸ
ＤＬＬ下程，将工程命名为Ｎｅｗ Ｔｉｍｅｒ，将类模
块名Ｃｌａｓｓｌ改为Ｌｏｎｇ Ｔｉｍｅｒ。在工程中添
加一个窗体Ｆｏｒｍｌ，在窗体上加入一个Ｔｉｍ—
ｅｒ计时器控件Ｔｉｍｅｒｌ。打开Ｌｏｎｇ Ｔｉｍｅｒ类
模块，加入如下程序代码：
Ｐｕｂｌｉｃ Ｅｖｅｎｔ Ｔｉｃｋ（）’声明事件
Ｐｒｉｖａｔｅ ｎｚ Ａｓ Ｉｎｔｅｇｅｒ
Ｐｒｉｖａｔｅ ＣＳ Ａｓ Ｉｎｔｅｇｅｒ
Ｐｒｉｖａｔｅ ｍ
——
Ｆｏｒｍ Ａｓ Ｆｏｒｍｌ
Ｐｒｉｖａｔｅ Ｗｉｔｈ Ｅｖｅｎｔｓ ｍ
＿
Ｔｉｍｅｒ Ａｓ Ｔｉｍｅｒ’
声明对象类变量
Ｐｕｂｌｉｃ Ｐｒｏｐｅｒｔｙ Ｇｅｔ Ｅｎａｂｌｅｄ（）Ａｓ Ｂｏｏｌｅ—
ａｎ
Ｅｎａｂｌｅｄ＝ｍ
＿
Ｔｉｍｅｒ．Ｅｎａｂｌｅｄ
Ｅｎｄ Ｐｒｏｐｅｒｔｙ
‘设置Ｅｎａｂｌｅ属性值
Ｐｕｂｌｉｃ Ｐｒｏｐｅｒｔｙ ｌ ｅｔ Ｅｎａｂｌｅｄ（Ｂｙ Ｖａｌ
ｖＮｅｗＶａｌｕｅ Ａｓ Ｂｏｏｌｅａｎ）
ｍ
＿
Ｔｉｍｅｒ Ｅｎａｂｌｅｄ＝ｖＮｅｗＶａｌｕｅ
Ｅｎｄ Ｐｒｏｐｅｎｙ
‘返回Ｉｎｔｅｒｖａｌ属性值
Ｐｕｂｌｉｃ Ｐｒｏｐｅｒｔｙ Ｇｅｔ Ｉｎｔｅｒｖａｌ（）Ａｓ Ｌｏｎｇ
Ｉｎｔｅｒｖａｌ＝ｍ
＿
Ｔｉｍｅｒ．Ｉｎｔｅｒｖａｌ
Ｅｎｄ Ｐｒｏｐｅｒｔｙ
‘设置Ｉｎｔｅｒｖａｌ属性值
Ｐｕｂｌｉｃ Ｐｒｏｐｅｒｔｙ ｌｅｔ Ｉｎｔｅｒｖａｌ（Ｂｙ Ｖａｌ
ｖＮｅｗＶａｌｕｅ Ａｓ Ｌｏｎｇ）
ＣＳ＝０
ｎｚ＝ｖＮｅｗＶａｌｕｅ＼６５５３６＋ｌ
ｍ
＿
Ｔｉｍｅｒ．Ｉｎｔｅｒｖａｌ＝ｖＮｅｗＶａｌｕｅ＼ｎｚ
Ｅｎｄ Ｐｒｏｐｅｒｔｙ
一
１９—
维普资讯
‘类初始化事件
Ｐｒｉｖａｔｅ Ｓｕｂ ＣＬＡＳＳ Ｉｎｉｔｉａｌｉｚｅ（）
Ｓｅｔ ｍ
—
Ｆｏｒｍ＝ＮｅｗＦｏｒｍｌ
Ｌｏａｄ ｍ
Ｆｏｒｍ
—
Ｓｅｔ ｍ
—
Ｔｉｍｅｒ＝ｍ
＿
ＦＯＩＴｆ１．Ｔｉｍｅｒｌ
Ｅｎｄ Ｓｕｂ
‘类终止事件
Ｐｒｉｖａｔｅ Ｓｕｂ ＣＬＡＳＳ Ｔｅｒｍｉｎａｔｅ（）
Ｕｎｌｏａｄ ｍ
——
Ｆｏｒｍ
Ｓｅｔ ｍ
—
Ｔｉｍｅｒ＝Ｎｏｔｈｉｎｇ
Ｅｎｄ Ｓｕｂ
‘产生Ｔｉｃｋ事件
Ｐｒｉｖａｔｅ Ｓｕｂ ｍ３ｉｍｅｒ＿Ｔｉｍｅｒ（）
ＣＳ：ＣＳ＋１
Ｉｆ ｅｓ＞＝ｎｚ Ｔｈｅｎ
Ｒａｉｓｅ Ｅｖｅｎｔ Ｔｉｃｋ
ＣＳ：０
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
窗体Ｆｏｒｍ１只用来做计时器Ｔｉｍｅｒｌ的
载体，不用于显示。
测试Ｎｅｗ Ｔｉｍｅｒ．ＤＬＬ：对ＡｃｔｉｖｅＸ ＤＬＬ
部件进行测试，与标准的ＥＸＥ程序一样，可
分为单步运行或全运行。在写完所有程序
代码后，先用Ｃｔｒｌ＋Ｆ５进行全编译执行，如
发现检查Ｎｅｗ Ｔｉｍｅｒ程序的语法错误，也可
建立一个测试工程与Ｎｅｗ Ｔｉｍｅｒ链接进行
测试，针对由Ｎｅｗ Ｔｉｍｅｒ类模块提供的每个
属性和事件，添加测试代码来测试它们的属
性和方法。按Ｆ８，进人单步运行状态，逐个
语句察看对Ｎｅｗ Ｔｉｍｅｒ类模块的调用情况。
编译Ｎｅｗ Ｔｉｍｅｒ．ＤＬＬ：完成测试，排除
所有错误后，从“文件（Ｆ）”菜单中选择“生
成ＮｅｗＴｉｍｅｒ．ｄｌｌ（Ｋ）”命令，编译生成Ｎｅｗ
Ｔｉｍｅｒ．ｄｌｌ文件。编译成功后Ｎｅｗ Ｔｉｍｅｒ．ｄｌｌ
文件将自动注册到Ｗｉｎｄｏｗｓ注册表中，引用
Ｎｅｗ Ｔｉｍｅｒ．ＤＬＬ：引用ＡｅｔｉｖｅＸ ＤＬＬ部件同
引用其他对象一样，从“工程（Ｐ）”菜单．中
一
２Ｏ一
选择“引用（Ｎ）”命令，打开引用窗口，从引
用列表中选中Ｎｅｗ Ｔｉｍｅｒ对象。如果是第
一
次引用ＮｅｗＴｉｍｅｒ，则在引用窗体上单击
“浏览（Ｂ）”命令按钮，将Ｎｅｗ Ｔｉｍｅｒ．ＤＬＬ文
件添加到可引用列表框中方可使用。
调用Ｎｅｗ Ｔｉｍｅｒ．ＤＬＬ：在应用程序中加
人下述程序代码，实现Ｎｅｗ Ｔｉｍｅｒ．ｄｌｌ的调
用：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｉｍ Ｗｉｔｈ Ｅｖｅｎｔｓ ＬＯｎｇＴｉｍｅｒｌ Ａｓ Ｌｏｎｇ—
ｔｉｍｅ
Ｐｒｉｖａｔｅ Ｓｕｂ ＬｏｎｇＴｉｍｅｒｌ
—
Ｔｉｃｋ（）
Ｐｒｉｎｔ“时间到，此处添加处理程序”
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ ｌ
—
Ｃｌｉｃｋ（）
ｏＬｎｇＴｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝１ ２０００‘两分钟
ｏＬｎｇＴｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ Ｌｏａｄ（）
Ｓｅｔ ＬｏｎｇＴｉｍｅｒｌ＝Ｎｅｗ Ｌｏｎｇｔｉｍｅ
Ｅｎｄ Ｓｌ】ｂ
结束语
以上两种方法初步解决了Ｔｉｍｅｒ控件
不能长定时的问题，因此可以增大其运用范
围和实用意义，但虽然解决了长定时问题，
若要求Ｔｉｍｅｒ控件在时问控制上有高精度，
还有待进一步探索。
参考文献：
［１］杨晶．ＶＢ６．０程序设计［Ｍ］．北京：机械工业出
版社，２００４．
［２］黄淼云，方楠．ＶＢ．ＮＥＴ控件应用编程实例教程
［Ｍ］．北京：北京希望电子出版社．２００３．
［３］东箭工作室．Ｖｉｓｕａｌ Ｂａｓｉｃ５．０中文版程序设计
［Ｍ］．北京：清华大学出版社，１９９７．
［４］ＰＥＴＲＯＵＴＳＯＳ Ｅ．Ｖｉｓｕａｌ Ｂａｓｉｃ５从入门到精通
［Ｍ］．北京：电子工业出版社，１９９７．
版权声明：本文标题：VB中计时器控件的长定时初探 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1711526981a598405.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论