home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N2.ZIP / VBPLAY.ZIP / GLOBAL.TXT < prev    next >
Encoding:
Text File  |  1992-03-25  |  1.5 KB  |  45 lines
  1. DefInt A-Z
  2. Declare Function OpenSound Lib "Sound" () As Integer
  3. Declare Sub CloseSound Lib "Sound" ()
  4. Declare Function StartSound Lib "Sound" () As Integer
  5. Declare Function StopSound Lib "Sound" () As Integer
  6. Declare Function SetVoiceQueueSize Lib "Sound"
  7.   (ByVal nVoice%, ByVal nBytes%) As Integer
  8. Declare Function SetVoiceSound Lib "Sound"
  9.   (ByVal nVoice%, ByVal lFrequency&, ByVal nDuration%) As Integer
  10. Declare Function CountVoiceNotes Lib "Sound"
  11.   (ByVal nVoice%) As Integer
  12.  
  13. ' Accent Modes
  14. Const S_NORMAL = 0
  15. Const S_LEGATO = 1
  16. Const S_STACCATO = 2
  17.  
  18. Const S_SERDVNA = -1        ' Device not available
  19. Const S_SEROFM = -2         ' Out of memory
  20. Const S_SERMACT = -3        ' Music active
  21. Const S_SERQFUL = -4        ' Queue full
  22. Const S_SERBDNT = -5        ' Invalid note
  23. Const S_SERDLN = -6         ' Invalid note length
  24. Const S_SERDCC = -7         ' Invalid note count
  25. Const S_SERDTP = -8         ' Invalid tempo
  26. Const S_SERDVL = -9         ' Invalid volume
  27. Const S_SERDMD = -10        ' Invalid mode
  28. Const S_SERDSH = -11        ' Invalid shape
  29. Const S_SERDPT = -12        ' Invalid pitch
  30. Const S_SERDFQ = -13        ' Invalid frequency
  31. Const S_SERDDR = -14        ' Invalid duration
  32. Const S_SERDSR = -15        ' Invalid source
  33. Const S_SERDST = -16        ' Invalid state
  34.  
  35. Const Q_BUFF_SIZE = 1024    ' Voice Queue size
  36. Const Q_THRESHHOLD = 20     ' Minimum notes before update
  37.  
  38. '
  39. ' Global Variables
  40. '
  41. Dim octave%
  42. Dim tempo%
  43. Dim mode%
  44. Dim length%
  45.