How can I listen to a sound/music file in VB?

[schoolbusdriver]

Hi Margaret, no probs. The pic and code was enough You need to change the "Type" of resource to "SOUND". In the resource editor, double-click on the "101" and you'll get an "Edit Properties" dialog. Just change the Type to "SOUND". The play code needs to be changed to suit:

Private Sub cmdPlaySound_Click() 'PlaySound. Resource file. SYNCHRONOUS ONLY.
 
  Dim bytResFile() As Byte
   
   bytResFile = LoadResData(101, "SOUND")
   Call PlaySoundResMem(bytResFile(0), App.hInstance, SND_MEMORY Or SND_SYNC)
 
End Sub

("WAVE" also works)

BTW, this code will cause the app to "freeze" while the sounds are played - which is what I assume you want for a Quiz program ie - stop user interaction until the questions/answers are played. As Arne Elster pointed out above, a minor change can alter this behaviour - the only problem being that the "sound file" stored in "bytResFile()" will remain in memory for the duration of the app. Although it can be erased, there is no easy (one liner) way to do this automatically - although it is possible. A better way is to use code that doesn't involve this overhead - the problem being it will only play sounds after you've made an exe. It won't play in the IDE If you want this alternative, just let me know.

[Margaret]

Hi Margaret, no probs. The pic and code was enough You need to change the "Type" of resource to "SOUND". In the resource editor, double-click on the "101" and you'll get an "Edit Properties" dialog. Just change the Type to "SOUND". The play code needs to be changed to suit:

Private Sub cmdPlaySound_Click() 'PlaySound. Resource file. SYNCHRONOUS ONLY.
 
  Dim bytResFile() As Byte
   
   bytResFile = LoadResData(101, "SOUND")
   Call PlaySoundResMem(bytResFile(0), App.hInstance, SND_MEMORY Or SND_SYNC)
 
End Sub

("WAVE" also works)

The audio file name is "Welcome.wav". I put this file in Resource Folder. I am still confused since it doesn't play the sound.

Margaret.

[schoolbusdriver]

Try the project in this zip file. Very, very rarely, PlaySound fails on some PCs. Let me know if it works OK.
EDIT: Attachment removed. See later post.

[Keithuk]

The audio file name is "Welcome.wav". I put this file in Resource Folder. I am still confused since it doesn't play the sound.

Providing you have Type right = "SOUND" and the ID is a number you may have problems hearing the sound in IDE. Compile the exe and try it again.

schoolbusdriver gave me different code to play wave files and I had to compile before I could hear a sound.

[Margaret]

Providing you have Type right = "SOUND" and the ID is a number you may have problems hearing the sound in IDE. Compile the exe and try it again.

schoolbusdriver gave me different code to play wave files and I had to compile before I could hear a sound.

Hi,

Still, I am confused. Suppose I have 10 audio files in a folder "Audio Songs" say, Song1, Song2, Song3 ......Song10, and the folder is in the same project folder. How can I listen to a song Song1 when I click on cmdSong1.

Kindly let me know the easiest way to do this, please.

Margaret.

[Keithuk]

When you add these songs to a resource file I normally use the filename without the extension. Because that is easy to play that sound. But if you are using schoolbusdriver code with PlaySound API you need to change this to a number so write them down.

Song1 = 101
Song2 = 102
Song3 = 103
Song4 = 104 etc

Without seeing the code you are using I can only guess at how you are playing these sounds.

Const SND_ASYNC = &H1         'Play asynchronously.
Const SND_PURGE = &H40        'Release memory.
Const SND_RESOURCE = &H40004  'Name is a resource name or atom.
 
Private Declare Function PlaySound Lib "winmm.dll" Alias _
"PlaySoundA" (ByVal lpszName As Long, ByVal hModule As Long,_
ByVal dwFlags As Long) As Long
 
Private Sub PlaySounds(SoundNum As Long) 
 
Dim SoundBuffer As String
    
SoundBuffer = StrConv(LoadResData(SoundNum, "SOUND"), vbUnicode)
'Reference nothing and purge memory.
Call PlaySound(0, App.hInstance, SND_PURGE)
'Reference the res file.
Call PlaySound(SoundBuffer, App.hInstance, SND_RESOURCE Or SND_ASYNC)
 
End Sub
 
Private Sub cmdSong1_Click()
 
Call PlaySounds(101)
 
End Sub

Are your sound types "SOUND"?

[Margaret]

Without seeing the code you are using I can only guess at how you are playing these sounds.

Const SND_ASYNC = &H1         'Play asynchronously.
Const SND_PURGE = &H40        'Release memory.
Const SND_RESOURCE = &H40004  'Name is a resource name or atom.

Hi,

I have attached the jpg file to show how I have done the coding. Though there are no errors, I cound not hear any audio.

Hope to get help from you.

Margaret.

[Keithuk]

Well have I said before I can't hear any sounds using PlaySound API on my comp you have to compile the exe first then run the exe.