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

翻牆先生 发表于 2018-2-13 12:21:52

太6了
6666666666666

HuuuuLalala 发表于 2018-2-20 13:43:36

本帖最后由 HuuuuLalala 于 2018-2-20 13:44 编辑

谢谢分享

xyy 发表于 2018-4-24 19:20:14

:我摩托的哦哦

xyy 发表于 2018-4-24 19:48:29

请问如何将文件导入工程中

dfei 发表于 2018-4-26 16:33:45

非常感谢分享

bigwind 发表于 2018-8-2 20:56:59

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

tuowai 发表于 2018-11-30 17:58:42

这个可以试试

mjm0101 发表于 2019-5-10 22:49:25

支持一下

普尔和 发表于 2019-6-6 09:00:06

????????????????????

牛牛 发表于 2019-7-17 20:32:18

谢谢分享，努力学习下

Hairyape 发表于 2019-12-14 23:08:10

VB 的timer的确垃圾.正好要用到.试试

系统消息 发表于 2019-12-15 08:53:55

白天 发表于 2017-10-25 02:01
做MIDI程序用得上吧

如果是用DirectMusic的软件合成midi的话，普通的Timer也完全足够，因为DirectMusic内部会根据你指定时间转换为对应的采样点位置（也就是说在44.1Hz采样率的波形设备下，DirectMusic的精度就可以达到1/44100秒），而普通Timer只需要简单的隔一段更新一段数据到流中即可（只要你保证在播放时间到达之前推入流中,哪怕你一分钟更新一次都行）。

396737180 发表于 2019-12-26 16:44:37

感谢分享！！！！！！！！！

xiongsx 发表于 2020-1-15 12:12:51

很好，我找了好久

海南怪人 发表于 2020-2-18 08:49:20

竟然还要API 好浪费啊！

hxin123456 发表于 2020-4-3 22:03:08

看看学习下

彎彎 发表于 2020-6-29 15:22:10

谢谢楼主分享！

系统消息 发表于 2020-6-29 21:14:15

0xAA55 发表于 2014-5-27 10:52
那就不知道了

是的，我反汇编过，并自己重写过Beep函数，并且发现k32的Beep函数阻塞的原理是内部调用了Sleep，所以我们可以很轻松写一个异步非阻塞的Beep函数:lol。

0xAA55 发表于 2020-6-30 15:12:35

系统消息 发表于 2020-6-29 21:14
是的，我反汇编过，并自己重写过Beep函数，并且发现k32的Beep函数阻塞的原理是内部调用了Sleep，所以我们 ...

原来如此。虽说我知道以前的（XP的）Beep是真的控制主板蜂鸣器，而现在则是用扬声器输出了。只是你提到它用的是Sleep，这一点我不知道。

系统消息 发表于 2020-6-30 22:41:44

本帖最后由 系统消息 于 2020-6-30 22:54 编辑

0xAA55 发表于 2020-6-30 15:12
原来如此。虽说我知道以前的（XP的）Beep是真的控制主板蜂鸣器，而现在则是用扬声器输出了。只是你提到它 ...

NT内核系统的k32层Beep函数实现都是基本上一样的，差别在Beep.sys上，XP的Beep.sys走真蜂鸣器，Vista之后用波形设备模拟。
k32层的Beep函数是先用DeviceIoControl给Beep.sys发送消息，然后用Sleep等待Beep.sys播放完成（Sleep的时间设置成播放的持续时间）。
我写过一个VB6版的自己调Beep驱动实现异步蜂鸣器的类（不Sleep就是异步了，运行可以发现完全不会卡VB6的界面），放到附件里了。

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