Waves and Waves!

[Arie]

Hi!

I want to ask something:
There is this function:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Right?
Now, how can I: Play, Stop and Pause?
Explain...

Thank you,
Arie.

[Sastraxi]

Use SND_PURGE to stop, SND_SYNC or SND_ASYNC to play, and SND_??? to pause. (SND_??? isn't a varb.)

[Arie]

Thanx...

Just a note. sndPlaySound has been upgraded by PlaySound.

[Sastraxi]

Yeah, I heard 'bout that too. Is it any better (using DSOUND)

[Arie]

Does anyone have a tutorial for sndPlaySound or DSOUND?

Thank you,
Arie.

[Arie]

But now...
When I play a WAV file it slows the computer down.
WHY?
Maybe you FOX, do you know why?
Help, Please...
Arie.

Make sure you only load the wav once(put it in you form_load). It should go allot faster(but it will take longer for your program to load).

[Arie]

But...
How do I run a WAV file.
How do I load it?
What do you mean???
I am loading a WAV file like this:
Dim SND as Long
SND = sndPlaySound("C:\1.wav",&H0)

What do you mean?

Thank you,
Arie.

Check out this tutorial:

DirectSound:
http://rookscape.com/vbgaming/tutP.php

Put the following line of the tutorial somewhere in your form_load(after directsound is initialised):

Set DSBuffer = ds.CreateSoundBufferFromFile(App.Path & "\WaveFile.WAV", DSBufferDescription, DSFormat)

[Arie]

Thank you,
Arie.

[Sastraxi]

If using PlaySnd, use the LoadBuffer Function:

Function LoadBuffer(ByVal FileName as String) as String
Dim SB as String
Dim Data as String
Dim f as Integer

   Data = Space$(1024)

   f = FreeFile
   Open FileName for Binary as f
      Do While Not EOF(f)
         Get #f, , Data
         SB = SB & Data
      Loop
   Close f

   LoadBuffer = Trim$(SB)

End Function

[kedaman]

how about this sas?

Function LoadBuffer(ByVal FileName as String) as String
   f = FreeFile
   Open FileName for Binary as f
     LoadBuffer = Space(lof(f))
     Get #f, , LoadBuffer
   Close f
End Function

Originally posted by Sastraxi
Yeah, I heard 'bout that too. Is it any better (using DSOUND)

No, DirectSound is a lot better, but the downside is that it requires the type library, whereas PalySound doesn't. But then again, if you're using DirectX in your application anyways, this isn't a problem.

[Jorj]

I had that code originally on a 486 with VB3, it gives you crashes if you do any more than 1k. I just had the time to put it on and not edit it for "fun".

BTW. kedaman, do you know that your avatar is completely black?

[Jorj]

No, I mean by:

(using DSOUND) - means that I am using DSOUND and haven't used the new PlaySnd before, so I wouldnt know if it's any bettert than sndPlaySnd. What are the differences between PlaySound and sndPlaySound?

[Sastraxi]

Sorry, I'm on a friends computer so I was in their account.. that was actaully ME posting there...

[Sastraxi]

And posting the one before... silly me. *hits himself several times with his friend's english etymological dictionary*

[Arie]

Ok... Ok.
Thank you.
I've already got to play many many WAV files.
Thank you, All.
If I'll have more questions, I'll come here...

Arie.