论坛 › 源码分享 › 【VB】VB6写的很精确的计时器（微秒级）

0xAA55 发表于 2014-5-25 03:54:45

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

卖个萌。用中文写代码。面向对象的思想。
文件名：精确计时器.bas
代码如下。代码必须回帖后可见。**** Hidden Message *****使用范例：（使用前必须先添加这个文件到工程中。）
新建某Form，然后粘贴下面的代码即可。运行的时候，玩法就是，按空格键，然后看标题栏上显示的时间。以秒为单位哦。Option Explicit
Dim 计时器 As 精确定时器

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then 精确计时器开始计时 计时器
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then 精确计时器暂停计时 计时器
End Sub

Private Sub Form_Load()
Show
全局初始化精确计时器
计时器 = 新建精确计时器
Do
    Cls
    Caption = 取得精确的时间(计时器)
Loop While DoEvents
End Sub

KxIX 发表于 2014-5-25 17:24:40

0xAA55 发表于 2014-5-25 18:41:29

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

没错。语法如下：
Private或Public或留空 Declare Sub或Function 你要起的名字 Lib "DLL文件名" Alias "它本来的名字" (参数表) 留空或As 返回值类型
举例：让主板喇叭蜂鸣的API是Beep，是Kernel32.dll提供的API。Declare Function 叫 Lib "kernel32.dll" Alias "Beep" (ByVal 频率 As Long, ByVal 毫秒数 As Long) As Long然后你只需要这样调用：叫 1000,1000就会听到主板产生了持续1秒的频率1000赫兹的方波蜂鸣声。

KxIX 发表于 2014-5-27 09:09:36

0xAA55 发表于 2014-5-27 10:52:00

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

那就不知道了

濫酒鬼 发表于 2014-10-17 08:15:50

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

MeThee 发表于 2017-2-3 00:33:47

看代码来的

搬砖工 发表于 2017-2-15 23:43:11

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

tbage2012 发表于 2017-2-25 19:32:41

这个好。。。多谢分享

零度 发表于 2017-3-10 14:59:31

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

suocheng0604 发表于 2017-5-5 11:55:24

谢谢楼主分享！

emayi2 发表于 2017-7-20 14:39:50

不错不错

Momo 发表于 2017-9-22 10:20:27

学习一下，谢谢分享

阿呆在上海 发表于 2017-10-23 19:04:46

好好学习

白天 发表于 2017-10-25 02:01:17

做MIDI程序用得上吧

cxg0208 发表于 2017-10-28 10:06:20

timer控件精度小于50毫秒

海之娇子 发表于 2017-11-5 21:06:36

谢谢分享！

(⊙o⊙) 发表于 2017-11-7 07:49:14

vb6还有人用。

tracykkkk 发表于 2017-11-28 11:10:34

学习学习

超超菜鸟 发表于 2017-12-18 13:49:36

请问在什么情况引用呢？

查看完整版本: 【VB】VB6写的很精确的计时器（微秒级）