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?

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?

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?

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?

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 -

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?