标题:还是蜂鸣器的问题
只看楼主
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:0 
以下是引用pjtyzyq在2018-1-5 09:56:31的发言:

这个在win7下不好用了。

可以用的,我在win7+VFP9环境下测试过了,只不过发出的声音很短促,没有太大的实用价值。你将音量调大再测试,应该可以听到的。
建议改用播放一段WAV文件,效果可能会更好些。

活到老,学到老! http://www. E-mail:hu-jj@
2018-01-09 07:40
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:0 
试试用下面的代码,这是从我原来的一个计时程序中摘录的,具体的用法我已经忘记了。
        Declare Integer sndPlaySound In winmm STRING lpszSound, Integer fuSound
        =sndPlaySound("tada.wav",3)

活到老,学到老! http://www. E-mail:hu-jj@
2018-01-09 07:51
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:0 
抱歉,没仔细看楼主的补充说明,现在的系统没有音箱是无法发声的,不象原来可以让主板上的蜂鸣器或者机箱内的小喇叭发声。

活到老,学到老! http://www. E-mail:hu-jj@
2018-01-09 08:04
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:48
帖 子:459
专家分:1116
注 册:2010-1-11
得分:5 
现在主板上外插一个小发声喇叭
2018-01-09 10:23
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:230
专家分:240
注 册:2016-2-14
得分:0 
回复 14楼 星光悠蓝
如果能插喇叭咱就不费这劲了,呵呵。
2018-01-09 10:48
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:48
帖 子:459
专家分:1116
注 册:2010-1-11
得分:0 
我的华硕主板上有个插口,两根针
2018-01-09 11:33
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:48
帖 子:459
专家分:1116
注 册:2010-1-11
得分:0 
电脑启动都有声音
2018-01-09 11:38
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:230
专家分:240
注 册:2016-2-14
得分:0 
在耳机插孔上安个蜂鸣器,仍然使用beep就解决了问题,虽然不正规,但可用了。
2018-01-25 14:26
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
耳机不也是声卡输出的吗
2018-01-25 15:15
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:230
专家分:240
注 册:2016-2-14
得分:0 
回复 19楼 吹水佬
是的,靠设置输出频率发声
Declare Integer Beep In kernel32 As waBeep ;
    Integer dwFreq, Integer dwDur

=waBeep(440, 1000)
=waBeep(4000, 4000)

[此贴子已经被作者于2018-1-25 16:10编辑过]

2018-01-25 16:07



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-483951-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.120424 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved