How to create a sound at specific frequency?

  • Thread starter Thread starter johnb41
  • Start date Start date
J

johnb41

Does anyone know how can i create a sound in vb.net that will be a
specific frequency? I can't find anything online that helps.

Thanks very much for your help!

John
 
Does anyone know how can i create a sound in vb.net that will be a
specific frequency? I can't find anything online that helps.
Click to expand...

' Beep (winbase.h) plays a sound in hertz for a duration in milliseconds
' This function is named BeepApi because Beep is a vb reserved word
Public Declare Function BeepApi Lib "kernel32" Alias "Beep" ( _
ByVal dwFreq As Integer, _
ByVal dwDuration As Integer) _
As Integer
 
AMercer said:
Public Declare Function BeepApi Lib "kernel32" Alias "Beep" ( _
ByVal dwFreq As Integer, _
ByVal dwDuration As Integer) _
As Integer
Click to expand...

And if you don't want to use p/invoke you can use:

System.Console.Beep(_frequency, _duration)
 
Thank you for your replies. I tried that earlier. The problem with
this method is that the beep is sounded via the internal PC speaker,
not the external speakers, and the quality is very bad.

Does anyone know how to get the sound to come out of the external
speakers?

Thanks!
John
 
johnb41 said:
Does anyone know how to get the sound to come out of the external
speakers?
Click to expand...

You mean through the sound card?

If you're using .Net 2.0, you can import the System.Media namespace and
then call:

SystemSounds.Beep.Play()

What is played depends on the sound scheme setup in the control panel.
 
Thank you for your replies. I tried that earlier. The problem with
this method is that the beep is sounded via the internal PC speaker,
not the external speakers, and the quality is very bad.

Does anyone know how to get the sound to come out of the external
speakers?
Click to expand...

At web site

http://ccrma.stanford.edu/CCRMA/Courses/422/projects/WaveFormat/

is a description of the layout of a .wav file. You could generate such a
structure with digitized sinusoid values in the 'data' area, and feed that
data to

Private Declare Function PlaySound Lib "winmm" Alias "PlaySoundA" ( _
ByVal pszSound() As Byte, _
ByVal hMod As Integer, _
ByVal fdwSound As Integer) _
As Integer

Use 0 for hMod, and use &h4 for fdwSound (constant SND_MEMORY). Pass the
wave array you build in pszSound.

Sounds like some effort, but it should work.
 
Back
Top