Click here to Skip to main content
15,903,679 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre11-Dec-17 4:40
professionalSascha Lefèvre11-Dec-17 4:40 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 4:48
User 989707411-Dec-17 4:48 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre11-Dec-17 4:56
professionalSascha Lefèvre11-Dec-17 4:56 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre11-Dec-17 4:58
professionalSascha Lefèvre11-Dec-17 4:58 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 5:04
User 989707411-Dec-17 5:04 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre11-Dec-17 5:09
professionalSascha Lefèvre11-Dec-17 5:09 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 5:18
User 989707411-Dec-17 5:18 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre11-Dec-17 5:39
professionalSascha Lefèvre11-Dec-17 5:39 
OK - try this:
VB
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

GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 5:55
User 989707411-Dec-17 5:55 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre11-Dec-17 6:01
professionalSascha Lefèvre11-Dec-17 6:01 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 6:05
User 989707411-Dec-17 6:05 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 6:12
User 989707411-Dec-17 6:12 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre11-Dec-17 6:20
professionalSascha Lefèvre11-Dec-17 6:20 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 6:22
User 989707411-Dec-17 6:22 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 8:33
User 989707411-Dec-17 8:33 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre13-Dec-17 8:08
professionalSascha Lefèvre13-Dec-17 8:08 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707413-Dec-17 8:42
User 989707413-Dec-17 8:42 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707411-Dec-17 9:41
User 989707411-Dec-17 9:41 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707412-Nov-17 8:30
User 989707412-Nov-17 8:30 
AnswerRe: MIDI and USB Keyboard! Pin
Jaroslav Mitrovic28-Dec-17 16:39
Jaroslav Mitrovic28-Dec-17 16:39 
QuestionLinq GroupBy Name using some sort of logic of names in common Pin
jkirkerx9-Nov-17 9:08
professionaljkirkerx9-Nov-17 9:08 
AnswerRe: Linq GroupBy Name using some sort of logic of names in common Pin
Mycroft Holmes9-Nov-17 13:16
professionalMycroft Holmes9-Nov-17 13:16 
GeneralRe: Linq GroupBy Name using some sort of logic of names in common Pin
jkirkerx10-Nov-17 6:22
professionaljkirkerx10-Nov-17 6:22 
GeneralRe: Linq GroupBy Name using some sort of logic of names in common Pin
Mycroft Holmes10-Nov-17 13:14
professionalMycroft Holmes10-Nov-17 13:14 
Questionerror 9 Pin
Member 135117618-Nov-17 22:04
Member 135117618-Nov-17 22:04 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.