• Home
 · 
• Windows API Call/Explanation
 · 
• Make Your OwnWAVPlayer

Make Your OwnWAVPlayer

This is the code to *PLAY*, *STOP*, and *LOOP* WAV files. Its really easy! even for a beginner! You can make your own WAV Player!

API Declarations
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10

Rate Make Your OwnWAVPlayer

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Sub WAVStop()
Call WAVPlay(" ")
End Sub
Sub WAVLoop(File)
Dim SoundName As String
SoundName$ = File
wFlags% = SND_ASYNC Or SND_LOOP
X = sndPlaySound(SoundName$, wFlags%)
End Sub
Sub WAVPlay(File)
Dim SoundName As String
SoundName$ = File
wFlags% = SND_ASYNC Or SND_NODEFAULT
X = sndPlaySound(SoundName$, wFlags%)
End Sub