Public Delegate Sub waveCallbackProc(ByVal hwi As Int32, ByVal uMsg As UInt32, ByVal dwInstance As Int32, ByRef dwParam1 As WAVEHDR, ByVal dwparam2 As Int32)ĭim pCallback As waveCallbackProc = AddressOf waveInProc 'Define the signature of our callback procedure. 'This array stores the address in memory of each buffer.ĭim bufferAddress(NUMBER_OF_BUFFERS - 1) As Integer 'This array will store a modified version of the bytes array above. 'This array of bytes will store the current chunk of wave data. 'Store the handle to the waveIn device we are using. 'One will be processed while another is being filled.ĭim waveHeader(NUMBER_OF_BUFFERS - 1) As WAVEHDR 'Create a number of WAVEHDRs for n-tuple buffering. 'Reference to the graphics object created by the window. 'draw directly to the window, which causes heinous flickering. 'Store a reference to a bitmap object for drawing, so that we don't Dim szpName() As Char 'String of length 32 'API Declarations - Google for information on these if you need to.ĭeclare Function waveInOpen Lib 'winmm.dll' Alias 'waveInOpen' (ByRef hWaveIn As Int32, ByVal uDeviceID As Int32, ByRef lpFormat As WAVEFORMATEX, ByVal dwCallback As waveCallbackProc, ByVal dwInstance As UInt32, ByVal dwFlags As Int32) As Int32ĭeclare Function waveInStart Lib 'winmm.dll' Alias 'waveInStart' (ByVal hWaveIn As Int32) As Int32ĭeclare Function waveInStop Lib 'winmm.dll' Alias 'waveInStop' (ByVal hWaveIn As Int32) As Int32ĭeclare Function waveInClose Lib 'winmm.dll' Alias 'waveInClose' (ByVal hWaveIn As Int32) As Int32ĭeclare Function waveInReset Lib 'winmm.dll' (ByVal hWaveIn As Integer) As Integerĭeclare Function waveInAddBuffer Lib 'winmm.dll' Alias 'waveInAddBuffer' (ByVal hWaveIn As Int32, ByRef lpWaveInHdr As WAVEHDR, ByVal uSize As UInt32) As Int32ĭeclare Function waveInGetNumDevs Lib 'winmm.dll' Alias 'waveInGetNumDevs' () As Integerĭeclare Function waveInGetDevCaps Lib 'winmm.dll' Alias 'waveInGetDevCapsA' (ByVal uDeviceID As Integer, ByRef lpCaps As WAVEINCAPS, ByVal uSize As Integer) As Integerĭeclare Function waveInPrepareHeader Lib 'winmm.dll' Alias 'waveInPrepareHeader' (ByVal hWaveIn As Int32, ByRef lpWaveInHdr As WAVEHDR, ByVal uSize As UInt32) As Int32ĭeclare Function GlobalAlloc Lib 'kernel32' (ByVal wFlags As Integer, ByVal dwBytes As Integer) As Integerĭeclare Function GlobalLock Lib 'kernel32' (ByVal addr As Integer) As Integerĭeclare Function GlobalFree Lib 'kernel32' (ByVal addr As Integer) As Integerĭeclare Function waveInGetErrorText Lib 'winmm.dll' Alias 'waveInGetErrorTextA' (ByVal err As Integer, ByVal lpText As String, ByVal uSize As Integer) As Integerĭeclare Function waveInUnprepareHeader Lib 'winmm.dll' (ByVal hWaveIn As Integer, ByVal lpWaveInHdr As WAVEHDR, ByVal uSize As Integer) As Integer 'This specifies that the type of message sent to the callback 'options include callback event, callback thread, callback window.Ĭonst CALLBACK_FUNCTION As Integer = &H30000 'This specifies that we want to use a callback function. 'This specifies that we want to use the preferred audio device, 'My main source of information is the MSDN. 'This class creates and displays a window which tells you what note is being played

Krypton fabric