Midi/Wav/AVI Playing Routines

The actual entry is the file 'Sound & Music.bas', which is a module that you can just add to your program. It has the following features:
  • Sound card detection ( Function HasSoundCard as Boolean )
  • MID file player ( Sub PlayMidi (M$) , Sub StopMidi () )
  • WAV file player ( Sub PlayWave (W$) , Sub PlayWaveAdv (AW$, FLG&) , Sub StopWave () )
  • Play WAVs from RES file ( Sub PlayRESWave (RW$) )
  • Stop all sound ( StopAllSound (Cancel%) )

The included project appears as below :

screen-shot

You can play WAV and MID simultaneously.

I will hopefully add more on to this file in the future. I hope to add features such as:

  • Play MIDs from within RES file.
  • Play multiple WAV files at once.
  • Sound card recognition (AWE64, Turtle Beach, ESS, Adlib, SB16, etc.).

I hope that this program is simplistic enough for you to see how to use this module in your programs.

Download zipped project file (41k)