How to play different sounds with computer speaker in VB?

what OS do you have?

-->found the following in the API-Guide from allapi.net:

' Attempt to play a note at 800 Hz for 2 seconds.  This will only behave this way on Windows NT/2000; users of Windows 95/98 will only hear the  default sound.

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
    Dim retval As Long  ' return value
    retval = Beep(800, 2000)  ' ideally, an 800 Hz tone for 2 seconds
End Sub

i remember using a BASIC program where the keyboard had its keys mapped to different frequencies.

the user was actually able to play simple songs like "happy bithday" using the keyboard.

i think that can be done in VB too.

this was just to fire the imagination of some experts.

Sorry i didnt give the solution.

Have a look here:

http://www.freevbcode.com/ShowCode.Asp?ID=593

In Quick BASIC, it was real easy:
  PLAY "A A# B C C#" etc.

In VB, I think you can do this by tapping in to the Multimedia control.  If you create a wav file which contains all of the notes you need, use MM to play back certain parts of it.

I've also seen it done (by a company called "Ice", or something like that) by tapping into the Midi controls of Windows.  They gave the source code for a cool VB piano, but I don't have the code handy, and it was somewhat complicated.  If you really want it, let me know and I'll look it up over the weekend.

Here are some guaranteed codes to play sounds in Visual Basic

1. For Playing .WAV sounds

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

' Now declare certain constants for sndplaysound function

Const snd_async = &H1
Const snd_loop = &H8
Const snd_memory = &H4
Const snd_nodefault = &H2
Const snd_nostop = &H10
Const snd_sync = &H0


Private Sub Command1_Click()
Dim var As Long
Dim filepath As String 'This variable tells the path of the sound file stored on the computer
'Now tell the path of the sound to be played
filepath = "c:\hello.wav" 'You can also let the user open a sound file through common dialog control with the statement path=commondialog1.filename
var = sndPlaySound(filepath, snd_async)
End Sub

2. For Playing .MIDI Sounds

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
FileName = "c:\9c.mid"
Call mciSendString("Open " & FileName & " Alias MM", 0, 0, 0)
Call mciSendString("Play MM", 0, 0, 0)
End Sub
Private Sub Command3_Click()
Call mciSendString("Stop MM", 0, 0, 0)
End Sub
Private Sub Form_Load()
Call mciSendString("Stop MM", 0, 0, 0)
Call mciSendString("Close MM", 0, 0, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call mciSendString("Stop MM", 0, 0, 0)
Call mciSendString("Close MM", 0, 0, 0)
End Sub

3. For Playing .MP3 Sounds

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Private Sub Command1_Click()
PlayMP3 ("e:\soni.mp3")
End Sub

Public Function PlayMP3(Filename As String)
Dim dwreturn As Long
Dim ret As String * 128
Dim tmp As String * 255
Dim lenShort As Long
Dim ShortPathAndFie As String
'send a filename to the function
If Dir(Filename) = "" Then
MsgBox "Error with input file"
Exit Function
End If
lenShort = GetShortPathName(Filename, tmp, 255)
ShortPathAndFie = Left$(tmp, lenShort)
glo_hWnd = hWnd
cmdToDo = "open " & ShortPathAndFie & " type MPEGVideo Alias mpeg"
dwreturn = mciSendString(cmdToDo, 0&, 0&, 0&)

If dwreturn <> 0 Then  'not success
mciGetErrorString dwreturn, ret, 128
MsgBox ret, vbCritical
Exit Function
End If
'then to play just send this
dwreturn = mciSendString("play mpeg", 0&, 0&, 0&)

If dwreturn <> 0 Then
mciGetErrorString dwreturn, ret, 128
MsgBox ret, vbCritical
Exit Function
End If
End Function

Good Luck.....

Ajay chadha .... :-)

For a Nice Beep Effect

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

Code :-

Dim X%
X% = Beep(1500, 300)

Good Luck......

Ajay Chadha ..... :-)

Hey Check this one...

Declare Function Beep Lib "kernel32" Alias "Beep" As Long

ByVal dwFreq As Long
ByVal dwDuration As Long

'**************************************
' Name: Beep()
' Description:Generates simple tones on
'     the speaker.
' By: Limelight VB Page
'
' Inputs:

dwFreq :-

Specifies the frequency, In hertz, of the sound. This parameter must be in the range 37 through 32,767 (0x25 through 0x7FFF).

dwDuration :-

Specifies the duration, In milliseconds, of the sound.
One value has a special meaning: If dwDuration is - 1, the Function operates asynchronously and produces sound until called again.
'
' Returns:If the function succeeds, the return value is TRUE.

If the Function fails, the return value is FALSE. To Get extended Error information, call GetLastError.

'
' Assumes:
The Beep Function is synchronous In all but one case; the function does Not generally return control To its caller until the sound finishes. The exception to this occurs when dwDuration has the value - 1. In that case, Beep is asynchronous, returning control immediately to its caller While the sound continues playing. The sound continues until the Next call to Beep.
'


Good Luck.....

Ajay Chadha .... :-)

Here is another one....

" To play RTTTL (nokia ring tone) tunes "

If you have a nokia mobile phone and looked at ring tones you will have come across RTTTL, the text format for the tunes. This is a stand alone module with one public function PlayRTTTL. You give it a tune as a string in RTTTL format and it plays it using beeps. Note that this only works on NT as the Beep function is different on windows. If you are wondering what it could be used for, here is an example, at work we have written a phone book system for staff extension numbers and when you click on an entry you see details about the person and a picture. I wanted to let staff also give themselves a theme song that would play when you clicked on them. Since there are hundreds of RTTTL tunes available on the internet I decided to use that format as it is easily edited by users and saved to the database, and users can add new ones whenever they like. The code could have been written better, but I wanted to keep it in a self contained single module that you could plug and play into any project. This has nothing to do with Nokia mobile phones, it just uses the same format for the tunes. If you have not seen them, this is an example of the format: Simpsons:d=4,o=5,b=160:c.6,e6,f#6,8a6,g.6,e6,c6,8a,8f#, 8f#,8f#,2g,8p,8p,8f#,8f#,8f#,8g,a#.,8c6,8c6,8c6,c6 The Simpsons are probably copyrighted so don't use that one

http://www.planetsourcecode.com/xq/ASP/txtCodeId.5645/lngWId.1/qx/vb/scripts/ShowCode.htm

Good Luck....

Ajay Chadha ... :-)

Ping

ajay chaddha that surely was a blast of info from you.Best lucks for your source code web site.

Thanks bahnu54,

I'm really glad to know that people like ou are really looking forward for my website. I assure you that that would be the supereb site for all of you. You'll not be dissapponted....

Good Luck....

Ajay Chadha .... :-)