如何让主板“嘀”一下，在线等！！

[boyalsogood]

系统win2000，调用api时候，主板发出的声音太单薄了，怎样让它嘀的声音大一点，能象开机那一声就可以了，急！！先谢过大家~~

[Maxing]

beep在XP下没有音响是不能听到声音的

[Dickson]

对了，主板可以响么

[kmzs]

主办上的蜂鸣器可以响，比如你把内存条拔除来再开机，就会听到响亮地“嘟……”

[cnapc]

beep
不知道这个声音行不行

[laviewpbt]

//beep在XP下没有音响是不能听到声音的
是吗，beep是通过主板上的蜂鸣器而起作用的吧。

[daisy8675]

不知道。。。。

[固执的大叔]

beep 是可以的,以前写DOS程序的时候也是控制主板上的蜂鸣器响来提醒错误,还可以编音乐...

[laviewpbt]

我觉得这个声音也不错啊！
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

[是是非非]

Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

这个函数可以

[hspcyeling]

好象有个函数可以,CHR()里面跟什么,我忘了.

[cdsun]

你把内存条拔除来再开机

[electricperi]

chr$(7)在DOS下这么干。
好像现在的Beep是API了，还是编音乐那个……
我拿QB编啰啦A梦，就是走调了 ^_*

[j_x_y]

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'dwFreq --------- Long，声音频率（从37Hz到32767Hz）。
'dwDuration ----- Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。

[boyalsogood]

谢谢 结题了

[boyalsogood]

to laviewpbt(人一定要靠自己) ：我把BEEP(I,10)改成BEEP（I，100）声音更好听些，试试吧，：）
谢谢了