ExcelBanter

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Beep (https://www.excelbanter.com/excel-programming/382764-beep.html)

Antonio

Beep

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?

Jim Thomlinson

Beep

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

--
HTH...

Jim Thomlinson

"Antonio" wrote:

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?

Jim Thomlinson

Beep

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

--
HTH...

Jim Thomlinson

"Jim Thomlinson" wrote:

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

--
HTH...

Jim Thomlinson

"Antonio" wrote:

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?

Gary Keramidas

Beep

jim:

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

--

Gary

"Jim Thomlinson" wrote in message
...
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

--
HTH...

Jim Thomlinson

"Jim Thomlinson" wrote:

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

--
HTH...

Jim Thomlinson

"Antonio" wrote:

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?

Gary Keramidas

Beep

oh, i see the function is needed.

--

Gary

"Jim Thomlinson" wrote in message
...
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

--
HTH...

Jim Thomlinson

"Jim Thomlinson" wrote:

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

--
HTH...

Jim Thomlinson

"Antonio" wrote:

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?

Antonio

Beep

Thank you very much Jim.

That is exactly what I needed.

Antonio

"Jim Thomlinson" wrote:

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

--
HTH...

Jim Thomlinson

"Jim Thomlinson" wrote:

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

--
HTH...

Jim Thomlinson

"Antonio" wrote:

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?

JLGWhiz

Beep

You can change the beep sound by going to StartControl PanelSounds, Speech
& Audio devicesSounds & Audio DevicesSounds tabClick on Default Beep, then
click Browse. The only selections offered are .wav sounds but you can change
the Beep sound.

"Antonio" wrote:

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?

Chip Pearson

Beep

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)

"Jim Thomlinson" wrote in message
...
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

--
HTH...

Jim Thomlinson

"Antonio" wrote:

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?

All times are GMT +1. The time now is 02:27 AM.