.版本 2
.DLL命令 QueryPerformanceCounter, 整數(shù)型, "kernel32", "QueryPerformanceCounter", , 獲取計數(shù)值
  .參數(shù) lpPerformanceCount, LARGE_INTEGER
.DLL命令 QueryPerformanceFrequency, 整數(shù)型, "kernel32", "QueryPerformanceFrequency", , 返回計數(shù)頻率
  .參數(shù) lpFrequency, LARGE_INTEGER

.版本 2
.數(shù)據類型 LARGE_INTEGER
  .成員 QuadPart, 整數(shù)型

.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創(chuàng)建完畢
真正的高精度延時 (1000) ' 延時1毫秒
.子程序 真正的高精度延時
.參數(shù) 要延時的時間, 整數(shù)型, , 微秒，1000微秒=1毫秒，1000毫秒=1秒
.局部變量 CurrTicks, LARGE_INTEGER
.局部變量 TicksCount, LARGE_INTEGER
QueryPerformanceFrequency (TicksCount)
QueryPerformanceCounter (CurrTicks)
' 這里一定要LARGE_INTEGER數(shù)據類型，如果直接寫成整數(shù)型的話，是運行不了的
TicksCount.QuadPart ＝ TicksCount.QuadPart × 要延時的時間 ÷ 1000000
TicksCount.QuadPart ＝ TicksCount.QuadPart ＋ CurrTicks.QuadPart
.判斷循環(huán)首 (CurrTicks.QuadPart ＜ TicksCount.QuadPart)
  QueryPerformanceCounter (CurrTicks)
.判斷循環(huán)尾 ()
' 高精度延時, 是 CPU 測速的基礎
' Windows 內部有一個精度非常高的定時器, 精度在微秒級, 但不同的系統(tǒng)這個定時器的頻率不同, 這個頻率與硬件和操作系統(tǒng)都可能有關。
' 利用 API 函數(shù) QueryPerformanceFrequency 可以得到這個定時器的頻率。
' 利用 API 函數(shù) QueryPerformanceCounter 可以得到定時器的當前值。
' 根據要延時的時間和定時器的頻率, 可以算出要延時的時間定時器經過的周期數(shù)。
' 在循環(huán)里用 QueryPerformanceCounter 不停的讀出定時器值, 一直到經過了指定周期數(shù)再結束循環(huán), 就達到了高精度延時的目的。