-
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
栏目列表
最新更新
博克-定制图例
博克-注释和图例
Bokeh–添加小部件
向博克图添加标签
将交互式滑块添加到博克图
在 Bokeh 中添加按钮
谷歌、微软、Meta?谁才是 Python 最大的金
Objective-C语法之代码块(block)的使用
URL Encode
go语言写http踩得坑
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
[SQL Server]按照设定的周别的第一天算任意
Linux下定时自动备份Docker中所有SqlServer数
六、Danfo.js 数据可视化
五、plotly.js 数据可视化
四、数据分析、清理、转化
三、Danfo.js 入门
第二部分:使用 Danfo.js 和 Dnotebook 的据分
一、现代 JavaScript 概述
javascript 第一部分:基础知识
零、前言
uni-app开发跨平台小程序开发的诸多坑【转
前端设计模式——桥接模式