| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 711 人关注过本帖
标题:还是蜂鸣器的问题
只看楼主 加入收藏
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:版主
威 望:344
帖 子:11278
专家分:42333
注 册:2006-5-13
  得分:0 
以下是引用pjtyzyq在2018-1-5 09:56:31的发言:

这个在win7下不好用了。

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

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

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

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2018-01-09 08:04
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:29
帖 子:309
专家分:768
注 册:2010-1-11
  得分:5 
现在主板上外插一个小发声喇叭
2018-01-09 10:23
pjtyzyq
Rank: 2
等 级:论坛游民
帖 子:128
专家分:40
注 册:2016-2-14
  得分:0 
回复 14楼 星光悠蓝
如果能插喇叭咱就不费这劲了,呵呵。
2018-01-09 10:48
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:29
帖 子:309
专家分:768
注 册:2010-1-11
  得分:0 
我的华硕主板上有个插口,两根针
2018-01-09 11:33
星光悠蓝
Rank: 8Rank: 8
来 自:山水甲天下
等 级:贵宾
威 望:29
帖 子:309
专家分:768
注 册:2010-1-11
  得分:0 
电脑启动都有声音
2018-01-09 11:38
pjtyzyq
Rank: 2
等 级:论坛游民
帖 子:128
专家分:40
注 册:2016-2-14
  得分:0 
在耳机插孔上安个蜂鸣器,仍然使用beep就解决了问题,虽然不正规,但可用了。
2018-01-25 14:26
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:157
帖 子:6120
专家分:26729
注 册:2014-5-20
  得分:0 
耳机不也是声卡输出的吗
2018-01-25 15:15
pjtyzyq
Rank: 2
等 级:论坛游民
帖 子:128
专家分:40
注 册: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







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

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