VB中如何实现让计算机喇叭鸣叫

Question

dim i as long
 for i=1 to 10
  beep
 next i

Answer 1

Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
可以出现音乐...

Answer 2

To  sandder(包含中):
    为什么我在用这个函数的时候， PC的喇叭总是不理睬我？
    apibeep 100,50

Answer 3

dwFreq表示频率，dwDuration表示时间，例如：
Call APIBeep(220,500)，以220Hz的频率发出音乐0.5秒。
另外设1(do)的频率为c，则2(re),3(mi),4(fa),5(so),6(la),7(xi)的频率分别为：c*2^(2/12),c*2^(4/12),c*2^(5/12),c*2^(7/12),c*2^(9/12),c*2^(11/12)，下面的例子从中音的1演奏到高音的1。
Const c = 220Private Sub Command1_Click()
Call APIBeep(c, 500)
Call APIBeep(c * 2 ^ (2 / 12), 500)
Call APIBeep(c * 2 ^ (4 / 12), 500)
Call APIBeep(c * 2 ^ (5 / 12), 500)
Call APIBeep(c * 2 ^ (7 / 12), 500)
Call APIBeep(c * 2 ^ (9 / 12), 500)
Call APIBeep(c * 2 ^ (11 / 12), 500)
Call APIBeep(c * 2, 500)
End Sub

Answer 4

以上的方法如果没有音箱都不行，我用C语言编了一程序（让扬声器发音），在VB中调用可以实现—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

Answer 5

以上的方法如果没有音箱都不行，我用C语言编了一程序（让扬声器发音），在VB中调用可以实现,你可以来[email protected]联系—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

Answer 6

to EpopeeLei(午夜狂编):
    就是没法出声音！！！用法没有错，为什么？注：我的机器没有装声卡！

Answer 7

我刚试了Private Sub Command1_Click()
Beep
End Sub
但那东西怎么也不响,可是按道理应该响呀.这是怎么回事.

Answer 8

只要声卡是好的，beep好像就不能让pc喇叭响，只会让影响向

Answer 9

to EpopeeLei(午夜狂编):
    我的问题已经解决了，你到 http://expert.csdn.net/Expert/topic/1181/1181580.xml?temp=.7378809
来，我把分给你！谢谢你了！
                                                    yo_jo(悠乔) 

Answer 10

Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" ( _
ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
To make a beep lasting 500 milliseconds with frequency specified in the
TextBox txtFrequency (try 1000 for starters):Private Sub Command1_Click()
Dim frequency As Longfrequency = CLng(txtFrequency.Text)
APIBeep frequency, 500
End Sub注意：此方法在win98下不起作用，在win2000下没问题

Answer 11

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
   
    Dim Cnt As Long
    For Cnt = 0 To 5000 Step 10
        
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub