• 首 页
• 编程技巧
• 维护技术
• 开发技术
• 西门子案例
• 三菱案例
• 松下案例
• 应用案例
• 下载区
• 参考书籍

VB中创建超长时间计时器对象

返回文章列表

作者：老耿 时间：01-27 来源：大测控  字体:【大 中 小】

VB中创建超长时间计时器对象 

摘　要：本文介绍在VB程序中用Timer控件创建一个超长时间的计时器对象，将其编译成ActiveXDLL部件，利用代码的可重用性，在其它应用程序中调用。

VB系统中提供了固有计时器Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用Timer控件创建一个超长时间的计时器对象，并将其编译成ActiveXDLL部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。

1．编写程序
启动VB，新建一个ActiveXDLL工程，将工程命名为NewTimer，将类模块名Class1改名为LongTimer。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1。打开LongTimer类模块，加入如下程序代码：
OptionExplicit
PublicEventTick()    '声明事件
PrivatenzAsInteger
PrivatecsAsInteger
Privatem_FormAsForm1
PrivateWithEventsm_TimerAsTimer  '声明对象类变量

'返回Enable属性值
PublicPropertyGetEnabled()AsBoolean
  Enabled=m_Timer.Enabled
EndProperty

'设置Enable属性值
PublicPropertyLetEnabled(ByValvNewValueAsBoolean)
    m_Timer.Enabled=vNewValue
EndProperty

'返回Interval属性值
PublicPropertyGetInterval()AsLong
  Interval=m_Timer.Interval
EndProperty

'设置Interval属性值
PublicPropertyLetInterval(ByValvNewValueAsLong)
  cs=0
  nz=vNewValue/65536+1
  m_Timer.Interval=vNewValue/nz
EndProperty

'类初始化事件
PrivateSubCLASS_Initialize()
  Setm_Form=NewForm1
  Loadm_Form
  Setm_Timer=m_Form.Timer1
EndSub

'类终止事件
PrivateSubCLASS_Terminate()
  Unloadm_Form
  Setm_Timer=Nothing
EndSub

'产生Tick事件
PrivateSubm_Timer_Timer()
  cs=cs+1
  Ifcs>=nzThen
    RaiseEventTick
    cs=0
  EndIf
EndSub
窗体Form1只用来作计时器Timer1的载体，不用于显示。

2．测试NewTimer.DLL
对ActiveXDLL部件进行测试，与标准的EXE程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用Ctrl+F5进行全编译执行，发现检查NewTimer程序的语法错误。也可建立一个测试工程与NewTimer链接进行测试，针对由NewTimer类模块提供的每个属性和事件，添加测试代码来测试它们的属性和方法。按F8，进入单步运行状态，逐个语句察看对NewTimer类模块的调用情况。

3．编译NewTimer.DLL
完成测试，排除所有错误后，从“文件（F）”菜单中选择“生成NewTimer.dll（K)”命令，编译生成NewTimer.dll文件。编译成功后NewTimer.dll文件将自动注册到Windows注册表中，

4．引用NewTimer.DLL
引用ActiveXDLL部件同引用其他对象一样，从“工程（P）”菜单中选择“引用（N）”命令，打开引用窗口，从引用列表中选中NewTimer对象。如果是第一次引用NewTimer，则在引用窗体上单击“游览（B）”命令按钮，将NewTimer.DLL文件添加到可引用列表框中方可使用。

5．调用NewTimer.DLL
在应用程序中加入下述程序代码，实现参NewTimer.dll的调用：
    OptionExplicit
    DimWithEventsLongTimer1AsLongTimer

    PrivateSubLongTimer1_Tick()
      Print"时间到，此处添加处理程序"
    EndSub

    PrivateSubCommand1_Click()
      LongTimer1.Interval=12000    ‘两分钟
      LongTimer1.Enabled=True
    EndSub

    PrivateSubForm_Load()
      SetLongTimer1=NewLongTimer
    EndSub

返回文章列表      【我要投稿】 【我要评论】 【会员收藏】 【发现错误】 【打印文档】

---

上一篇：VB串口通讯与开关量的检测与输出
下一篇：如何在VC++6.O下动态加载ODBC数据源

文章相关

• VB实现文件数据对SQL Server上传下载  (2007-01-27 20:28:39)
• VB下的CRC校验程序  (2007-01-27 20:28:23)
• 基于VB的分布式监控系统通信设计  (2007-01-27 20:28:08)
• VB与AB的PLC之间通讯  (2007-01-27 20:28:08)
• VB进制转换源代码  (2007-01-27 20:27:28)
• 基于VB的远程通讯程序  (2007-01-27 19:29:36)
• VB串口通讯与开关量的检测与输出  (2007-01-27 19:29:16)
• PLC与PC机通讯的VB源程序  (2007-01-27 16:49:53)

现有0条评论 | 更多评论..

---

我要发表看法

  如果您还不是本站会员欢迎加入。

• ※ 评论注意事项：
• 不是会员或未登陆发表评论，评论人名字显示为匿名。
• 尊重网上道德，遵守中华人民共和国的各项有关法律法规。
• 承担一切因您的行为而直接或间接导致的民事或刑事法律责任。
• 本站管理人员有权保留或删除评论中的任意内容。
• 参与本评论即表明您已经阅读并接受上述条款。