VB高精度计时器编程的讨论.docVIP

Private Sub Form_Load() Dim h As Single, v As Single Height = 8730 Width = 7695 AutoRedraw = True DrawWidth = 3 For i = 0 To 20 PSet (h, v) h = h + 500 v = v + 98 * i 9.8为重力加速度，此处98是为了使效果明显而已 Next End Sub h是水平位置，v是垂直位置 这是平抛运动，至于自由落体，只要把h设为定值便可 VB高精度计时器编程的讨论 ?VB高精度计时器编程的讨论 ? ? ? ? VB记时器编程的讨论 ? 在很多场合下编程（例如工业控制、游戏）中需要比较精确的记时器，本文讨论的是在VB下实现记时器的若干方法以及它们的精度控制问题。 ? 在VB中最常用的是Timer控件，它的设置和使用都非常方便，理论上它的记时精度可以达到1ms(毫秒)。但是众所周知的，实际上Timer在记时间隔小于50ms之下是精度是十分差的。它只适用于对于精度要求不太高的场合。 ? 这里作者要介绍的是两中利用Windows ? API函数实现精确记时的方法。第一中方法是利用高性能频率记数（作者本人的称呼）法。利用这种方法要使用两个API函数QueryPerformanceFrequency和QueryPerformanceCounter。QueryPerformanceFrequency函数获得高性能频率记数器的震荡频率，该函数的定义如下： ? ? ? ? ? Private ? Declare ? Function ? QueryPerformanceFrequency ? Lib ? kernel32 ? _ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? (lpFrequency ? As ? LARGE_INTEGER) ? As ? Long ? ? 函数中的数据结构LARGE_INTEGER定义如下： ? ? Type ? LARGE_INTEGER ? ? ? ? ? ? lowpart ? As ? Long ? ? ? ? ? ? highpart ? As ? Long ? ? End ? Type ? ? ? ? 调用该函数后，函数会将系统频率记数器的震荡频率保存到lpPerformanceCount中，其中低位保存到lowpart中，高位保存到highpart中。但是现在的Windows没有使用到hightpart（系统频率记数器的震荡频率与计算机的主频无关，我在几台机上做过验证，都是lowpart为1193180，highpart为0）。 ? ? QueryPerformanceCounter函数获得系统频率记数器的震荡次数，函数的定义如下 ? ? ? ? Private ? Declare ? Function ? QueryPerformanceCounter ? Lib ? kernel32 ? _ ? ? ? ? ? ? ? ? ? ? (lpPerformanceCount ? As ? LARGE_INTEGER) ? As ? Long ? ? ? ? 获得记时器震荡次数保存在lpPerformanceCount中。 ? ? 显然，如果首先获得利用QueryPerformanceFrequency函数获得频率记数器的震荡频率，然后在执行某个程序段之前调用QueryPerformanceCounter函数获得频率记数器的震荡次数，在程序段结束再调用QueryPerformanceCounter函数获得频率记数器的震荡次数，将两次获得的震荡次数相减后再除以震荡频率就获得的了两次间隔之间的时间（以秒为单位）。如果在程序中建立一个循环，在循环中不停的调用QueryPerformanceCounter获得频率记数器的震荡次数并同先前的频率记数器的震荡次数相减，将结果除以频率记数器的震荡频率，如果达到一定的时间就执行某个任务，这样就实现了一个比较精确的记时器的功能。 ? ? ? ? 另外的一种精确记时器的功能是利用多媒体记时器函数（这也是作者的定义，因为这个系列的函数是在Winmm.dll中定义并且是为媒体播放服务的）。 ? ? 实现多媒体记时器首先要定义timeSetEvent函数，该函数的定义如下： ? ? ? ? Public ? Declare ? Function ? timeSetEvent ? Lib ? winmm.dll ? (ByVal ? uDelay ? As ? Long, ? ByVal ? _ ? ? ? ? ? ? ? ? ? ?