[RESOLVED] Looping a .wav File

[5ms?]

I can make it loop, but how do I make it Stop.
Here is my code, this is in a Module

Option Explicit

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


Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10
Private Const wFlags = SND_ASYNC Or SND_LOOP

Dim X%

Public Sub Play_LOOP(wavFile  as String)
  X = sndPlaySound (wavFile , wFlags)
End Sub

Public Sub StopPlay_LOOP(wavFile  as String)
  X = sndPlaySound( wavFile, SND_ASYNC )    'wFlags   SND_ASYNC
End Sub

The Form

Option Explicit

  Dim myFileName$
  
 Private Sub Form_Load()
        myFileName = App.Path & "\tmpClick.wav"
        Play_LOOP myFileName
End Sub
    
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
       StopPlay_LOOP ""
End Sub

[danasegarane]

Try

Public Sub StopPlay_LOOP()
  sndPlaySound wavFile , SND_NOSTOP 
End Sub

[5ms?]

Thanks danasegarane, No!, I Tryd "gust now"

sndPlaySound wavFile , SND_NOSTOP

And

sndPlaySound "" , SND_NOSTOP

[danasegarane]

Here I don't have the movie files.But you are missing the filename in the stop ?

[5ms?]

Thanks danasegarane, No fix!, wavFile was Global, now it's not.

[danasegarane]

Nice to see it work.

Refer : How To Play a Waveform (.WAV) Sound File in Visual Basic

Please mark you thread resolved using the Thread Tools

[5ms?]

It don't work!!
The thread isn't resolved !!

SND_LOOP specifies that the sound will continue to play continuously until sndPlaySound is called again with the lpszSoundName$ parameter set to null. You must also specify the SND_ASYNC flag to loop sounds.


i.e x% = sndPlaySound("",SND_ASYNC)

But it don't Stop

[5ms?]

Here is the zip

Updated the zip.

Now it works properly.

Thanks to si_the_geek, for you help.

[hardLee]

It don't work

Yes it works!, it works!, it works!
Make it, and run the exe, and you will see.

[Gamemaster1494]

You replace the "" in this

Option Explicit

  Dim myFileName$
  
 Private Sub Form_Load()
        myFileName = App.Path & "\tmpClick.wav"
        Play_LOOP myFileName
End Sub
    
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
       StopPlay_LOOP ""
End Sub

with myFileName, and put this in a modual

Private Sub myFileName()
myFileName = App.Path & "\tmpClick.wav"
End Sub

ps. i got it to work fine. thanks.

[hardLee]

Can some one till me how to stop the loop at Design time

[Gamemaster1494]

wait, what do you mean?

[hardLee]

wait, what do you mean?

Make it in to exe (Run time):
Run the exe, it will Play and Play and Play and ....... ,
close exe and it'll stop playing.

programing the project in vb (Design time):
Run the project, it will Play and Play and Play and ....... ,
stop project and it will not stop playing,
close project and it will stop.

[si_the_geek]

Design-time only means while you are writing code, etc. Run-time is when you run it, whether that is in VB or compiled.

The answer to your question is that you cannot stop the code and then have something happen - you need to close it properly (the same way you would when it is compiled), so that the code to tidy up has a chance to run.


Note that Form_QueryUnload is actually the wrong place for the code, it should be in Form_Unload instead. There is an explanation of why in the article How should I close my form/program/class? from our Classic VB FAQs

[hardLee]

si_the_geek

So, if I put the call (StopPlay_LOOP "") in Form_Unload it will Stop Playing the loop when I close the Form?

[5ms?]

hardLee
No,

I ran this, and it's the same.

Option Explicit

  Dim myFileName$
  
Private Sub Form_Load()
        myFileName = App.Path & "\tmpClick.wav"
        Play_LOOP myFileName
End Sub
    
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
      '
End Sub

Private Sub Form_Unload(Cancel As Integer)
StopPlay_LOOP ""
End Sub

But when it is compiled (made in to an .exe) it's ok




.

[si_the_geek]

It should stop playing if you close the form, but not if you halt the code (using the "Stop" button on the toolbar, the End or Stop commands, etc).

It does not matter whether it is compiled or not - the only difference that makes is that you can't halt it when it is compiled, so you are forced to close it instead.

[hardLee]

It should stop playing if you close the form, but not if you halt the code (using the "Stop" button on the toolbar, the End or Stop commands, etc).

It does not matter whether it is compiled or not - the only difference that makes is that you can't halt it when it is compiled, so you are forced to close it instead.

si_the_geek

My brain hurts trying to think how I'm going to fix it.

My code now

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
      StopPlay_LOOP ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
StopPlay_LOOP ""
End Sub

I Ran the code it started playing.
I closed the form (by 'Clicking the close button' on the form)the form closed, I was back to vb Design-time, But it did not stop playing.

I made it in to an .exe
Ran the exe and it started playing.
I closed the exe and it stop playing.

Here is the zip

[Gamemaster1494]

Um, acctualy, i made one that stops by a button. And Yes its in a loop. Ill try to upload it. thats weird.... it wont let me upload it.

[hardLee]

Is "it" an exe?, you can not upload an exe.


exe are ok for me.

Design-time not ok.

[si_the_geek]

I just tried it, and it doesn't stop - and from a quick read of an earlier post, I can see that it is because you have made a clear mistake.

You got this from the documentation:

SND_LOOP specifies that the sound will continue to play continuously until sndPlaySound is called again with the lpszSoundName$ parameter set to null.

..but rather than use a Null string, you used an empty one - and that is completely different (Null means there is no value at all, empty means there is a value with no characters).

Use this instead:

Public Sub StopPlay_LOOP()
  sndPlaySound vbNullString, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
  StopPlay_LOOP
End Sub

...and as I said before, you should not have anything in Form_QueryUnload

[5ms?]

Thank you si_the_geek.

Yes, Yes, it works!, it works!,
One more, Should it be,

sndPlaySound vbNullString, SND_NODEFAULT

Or

sndPlaySound vbNullString, SND_SYNC

[si_the_geek]

The documentation says to use SND_NODEFAULT, so that would be the best idea.

[5ms?]

Thanks si_the_geek

Dun that, and Updated the zip

Here is the zip

Updated the zip.

Now it works properly.

Thanks to si_the_geek, for you help.