• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[神梦] 【PC源码】实现高精度 Delay 延迟等待 [复制链接]

1#

大家有没有发现 Delay() 延迟等待命令的延迟精度很不准,设置的时间越小误差越大


我找到了一种提高 Delay() 延迟精度的方法







普通延迟

  1. '【作者】:神梦无痕
  2. '【QQ】:1042207232
  3. '【Q群】:624655641

  4. ' 测试 1 毫秒精度
  5. t1 = Plugin.Sys.GetTime()
  6. For i = 1 To 100
  7.     Delay 1
  8. Next
  9. k1 = Plugin.Sys.GetTime() - t1
  10. TracePrint "1 毫秒平均精度:" & (k1 / 100) & " ms"



  11. ' 测试 5 毫秒精度
  12. t2 = Plugin.Sys.GetTime()
  13. For i = 1 To 100
  14.     Delay 5
  15. Next
  16. k2 = Plugin.Sys.GetTime() - t2
  17. TracePrint "5 毫秒平均精度:" & (k2 / 100) & " ms"


  18. ' 测试 50 毫秒精度
  19. t3 = Plugin.Sys.GetTime()
  20. For i = 1 To 100
  21.     Delay 50
  22. Next
  23. k3 = Plugin.Sys.GetTime() - t3
  24. TracePrint "50毫秒平均精度:" & (k3 / 100) & " ms"
复制代码

高精度延迟

  1. '【作者】:神梦无痕
  2. '【QQ】:1042207232
  3. '【Q群】:624655641

  4. Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
  5. Private Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
  6. Private Declare Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long


  7. ' 开启高精度计数器
  8. Call timeBeginPeriod(1)


  9. ' 测试 1 毫秒精度
  10. t1 = GetTickCount()
  11. For i = 1 To 100
  12.     Delay 1
  13. Next
  14. k1 = GetTickCount() - t1
  15. TracePrint "1 毫秒平均精度:" & (k1 / 100) & " ms"



  16. ' 测试 5 毫秒精度
  17. t2 = GetTickCount()
  18. For i = 1 To 100
  19.     Delay 5
  20. Next
  21. k2 = GetTickCount() - t2
  22. TracePrint "5 毫秒平均精度:" & (k2 / 100) & " ms"


  23. ' 测试 50 毫秒精度
  24. t3 = GetTickCount()
  25. For i = 1 To 100
  26.     Delay 50
  27. Next
  28. k3 = GetTickCount() - t3
  29. TracePrint "50毫秒平均精度:" & (k3 / 100) & " ms"


  30. ' 关闭高精度计数器
  31. Call timeEndPeriod(1)
复制代码

最后编辑神梦科技 最后编辑于 2022-05-10 18:54:45
2#

看看

3#


<font color="Magenta">想象</font><font color="Red">之中</font>,<font color="Lime">别人</font><font color="YellowGreen">与我</font><font color="Lime">没有</font><font color="DarkOrchid">不同</font>
4#

+++++66666

5#

我就看看

6#

1111111111

7#

看看

8#

实现高精度

9#

学习学习

10#

我来看看

11#

学习一下

12#

奥术大师大所大

13#

好,我找很久了

14#

看一下嘛

15#

kankan

16#

哇喔,看看

17#

6666

18#

学习中

19#

12················

20#

ddddd

发新话题 回复该主题