主页

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

boyalsogood 2005-03-21 10:49:12

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

...全文

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

回复点赞