易语⾔⾼精度完美延时的源码
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 不停的读出定时器值, ⼀直到经过了指定周期数再结束循环, 就达到了⾼精度延时的⽬的。
易语言轰炸机源码最新总结
以上就是这篇⽂章的全部内容了，希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值，谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。