VB精确定时用法.docxVIP

Dim t As Single t=GetTickCount() Public Declare Function GetTickCount Lib kernel32 () As Long t = (GetTickCount - t) / 1000 Loaded in Format(t, 0.00 ) s.) 你可以试试 API: TimeGetTime() 精度为 1ms 看看 GetTickCount()吧！ VB 高精度计时器编程的讨论 在很多场合下编程（例如工业控制、游戏）中需要比较精确的记时器，本文讨论的是在 VB 下实现记时器的若干方法以及它们的精度控制问题。在 VB 中最常用的是 Timer 控件，它的设置和使用都非常方便，理论上它的记时精度可以达到 1ms(毫秒)。但是众所周知的，实际上 Timer 在记时间隔小于 50ms 之下是精度是十分差的。它只适用于对于精度要求不太高的场合。 这里笔者要介绍的是两种利用 Windows API 函数实现精确记时的方法。第一种方法是利用高性能频率记数（作者本人的称呼）法。利用这种方法要使用两个 API 函数QueryPerformanceFrequency 和 QueryPerformanceCounter 。QueryPerformanceFrequency 函数获得高性能频率记数器的震荡频率，该函数的定义如下：