技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
楼主: 0xAA55
收起左侧

【VB】VB6写的很精确的计时器(微秒级)

[复制链接]

1

主题

2

回帖

5

积分

用户组: 初·技术宅

UID
3468
精华
0
威望
0 点
宅币
2 个
贡献
0 次
宅之契约
0 份
在线时间
1 小时
注册时间
2018-2-13
发表于 2018-2-13 12:21:52 | 显示全部楼层
太6了
6666666666666

评分

参与人数 1威望 -2 收起 理由
0xAA55 -2 灌水惩罚

查看全部评分

回复 支持 反对

使用道具 举报

0

主题

1

回帖

15

积分

用户组: 初·技术宅

UID
3477
精华
0
威望
2 点
宅币
10 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2018-2-20
发表于 2018-2-20 13:43:36 | 显示全部楼层
本帖最后由 HuuuuLalala 于 2018-2-20 13:44 编辑

谢谢分享
回复

使用道具 举报

0

主题

4

回帖

5

积分

用户组: 初·技术宅

UID
3723
精华
0
威望
0 点
宅币
1 个
贡献
0 次
宅之契约
0 份
在线时间
7 小时
注册时间
2018-4-17
发表于 2018-4-24 19:20:14 | 显示全部楼层
:我摩托的哦哦

0

主题

4

回帖

5

积分

用户组: 初·技术宅

UID
3723
精华
0
威望
0 点
宅币
1 个
贡献
0 次
宅之契约
0 份
在线时间
7 小时
注册时间
2018-4-17
发表于 2018-4-24 19:48:29 | 显示全部楼层
请问如何将文件导入工程中

0

主题

1

回帖

17

积分

用户组: 初·技术宅

UID
3755
精华
0
威望
2 点
宅币
12 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2018-4-26
发表于 2018-4-26 16:33:45 | 显示全部楼层
非常感谢分享

2

主题

59

回帖

458

积分

用户组: 中·技术宅

UID
2364
精华
0
威望
0 点
宅币
397 个
贡献
0 次
宅之契约
0 份
在线时间
53 小时
注册时间
2017-3-30
发表于 2018-8-2 20:56:59 | 显示全部楼层
VB6写的很精确的计时器(微秒级)

0

主题

9

回帖

35

积分

用户组: 初·技术宅

UID
4521
精华
0
威望
2 点
宅币
22 个
贡献
0 次
宅之契约
0 份
在线时间
2 小时
注册时间
2018-11-30
发表于 2018-11-30 17:58:42 | 显示全部楼层
这个可以试试

0

主题

2

回帖

19

积分

用户组: 初·技术宅

UID
776
精华
0
威望
0 点
宅币
17 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2015-4-1
发表于 2019-5-10 22:49:25 | 显示全部楼层
支持一下
回复

使用道具 举报

0

主题

3

回帖

3

积分

用户组: 初·技术宅

UID
4387
精华
0
威望
0 点
宅币
0 个
贡献
0 次
宅之契约
0 份
在线时间
1 小时
注册时间
2018-10-20
发表于 2019-6-6 09:00:06 | 显示全部楼层
????????????????????

评分

参与人数 1宅币 -4 收起 理由
0xAA55 -4 灌水惩罚

查看全部评分

回复

使用道具 举报

0

主题

8

回帖

17

积分

用户组: 初·技术宅

UID
5140
精华
0
威望
1 点
宅币
7 个
贡献
0 次
宅之契约
0 份
在线时间
3 小时
注册时间
2019-7-14
发表于 2019-7-17 20:32:18 | 显示全部楼层
谢谢分享,努力学习下

0

主题

1

回帖

21

积分

用户组: 初·技术宅

UID
5454
精华
0
威望
6 点
宅币
8 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2019-12-14
发表于 2019-12-14 23:08:10 | 显示全部楼层
VB 的timer的确垃圾.正好要用到.试试

7

主题

150

回帖

9658

积分

用户组: 真·技术宅

UID
4293
精华
5
威望
430 点
宅币
7781 个
贡献
835 次
宅之契约
0 份
在线时间
273 小时
注册时间
2018-9-19
发表于 2019-12-15 08:53:55 | 显示全部楼层
白天 发表于 2017-10-25 02:01
做MIDI程序用得上吧

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

0

主题

1

回帖

23

积分

用户组: 初·技术宅

UID
5488
精华
0
威望
6 点
宅币
10 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2019-12-26
发表于 2019-12-26 16:44:37 | 显示全部楼层
感谢分享!!!!!!!!!
回复

使用道具 举报

0

主题

24

回帖

2

积分

用户组: 初·技术宅

UID
5412
精华
0
威望
-2 点
宅币
-18 个
贡献
0 次
宅之契约
0 份
在线时间
8 小时
注册时间
2019-10-31
发表于 2020-1-15 12:12:51 | 显示全部楼层
很好,我找了好久

2

主题

19

回帖

81

积分

用户组: 小·技术宅

UID
5625
精华
0
威望
2 点
宅币
56 个
贡献
0 次
宅之契约
0 份
在线时间
3 小时
注册时间
2020-2-18
发表于 2020-2-18 08:49:20 | 显示全部楼层
竟然还要API 好浪费啊!

0

主题

53

回帖

103

积分

用户组: 小·技术宅

UID
5780
精华
0
威望
2 点
宅币
46 个
贡献
0 次
宅之契约
0 份
在线时间
0 小时
注册时间
2020-4-3
发表于 2020-4-3 22:03:08 | 显示全部楼层
看看学习下

0

主题

7

回帖

30

积分

用户组: 初·技术宅

UID
2629
精华
0
威望
0 点
宅币
23 个
贡献
0 次
宅之契约
0 份
在线时间
3 小时
注册时间
2017-6-27
发表于 2020-6-29 15:22:10 | 显示全部楼层
谢谢楼主分享!

7

主题

150

回帖

9658

积分

用户组: 真·技术宅

UID
4293
精华
5
威望
430 点
宅币
7781 个
贡献
835 次
宅之契约
0 份
在线时间
273 小时
注册时间
2018-9-19
发表于 2020-6-29 21:14:15 | 显示全部楼层

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

1099

主题

1600

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
242
威望
681 点
宅币
23204 个
贡献
46153 次
宅之契约
0 份
在线时间
2207 小时
注册时间
2014-1-26
 楼主| 发表于 2020-6-30 15:12:35 | 显示全部楼层
系统消息 发表于 2020-6-29 21:14
是的,我反汇编过,并自己重写过Beep函数,并且发现k32的Beep函数阻塞的原理是内部调用了Sleep,所以我们 ...

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

7

主题

150

回帖

9658

积分

用户组: 真·技术宅

UID
4293
精华
5
威望
430 点
宅币
7781 个
贡献
835 次
宅之契约
0 份
在线时间
273 小时
注册时间
2018-9-19
发表于 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的界面),放到附件里了。

异步版Beep(不卡界面).cls

3.61 KB, 阅读权限: 10, 下载次数: 0

NtBeep

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2023-2-5 21:21 , Processed in 0.038090 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表