ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Sound on Excel (https://www.excelbanter.com/excel-discussion-misc-queries/172287-sound-excel.html)

girgor

Sound on Excel
 
I'd like to use Excel as a music score writer (using non standard notation).
Can I also have sounds to give an indication of whether or not I've input the
right note?

Jim Thomlinson

Sound on Excel
 
Here is some code that will allow you to play a beep sound at different
frequencies for different durations... Place this code in a standard code
module and run BeepTest for a demonstartion...

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

Sub BeepTest()
Beep 500, 200
Beep 1000, 100
Beep 2000, 50
End Sub

--
HTH...

Jim Thomlinson


"girgor" wrote:

I'd like to use Excel as a music score writer (using non standard notation).
Can I also have sounds to give an indication of whether or not I've input the
right note?


bau

Sound on Excel
 
Hi Jim,
When I tried it, the system is looking for "kernel32" and failed. Where is
this file located?
Thanks,

"Jim Thomlinson" wrote:

Here is some code that will allow you to play a beep sound at different
frequencies for different durations... Place this code in a standard code
module and run BeepTest for a demonstartion...

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

Sub BeepTest()
Beep 500, 200
Beep 1000, 100
Beep 2000, 50
End Sub

--
HTH...

Jim Thomlinson


"girgor" wrote:

I'd like to use Excel as a music score writer (using non standard notation).
Can I also have sounds to give an indication of whether or not I've input the
right note?


bau

Sound on Excel
 
Hi Jim,
I misspelled kermel32. It's working great now.
Thanks a bunch.
Bau


"bau" wrote:

Hi Jim,
When I tried it, the system is looking for "kernel32" and failed. Where is
this file located?
Thanks,

"Jim Thomlinson" wrote:

Here is some code that will allow you to play a beep sound at different
frequencies for different durations... Place this code in a standard code
module and run BeepTest for a demonstartion...

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

Sub BeepTest()
Beep 500, 200
Beep 1000, 100
Beep 2000, 50
End Sub

--
HTH...

Jim Thomlinson


"girgor" wrote:

I'd like to use Excel as a music score writer (using non standard notation).
Can I also have sounds to give an indication of whether or not I've input the
right note?


Pete_UK

Sound on Excel
 
Thanks for this, Jim. Any chance of adjusting the volume - bit feint
on my machine.

Pete

On Jan 9, 5:51*pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
Here is some code that will allow you to play a beep sound at different
frequencies for different durations... Place this code in a standard code
module and run BeepTest for a demonstartion...

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

Sub BeepTest()
* * Beep 500, 200
* * Beep 1000, 100
* * Beep 2000, 50
End Sub

--
HTH...

Jim Thomlinson



"girgor" wrote:
I'd like to use Excel as a music score writer (using non standard notation).
Can I also have sounds to give an indication of whether or not I've input the
right note?- Hide quoted text -


- Show quoted text -



bau

Sound on Excel
 
Jim,
Thanks for your help.

All,
How can we out put all sound together at the same time?
1 example is playing a triad.
Thanks,
Bau

"Jim Thomlinson" wrote:

Here is some code that will allow you to play a beep sound at different
frequencies for different durations... Place this code in a standard code
module and run BeepTest for a demonstartion...

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

Sub BeepTest()
Beep 500, 200
Beep 1000, 100
Beep 2000, 50
End Sub

--
HTH...

Jim Thomlinson


"girgor" wrote:

I'd like to use Excel as a music score writer (using non standard notation).
Can I also have sounds to give an indication of whether or not I've input the
right note?



All times are GMT +1. The time now is 12:25 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com