Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
BEEP | Excel Discussion (Misc queries) | |||
No Beep | Excel Programming | |||
Is BEEP all there is?? | Excel Programming | |||
I want to *beep* *beep*!!!! | Excel Programming | |||
I want to *beep* *beep*!!!! | Excel Programming |