home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Matt_Playe176515722004.psc / FFT / mixer / WaveIn.bas < prev   
BASIC Source File  |  2004-07-02  |  2KB  |  60 lines
  1. Attribute VB_Name = "Module2"
  2. ' THis module contains all of the WAVE declares and constants.
  3. ' Author: Matt Gillmore (SCO_STINKS@YAHOO.com)
  4.  
  5. Option Explicit
  6.  
  7. Type WaveFormatEx
  8.     FormatTag As Integer
  9.     Channels As Integer
  10.     SamplesPerSec As Long
  11.     AvgBytesPerSec As Long
  12.     BlockAlign As Integer
  13.     BitsPerSample As Integer
  14.     ExtraDataSize As Integer
  15. End Type
  16.  
  17. Type WaveHdr
  18.     lpData As Long
  19.     dwBufferLength As Long
  20.     dwBytesRecorded As Long
  21.     dwUser As Long
  22.     dwFlags As Long
  23.     dwLoops As Long
  24.     lpNext As Long
  25.     reserved As Long
  26. End Type
  27.  
  28. Type Stereo
  29.     L As Integer
  30.     R As Integer
  31. End Type
  32.  
  33. Type FFTStereo
  34.     L As Single
  35.     R As Single
  36. End Type
  37.  
  38. Type WavBuf
  39.     Hdr As WaveHdr
  40.     Arr(1023) As Stereo '23 msec (43Hz and 4 kB Size)
  41.     FFT(1023) As FFTStereo
  42. End Type
  43.  
  44. Type WaveInCaps
  45.     ManufacturerID As Integer      'wMid
  46.     ProductID As Integer       'wPid
  47.     DriverVersion As Long       'MMVERSIONS vDriverVersion
  48.     ProductName(31) As Byte 'szPname[MAXPNAMELEN]
  49.     Formats As Long
  50.     Channels As Integer
  51.     reserved As Integer
  52. End Type
  53.  
  54. Public Const WAVE_INVALIDFORMAT = &H0&                 '/* invalid format */
  55. Public Const WAVE_FORMAT_1M08 = &H1&                   '/* 11.025 kHz, Mono,   8-bit
  56. Public Const WAVE_FORMAT_1S08 = &H2&                   '/* 11.025 kHz, Stereo, 8-bit
  57. Public Const WAVE_FORMAT_1M16 = &H4&                   '/* 11.025 kHz, Mono,   16-bit
  58. Public Const WAVE_FORMAT_1S16 = &H8&                   '/* 11.025 kHz, Stereo, 16-bit
  59. Public Const WAVE_FORMAT_2M08 = &H10&                  '/* 22.0Q16-bit
  60. Public Const WAVE_FORMAT_    E