MIDI and USB Keyboard!

[Lost User]

I think the solution is somewhere in these lines of code:

Dim DataByte1 = (dwParam1 And &HFF00) >> 8
m.PlayMIDINote(DataByte1, 127)

If i leave like that, when i press the key of my MIDI Controller the note plays and when i unpress it it plays again! But if i set it like this:

Dim DataByte1 = (dwParam1) >> 8
m.PlayMIDINote(DataByte1, 127)

It only plays when i unpress the key.... Well.... it is the opposite of what i need...i need it to play when i press and silent when i unpress!!

[Lost User]

Well...do you have any tip? Thanks you!

[Sascha Lefevre]

In the code you linked a note gets played by a mouse left click. You say you play notes by pressing keys but I don't see any of that in your code. Can you show the code that handles key presses?

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Lost User]

The keys i say are the keys from my piano MIDI keyboard (hardware piano keyboard)!... Not from PC´s keyboard!!! This is all the code i have now....plus the clsMIDI module:

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,  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, D

[Sascha Lefevre]

Alienoiz wrote:

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

Alright :laugh: Please post the contents of your TextBox1 after pressing and releasing a single key.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Sascha Lefevre]

No - not for a single key but for two different keys please, in sequence.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Lost User]

i am not understanding : (((( can you set an example?... i guess the textbox1 is not affecting the MIDI playing!!! What is making the play its the "m.playMIDINote" function!!! The textbox1 is just for showing the data that is being sent from the MIDI Keyboard into the PC!

[Sascha Lefevre]

Alienoiz wrote:

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

Yes and I want to see that

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Lost User]

ouch..i am sorry..i understood something else.. here...00 00 00 appears when i select the MIDI keyboard from combobox1..next is the data from 3 followed keys: 00 00 00 90 30 36 80 30 00 90 31 38 80 31 00 90 32 22 80 32 00

[Sascha Lefevre]

OK - try this:

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 the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Lost User]

i understand the code..yes..but it is not working! : (

[Sascha Lefevre]

You need to go into more detail with problem descriptions. "Not working" is not helping me understand. Does it not do anything any more or still the same problem as before or what?

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Lost User]

sorry..everything works except the sound ... no sound!!

[Lost User]

if i set it like this:

If Status <> 90 Then

it seems to work...the 90/80 might not be the "correct" value!

[Sascha Lefevre]

I missed that you formatted the output as hexadecimal. Change that line to:

If Status = 144 Then

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Lost User]

OOOOOOOOKKKKKKK..seems good..A LOT OF THANKS!

[Lost User]

i am encountering this issue..i do not know where to put the

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

code.... i tried several ways, but when i load the app, it doesnt updades..only after a manual update it plays ok! Basically when i load the app..the duration is infinite!!

[Lost User]

It looks like something gets stuck..i overpassed the problem by adding this:

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

to the form´s load event!!

[Sascha Lefevre]

I have an idea how to fix that but I'm leaving for a vacation trip until Monday. I'll get back to you then.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

[Lost User]

OK..thanks..later then!