VB.NET定时器的问题

2016-01-07 12:34:38 430 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.NET中串口通讯延时程序大家好，最近我在使用VB.NET开发串口通讯的一点内容，在使用VB.NEI对嵌入式控制器编程，给下位机通讯发命令数据的时候，发现有时候发一次，下位机没有收到，为了增强程序的可靠性，我想延时100毫秒，在发送一次，不知道怎样些延时程序，使用定时器还是有专门的API函数调用，希望有经验的师傅可以给点指点，最好些清楚点，怎样在窗体开头生命API以及如何在需要使用延时程序的地方调用，谢谢你好，如果我用Sleep() API做延时程序使用，那这种演示会不会影响我在程序中使用的定时器，我要用定时阅读详情

大家好！

在一个项目里需要设计一个定时器，是根据表格里面的一个字段值作为定时的间隔，然后每隔这个时间启动发数据报文命令。
比如这个表格的字段“时间间隔(ms)”
| 时间间隔（ms）|
------------------------
20
------------------------
30
------------------------
10
------------------------
20
------------------------

。。。。

应该怎么设计这个定时器呢？
我前面是用的是工具箱里面的System.Timers,如果用这个，该怎么设计？

...全文

VB.NET 全局键盘钩子实战：F6/F7 热键触发鼠标连点，Timer 精度问题分析本文详细介绍了VB.NET中实现全局键盘钩子的实战方案，通过F6/F7热键触发高精度鼠标连点功能，并深入分析了Timer控件的精度限制问题。提供了三种高精度定时方案（多媒体定时器、Stopwatch+循环、NAudio库）的性能对比和完整代码实现，帮助开发者突破Windows默认15.6ms的定时精度限制。阅读详情

youyiyang

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

youyiyang 2016-01-11

打赏
举报

用sleep也是可以的吧。结贴了。

youyiyang 2016-01-10

打赏
举报

引用 1 楼 xdashewan 的回复:

可以试试system.threading.timer，参照https://msdn.microsoft.com/zh-cn/library/system.threading.timer(v=vs.90).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1，如果要改变时间间隔可以直接用change方法

谢谢，按照你的提示，已经完成了。

 Dim ThreadItem1 As System.Threading.Timer = New System.Threading.Timer(New TimerCallback(AddressOf SimControllSending), autoEvent, 0, 0)
        While i <= zzz
            autoEvent.WaitOne(999999999, False)
            temp = Split(Interval(i), "|")
            dueTime = temp(0).Trim()
            ThreadItem1.Change(dueTime, 0)
            Console.WriteLine("i=" & i & ",   " & Interval(i) & "ms")
            Console.WriteLine(vbCrLf & "Changing period." & vbCrLf)
            i += 1
        End While
        ThreadItem1.Dispose()
        Interval = Nothing
        Console.WriteLine(vbCrLf & "Destroying timer.")

 Public Sub SimControllSending(stateInfo As Object)
        Dim autoEvent As AutoResetEvent = DirectCast(stateInfo, AutoResetEvent)
        Dim bDataOut() As Byte, Buf As String
        Dim iSentCount As Integer
        Dim Encode1 As Encoding = Encoding.ASCII         '声明编码对象，使用ASCII  
        Dim bOutHexTemp() As String
        Dim temp As String()
        Try
            temp = Split(Interval(SimControllerSendCount), "|")
            'Me.txtSent.Text = "dfjdjflkjf"  'CStr(SimControllerSendCount)
            Buf = temp(1).ToString().Trim()
            ' txtPacket.Text = "0000000000000" 'Buf
            bOutHexTemp = Split(Buf, " ")
            ReDim bDataOut(bOutHexTemp.Count - 1)
            For i = 0 To bOutHexTemp.Count - 1
                bDataOut(i) = Val("&H" & bOutHexTemp(i))
            Next
            iSentCount = bDataOut.GetLength(0)     '发送总字节数  
            RS232.Write(bDataOut, 0, iSentCount)
        Catch ex As Exception
            'MessageBox.Show("输入数值错误：" + ex.ToString, "错误通知", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
        Console.WriteLine(DateTime.Now.ToString("h:mm:ss.fff") & ", i am sending ...now ...  " & Buf)
        autoEvent.Set()
        SimControllerSendCount += 1
    End Sub

Justin-Liu 2016-01-07

打赏
举报

看看API里关于它的用法

xdashewan 2016-01-07

打赏
举报

可以试试system.threading.timer，参照https://msdn.microsoft.com/zh-cn/library/system.threading.timer(v=vs.90).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1，如果要改变时间间隔可以直接用change方法

VB.NET定时器的问题

相关推荐