home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sound / sound.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-21  |  1.0 KB  |  19 lines
  1. ' Use these API Declarations along with the two sub routines in
  2. ' form 1 to play different sounds output to the PC speaker.
  3. ' The routines were taken out of PC Magazine's 'Visual Basic Programmer's
  4. ' Giude To Windows API'. These are general routines that demonstrate
  5. ' how to use the API calls. By playing with the Note, Duration, and SoundVal
  6. ' values you can get different effects.
  7.  
  8.  
  9. Declare Function StartSound% Lib "Sound" ()
  10. Declare Function StopSound% Lib "Sound" ()
  11. Declare Function SetSoundNoise% Lib "Sound" (ByVal nSource%, ByVal nDuration%)
  12. Declare Function OpenSound% Lib "Sound" ()
  13. Declare Sub CloseSound Lib "Sound" ()
  14. Declare Function SetVoiceAccent% Lib "Sound" (ByVal nVoice%, ByVal nTempo%, ByVal nVolume%, ByVal nMode%, ByVal nPitch%)
  15. Declare Function SetVoiceNote% Lib "Sound" (ByVal nVoice%, ByVal nValue%, ByVal nLength%, ByVal nCdots%)
  16. Declare Function SetVoiceQueueSize% Lib "Sound" (ByVal nVoice%, ByVal nBytes%)
  17. Declare Function SetVoiceSound% Lib "Sound" (ByVal nVoice%, ByVal lFrequency&, ByVal nDuration%)
  18.  
  19.