VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • VB .NET周期实现

这里仅提供一个方案,当然会有比本方案更好的,欢迎提供。

简介

在vb.net实现周期调度的问题时(就是间隔固定的时间做什么事情),我们最先想到的一定是(反正我是)利用timer(定时器)来做这个计时的工作。采用多少ms来调用计时器的方式进行周期性的做一些事情。但是,当我用ms级的周期调度的时候,会存在很大的误差。那么不得不想一个其他方案。

思路

  • 做一个最小时间片,以最小时间片为单位进行计数,在最小时间片的基础上进行周期的划分。
  • 我是基于1ms的时间片来进行操操作。

以下是代码

Private Declare Ansi Function timeGetTime Lib "winmm.dll" () As Long
Private BaseTime As Long
Private SaveTime As Long
Private Run_Flag As Boolean
Private Cycle_Count As Long

Private Sub b_start_Click(sender As Object, e As EventArgs) Handles b_start.Click
    'this is init var and base station

    BaseInit()
    start_fun()
    While Run_Flag
        While timeGetTime < SaveTime + 1
            Application.DoEvents()
        End While
        SaveTime = timeGetTime 'save time
        Cycle_Count = Cycle_Count + 1   '1ms

        If Cycle_Count Mod (5) Then
            Run_5ms()
        End If

        'if you need ,you can add 10ms,50ms,100ms,1000ms etc.
    End While
End Sub

Sub BaseInit()
    Run_Flag = False
    BaseTime = 0
    SaveTime = 0
    Cycle_Count = 0
    show_task.Text = 0
End Sub

Sub start_fun()
    BaseTime = timeGetTime
    SaveTime = BaseTime
    Run_Flag = True
End Sub

Sub Run_5ms()
    'do what you want to do.
    show_task.Text += 1
End Sub

Private Sub b_stop_Click(sender As Object, e As EventArgs) Handles b_stop.Click
    BaseInit()
End Sub

说说Timer的问题

在计时方面,如果对时间精度不是很大要求的话,其实可以使用100ms级别的timer,或者s级别的timer,这样大概误差在30s会偏差一个2s左右的样子。对于有严格时间要求的,还是不要使用timer这个。
出处:https://www.cnblogs.com/ply616/p/5524857.html
 


相关教程