如何在多线程中使用timer 点击：934 | 回复：3
发表于：2008-09-02 13:23:30
3楼
先谢谢二位楼主。system.timers.timer 我试过了，结果还是一样。二楼的说法似乎有点道理，不过试了以后好像也不是。我把原码贴上，大家帮忙看一看。跑一段时间，实际的间隔时间增加大概 15ms, 而且是一直增加，请大虾们帮忙诊断一下。谢谢！
Private Sub ctrlthrd()
Do While CtrlThread.ThreadState = ThreadState.Running
IOvar.DelayTimer = 20
IOvar.ExitSysTimer = False
clsSysTimer.TimeProgram()
。。。。。。。
CtrlThread.Sleep(1)
Loop
End Sub
Public Class clsSysTimer
Private Shared MyTimer As New System.Windows.Forms.Timer
Private Shared ExitSysTimer As Boolean = False
Private Shared Sub TimerEventProcessor(ByVal myObject As Object, ByVal myEventArgs As EventArgs)
MyTimer.Stop
ExitSysTimer = True
End Sub
Public Shared Sub TimeProgram()
AddHandler MyTimer.Tick, AddressOf TimerEventProcessor
MyTimer.Interval = IOvar.DelayTimer
MyTimer.Start
While ExitSysTimer = False
'ExitSysTimer = True
Application.DoEvents()
End While
End Class
Private Sub ctrlthrd()
Do While CtrlThread.ThreadState = ThreadState.Running
IOvar.DelayTimer = 20
IOvar.ExitSysTimer = False
clsSysTimer.TimeProgram()
。。。。。。。
CtrlThread.Sleep(1)
Loop
End Sub
Public Class clsSysTimer
Private Shared MyTimer As New System.Windows.Forms.Timer
Private Shared ExitSysTimer As Boolean = False
Private Shared Sub TimerEventProcessor(ByVal myObject As Object, ByVal myEventArgs As EventArgs)
MyTimer.Stop
ExitSysTimer = True
End Sub
Public Shared Sub TimeProgram()
AddHandler MyTimer.Tick, AddressOf TimerEventProcessor
MyTimer.Interval = IOvar.DelayTimer
MyTimer.Start
While ExitSysTimer = False
'ExitSysTimer = True
Application.DoEvents()
End While
End Class
热门招聘
相关主题
- 力士乐伺服驱动器调试软件
[3234] - 安装好WINCC的电脑修改计算机...[3767]
- [下载]AB PLC 编程手册下载[2017]
- WIN7 安装下 STEP 7 MicroW...[6843]
- 用组态王收发短信的最好方法[2452]
- 有感于组态王和力控[2156]
- 发展完整组态应用的控件包 –...[2904]
- 国内什么时候开发出一套真正...[4280]
- SIAVIEW工业控制监控系统系列...[2381]
- 紧急求救：使用OMRON SYSMAC-...[2312]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
