We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

PLAY (MUSIC) command.

deighton
deighton asked
on
Medium Priority
518 Views
Last Modified: 2008-02-26
In QBasic there is the command PLAY to play musical tunes e.g.

PLAY "CDEFGAB"  - How do I replicate this in VB4?

Thanks.
Comment
Watch Question

Commented:
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10

Function PlaySound(PathFileName as string) as boolean
Dim RetVal as Long
Dim iFlags as Integer

   iFlags = SND_ASYNC Or SND_NODEFAULT
   RetVal = sndPlaySound(PathFileName, iFlags)
   If RetVal Then PlaySound = True

End Function

You must add the following declare to your project in a module (All on one line):

Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Call this function with a statement like:

PlaySound "D:\Sounds\Fire.Wav"

If you have a need, it is a function that will return true if the sound was played successfully.  Check out the other flags, you might like some of the other things you can do with this API function.
deightonprog

Author

Commented:
I've used your code but there is no sound and
  RetVal = sndPlaySound(PathFileName, iFlags)

RetVal = 0 ??  

The path name is definitel correct and I've used windows wav files such as bell.wav


deightonprog

Author

Commented:
I forgot to mention I've not got multimedia I'm using the PC speaker - I've managed to play windows default sounds using the MessageBeep API so far.  Can I play WAV files thru the speaker?
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
deightonprog

Author

Commented:
ClifABB - I can't find the down load - do you know the URL by any chance?

Commented:
I would like to point out, once again, that this is a 16-bit driver.  It's original intent was for Windows 3.x.  I cannot guarantee that it will work.

ftp://ftp.microsoft.com/Softlib/MSLFILES/SPEAK.EXE

Now, you need to install the driver. In Windows, from the Program Manager choose successively Main/Control Panel/Drivers/Add/Unlisted or updated drivers/(enter path of SPEAK.EXE)/PC Speaker. At this point some strange sounds come out as the driver is initialized. Change the settings to improve the sound quality on the various sounds: tada, chimes, etc. Click OK when you are finished and choose the Restart windows option.

Having installed the speaker driver, you will now get sounds whenever you start Windows, make a mistake, or exit Windows. If you do not want this, from the Main/Control Panel/Sounds menu, make sure there is no X next to "Enable System Sounds."
deightonprog

Author

Commented:
Thanks for your help - I'll see how it goes!
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.