Beep

[Guest]

I know how to play a .wav file.

I know that the Beep function does not allow to play different sounds.

Is there an easy way to emit two or three (or several) different sounds
without resorting to playing a wav file?

 

[Guest]

You can change the frequency of the beep if you impliment the API...
Something like this in a standard code module...

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

Sub TestBeep()
Beep 500, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 1000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 5000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 2000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 200, 100
End Sub

 

[Guest]

Sorry I should have mentioned that you can also change the duration of the
sound...

Sub TestBeep2()
Beep 500, 100
Beep 1000, 200
Beep 5000, 100
Beep 2000, 300
Beep 200, 700
Beep 500, 200
Beep 1000, 400
Beep 5000, 700
Beep 2000, 200
Beep 200, 100
End Sub

 

[Gary Keramidas]

jim:

is there something that needs to be loaded to use the beep arguments?

 

[Gary Keramidas]

oh, i see the function is needed.

--


Gary

Sorry I should have mentioned that you can also change the duration of the
sound...

Sub TestBeep2()
Beep 500, 100
Beep 1000, 200
Beep 5000, 100
Beep 2000, 300
Beep 200, 700
Beep 500, 200
Beep 1000, 400
Beep 5000, 700
Beep 2000, 200
Beep 200, 100
End Sub

 

[Guest]

Thank you very much Jim.

That is exactly what I needed.

Antonio

 

[Guest]

You can change the beep sound by going to Start>Control Panel>Sounds, Speech
& Audio devices>Sounds & Audio Devices>Sounds tab>Click on Default Beep, then
click Browse. The only selections offered are .wav sounds but you can change
the Beep sound.

 

[Chip Pearson]

Just to avoid confusion with the standard VBA Beep statement, I would modify
the code as follows:

Private Declare Function API_Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq
As Long, _
ByVal dwDuration As Long) As Long

Sub TestBeep()
API_Beep 500, 100
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)