VB .NET周期实现
2016-05-24 21:28
603 查看
这里仅提供一个方案,当然会有比本方案更好的,欢迎提供。
简介
在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这个。
相关文章推荐
- DVB电视机顶盒工作原理
- setvbuf()创建缓冲区函数
- IIS7.5 Microsoft VBScript runtime error '800a0046'的解决
- win10 完美屏蔽Flash右键菜单,内存播放Flash swf 文件(VC、 VB)f_in_box4.4 最新破解版
- VBA 每日文件按日期打包存放
- VBA进度条
- fopen的默认缓冲大小和setvbuf 用法
- AM335x OTG VBUS电路设计的一些注意要点
- Vb.net-DatagridView之右击删除选中行
- VBS ConvertToXlsx
- VBScipt脚本输出
- 【VB.net】DataGridView控件的使用
- VB.net学习笔记(二十二)XML的DOM模型读写
- VB文本框限制输入类型
- VB.net学习笔记(二十一)XML流的读写
- 录制vb之文件转换
- VS2010环境下使用VB编写串口助手
- VB script 入门
- VB Val和CDbl的区别
- VB编程的必备技巧