易语言如何实现高精度完美延时
这篇文章主要介绍了易语言如何实现高精度完美延时,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。
创新互联公司主营章丘网站建设的网络公司,主营网站建设方案,成都app软件开发,章丘h5小程序制作搭建,章丘网站营销推广欢迎章丘等地区企业咨询
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 不停的读出定时器值, 一直到经过了指定周期数再结束循环, 就达到了高精度延时的目的。
感谢你能够认真阅读完这篇文章,希望小编分享的“易语言如何实现高精度完美延时”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!
网页标题:易语言如何实现高精度完美延时
标题URL:http://pwwzsj.com/article/ihpioh.html