如何让主板“嘀”一下,在线等!!

boyalsogood 2005-03-21 10:49:12
系统win2000,调用api时候,主板发出的声音太单薄了,怎样让它嘀的声音大一点,能象开机那一声就可以了,急!!先谢过大家~~
...全文
100 点赞 收藏 15
写回复
15 条回复
boyalsogood 2005年03月24日
to laviewpbt(人一定要靠自己) :我把BEEP(I,10)改成BEEP(I,100)声音更好听些,试试吧,:)
谢谢了
回复 点赞
boyalsogood 2005年03月24日
谢谢 结题了
回复 点赞
j_x_y 2005年03月24日
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'dwFreq --------- Long,声音频率(从37Hz到32767Hz)。
'dwDuration ----- Long,声音的持续时间,以毫秒为单位。如为-1,表示一直播放声音,直到再次调用该函数为止。
回复 点赞
electricperi 2005年03月24日
chr$(7)在DOS下这么干。
好像现在的Beep是API了,还是编音乐那个……
我拿QB编啰啦A梦,就是走调了 ^_*
回复 点赞
cdsun 2005年03月23日
你把内存条拔除来再开机
回复 点赞
hspcyeling 2005年03月23日
好象有个函数可以,CHR()里面跟什么,我忘了.
回复 点赞
是是非非 2005年03月22日
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

这个函数可以
回复 点赞
33184777 2005年03月21日
我觉得这个声音也不错啊!
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim retval As Long
For I = 0 To 10000 Step 500
retval = Beep(I, 10)
Next
End Sub

回复 点赞
固执的大叔 2005年03月21日
beep 是可以的,以前写DOS程序的时候也是控制主板上的蜂鸣器响来提醒错误,还可以编音乐...
回复 点赞
daisy8675 2005年03月21日
不知道。。。。
回复 点赞
33184777 2005年03月21日
//beep在XP下没有音响是不能听到声音的
是吗,beep是通过主板上的蜂鸣器而起作用的吧。
回复 点赞
cnapc 2005年03月21日
beep
不知道这个声音行不行
回复 点赞
kmzs 2005年03月21日
主办上的蜂鸣器可以响,比如你把内存条拔除来再开机,就会听到响亮地“嘟……”
回复 点赞
Dickson 2005年03月21日
对了,主板可以响么
回复 点赞
Maxing 2005年03月21日
beep在XP下没有音响是不能听到声音的
回复 点赞
发动态
发帖子
多媒体
创建于2007-09-28

621

社区成员

8284

社区内容

VB 多媒体
社区公告
暂无公告