易语言高精度完美延时的源码

今天小编就为大家分享一篇关于易语言高精度完美延时的源码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

DLL命令表

				?

									.版本 2

									.DLL命令 QueryPerformanceCounter, 整数型, "kernel32", "QueryPerformanceCounter", , 获取计数值

									  .参数 lpPerformanceCount, LARGE_INTEGER

									.DLL命令 QueryPerformanceFrequency, 整数型, "kernel32", "QueryPerformanceFrequency", , 返回计数频率

									  .参数 lpFrequency, LARGE_INTEGER

自定义数据类型表

				?

									.版本 2

									.数据类型 LARGE_INTEGER

									  .成员 QuadPart, 整数型

高精度延时源码

				?

									.版本 2

									.程序集 窗口程序集1

									.子程序 __启动窗口_创建完毕

									真正的高精度延时 (1000) ' 延时1毫秒

									.子程序 真正的高精度延时

									.参数 要延时的时间, 整数型, , 微秒，1000微秒=1毫秒，1000毫秒=1秒

									.局部变量 CurrTicks, LARGE_INTEGER

									.局部变量 TicksCount, LARGE_INTEGER

									QueryPerformanceFrequency (TicksCount)

									QueryPerformanceCounter (CurrTicks)

									' 这里一定要LARGE_INTEGER数据类型，如果直接写成整数型的话，是运行不了的

									TicksCount.QuadPart ＝ TicksCount.QuadPart × 要延时的时间 ÷ 1000000

									TicksCount.QuadPart ＝ TicksCount.QuadPart ＋ CurrTicks.QuadPart

									.判断循环首 (CurrTicks.QuadPart ＜ TicksCount.QuadPart)

									  QueryPerformanceCounter (CurrTicks)

									.判断循环尾 ()

									' 高精度延时, 是 CPU 测速的基础

									' Windows 内部有一个精度非常高的定时器, 精度在微秒级, 但不同的系统这个定时器的频率不同, 这个频率与硬件和操作系统都可能有关。

									' 利用 API 函数 QueryPerformanceFrequency 可以得到这个定时器的频率。

									' 利用 API 函数 QueryPerformanceCounter 可以得到定时器的当前值。

									' 根据要延时的时间和定时器的频率, 可以算出要延时的时间定时器经过的周期数。

									' 在循环里用 QueryPerformanceCounter 不停的读出定时器值, 一直到经过了指定周期数再结束循环, 就达到了高精度延时的目的。