【VB】VB6写的很精确的计时器（微秒级）

0xAA55

卖个萌。用中文写代码。面向对象的思想。
文件名：精确计时器.bas
代码如下。代码必须回帖后可见。

游客，如果您要查看本帖隐藏内容请回复

使用范例：（使用前必须先添加这个文件到工程中。）
新建某Form，然后粘贴下面的代码即可。运行的时候，玩法就是，按空格键，然后看标题栏上显示的时间。以秒为单位哦。

1. Option Explicit
   
2. Dim 计时器 As 精确定时器
   
3. 
   
4. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
5. If KeyCode = vbKeySpace Then 精确计时器开始计时 计时器
   
6. End Sub
   
7. 
   
8. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   
9. If KeyCode = vbKeySpace Then 精确计时器暂停计时 计时器
   
10. End Sub
    
11. 
    
12. Private Sub Form_Load()
    
13. Show
    
14. 全局初始化精确计时器
    
15. 计时器 = 新建精确计时器
    
16. Do
    
17.     Cls
    
18.     Caption = 取得精确的时间(计时器)
    
19. Loop While DoEvents
    
20. End Sub

复制代码

0xAA55

異界型丘比 发表于 2014-5-25 09:24
目前还不懂declare function的用法..据说是调用API的?

没错。语法如下：
Private或Public或留空 Declare Sub或Function 你要起的名字 Lib "DLL文件名" Alias "它本来的名字" (参数表) 留空或As 返回值类型
举例：让主板喇叭蜂鸣的API是Beep，是Kernel32.dll提供的API。

1. Declare Function 叫 Lib "kernel32.dll" Alias "Beep" (ByVal 频率 As Long, ByVal 毫秒数 As Long) As Long

复制代码

然后你只需要这样调用：

1. 叫 1000,1000

复制代码

就会听到主板产生了持续1秒的频率1000赫兹的方波蜂鸣声。

0xAA55

異界型丘比 发表于 2014-5-27 01:09
这个最终是调用beep.sys么，还是说R3的

那就不知道了

濫酒鬼

使用方法,看的不是很懂0.0

MeThee

看代码来的

搬砖工

几个账号密码都忘了，换个QQ登陆看帖。

tbage2012

这个好。。。多谢分享

零度

VB6的TIMER最多1秒 17左右  一直想弄个精确的 感谢分享

suocheng0604

谢谢楼主分享！

emayi2

不错不错

Momo

学习一下，谢谢分享

阿呆在上海

好好学习

白天

做MIDI程序用得上吧

cxg0208

timer控件精度小于50毫秒

海之娇子

谢谢分享！

(⊙o⊙)

vb6还有人用。

tracykkkk

学习学习

超超菜鸟

请问在什么情况引用呢？