home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD76727112000.psc / modDS.bas < prev    next >
Encoding:
BASIC Source File  |  2000-07-10  |  1.5 KB  |  43 lines

  1. Attribute VB_Name = "modDS"
  2. Option Explicit
  3.  
  4. 'The Main Direct Sound Object
  5. Public dsMain As DirectSound
  6.  
  7. 'This is the sounds buffer object
  8. Public DBuffer As DirectSoundBuffer
  9. 'This is the Description of the sounds buffer object
  10. Public DBufferDesc As DSBUFFERDESC
  11.  
  12. 'This defines the format of waveform-audio data
  13. Public WavFormat As WAVEFORMATEX
  14.  
  15. 'This is the sub that plays the sound
  16. Sub DS_PlaySound(Looping As Boolean)
  17.     'If looping is set to true
  18.     If Looping = True Then
  19.         'rewind the sound to the beginning
  20.         Call DBuffer.SetCurrentPosition(0)
  21.         'play the sound and loop it
  22.         Call DBuffer.Play(DSBPLAY_LOOPING)
  23.     'If looping is set to false
  24.     Else
  25.         'rewind the sound to the beginning
  26.         Call DBuffer.SetCurrentPosition(0)
  27.         'play the sound and don't loop it
  28.         Call DBuffer.Play(DSBPLAY_DEFAULT)
  29.     End If
  30. End Sub
  31.  
  32. 'This creates a sound buffer from a file
  33. Sub DS_CreateSoundBufFromFile(FileName As String, bufferDesc As DSBUFFERDESC, wFormat As WAVEFORMATEX)
  34.     'this sets the buffer to the file you want in the program
  35.     Set DBuffer = dsMain.CreateSoundBufferFromFile(FileName, bufferDesc, wFormat)
  36. End Sub
  37.  
  38. 'This sub basically calls the above sub for easier transportation to the main initialization
  39. 'This would make it easier if you had multiple sound files you wanted in the application
  40. Sub DS_CreateSoundsFromFile()
  41.     Call DS_CreateSoundBufFromFile(App.Path & "\music.wav", DBufferDesc, WavFormat)
  42. End Sub
  43.