Visual Basic

Imports System.Runtime.InteropServices

Public Class Form1
    Dim m As New clsMIDI
    Dim hMidiIn As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillInstrumentCombo()

        If midiInGetNumDevs() = 0 Then
            MsgBox("No MIDI devices connected!")
        End If

        Dim InCaps As New MIDIINCAPS
        Dim DevCnt As Integer

        For DevCnt = 0 To (midiInGetNumDevs - 1)
            midiInGetDevCaps(DevCnt, InCaps, Len(InCaps))
            ComboBox1.Items.Add(InCaps.szPname)
        Next DevCnt


    End Sub

    Declare Function midiInOpen Lib "winmm.dll" (ByRef lphMidiIn As Integer,
        ByVal uDeviceID As Integer, <MarshalAs(UnmanagedType.FunctionPtr)> ByVal dwCallback As MidiDelegate,
        ByVal dwInstance As Integer, ByVal dwFlags As Integer) As Integer
    Public Delegate Sub MidiDelegate(ByVal MidiInHandle As Int32, ByVal wMsg As Int32, ByVal Instance As Int32, ByVal wParam As Int32, ByVal lParam As Int32)
    Public ptrCallback As New MidiDelegate(AddressOf MidiInProc)

    Public Delegate Sub DisplayDataDelegate(wParam)

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        midiInStop(hMidiIn)
        midiInReset(hMidiIn)
        midiInClose(hMidiIn)
        Dim DeviceID As Integer = ComboBox1.SelectedIndex
        midiInOpen(hMidiIn, DeviceID, ptrCallback, 0, CALLBACK_FUNCTION Or MIDI_IO_STATUS)
        midiInStart(hMidiIn)
        Dim duration = CInt(cboduration.Text)
        m.NoteDuration = duration
    End Sub



    Function MidiInProc(ByVal MidiInHandle As Int32, ByVal wMsg As Int32, ByVal Instance As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Integer
        TextBox1.Invoke(New DisplayDataDelegate(AddressOf DisplayData), New Object() {wParam})
        Dim DataByte3 = (wParam And &HFF00) >> 8
        m.PlayMIDINote(DataByte3, 127)
    End Function

    Private Sub DisplayData(wParam)
        Dim StatusByte As Byte
        Dim DataByte1 As Byte
        Dim DataByte2 As Byte
        StatusByte = (wParam And &HFF)
        DataByte1 = (wParam And &HFF00) >> 8
        DataByte2 = (wParam And &HFF0000) >> 16
        TextBox1.AppendText(String.Format("{0:X2} {1:X2} {2:X2}{3}", StatusByte, DataByte1, DataByte2, vbCrLf))
    End Sub

    Private Sub FillInstrumentCombo()
        For i = 0 To 121
            cboinstruments.Items.Add(Instrument.GMInstrumentNames(i))
        Next
        cboinstruments.SelectedIndex = 0
    End Sub

    Private Sub cboInstruments_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboinstruments.SelectedIndexChanged
        m.CurrentInstrument = cboinstruments.Text
    End Sub

    Private Sub hsbVolume_ValueChanged(sender As Object, e As EventArgs) Handles hsbvolume.ValueChanged
        m.Volume = hsbvolume.Value
    End Sub

    Private Sub cboduration_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboduration.SelectedIndexChanged
        Dim duration = CInt(cboduration.Text)
        m.NoteDuration = duration
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        midiInStop(hMidiIn)
        midiInReset(hMidiIn)
        midiInClose(hMidiIn)
        m.STOPAllMIDINotes()
        End
    End Sub

    Private Sub Button2_MouseDown(sender As Object, e As MouseEventArgs) Handles Button2.MouseDown
        m.PlayMIDINote(60, 127)
    End Sub

    Private Sub Button2_MouseUp(sender As Object, e As MouseEventArgs) Handles Button2.MouseUp
        m.STOPMIDINote(60)
    End Sub
End Class

Function MidiInProc(ByVal MidiInHandle As Int32, ByVal wMsg As Int32, ByVal Instance As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Integer
    TextBox1.Invoke(New DisplayDataDelegate(AddressOf DisplayData), New Object() {wParam})
    Dim DataByte3 = (wParam And &HFF00) >> 8
    m.PlayMIDINote(DataByte3, 127)
End Function

Function MidiInProc(ByVal MidiInHandle As Int32, ByVal wMsg As Int32, ByVal Instance As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Integer
    TextBox1.Invoke(New DisplayDataDelegate(AddressOf DisplayData), New Object() {wParam})
    Dim DataByte3 = (wParam) >> 8
    m.PlayMIDINote(DataByte3, 127)
End Function

Alienoiz wrote:

The keys i say are the keys from my piano MIDI keyboard (hardware piano keyboard)!... Not from PC´s keyboard!!!

Alienoiz wrote:

The textbox1 is just for showing the data that is being sent from the MIDI Keyboard into the PC!

Function MidiInProc(ByVal MidiInHandle As Int32, ByVal wMsg As Int32, ByVal Instance As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Integer
    Dim Status As Byte
    Dim Note As Byte
    Dim Velocity As Byte
    TextBox1.Invoke(New DisplayDataDelegate(AddressOf DisplayData), New Object() {wParam})
    Status = (wParam And &HFF)
    If Status = 90 Then
        Note = (wParam And &HFF00) >> 8
        Velocity = (wParam And &HFF0000) >> 16
        m.PlayMIDINote(Note, Velocity)
    End If
End Function

If Status <> 90 Then

If Status = 144 Then

Dim duration = CInt(cboduration.Text)
m.NoteDuration = duration

m.PlayMIDINote(0, 0)
       m.STOPMIDINote(0)

l Worksheets("GTB AUDIT"), "GTB", wb