PureBoard

Code: Alles auswählen

EnableExplicit

Macro MIDIKeyMessage(Status, Channel, key, Velocity)
  ((Velocity << 16) | (key << 8) | (Status << 4) | (Channel - 1))
EndMacro

Macro MIDIInstrumentMessage(Channel, Instrument)
  (((Instrument - 1) << 8) | (%1100 << 4) | (Channel - 1))
EndMacro

Define iNumDev.i, around.i, moc.MIDIOUTCAPS, Instrument.i, Result.i, hmo.i,t,k,v

iNumDev = midiOutGetNumDevs_()
For around = 0 To iNumDev - 1
  midiOutGetDevCaps_(around, moc, SizeOf(MIDIOUTCAPS))
  Debug " " + Str(around) + " " + PeekS(@moc\szPname[0], #MAXPNAMELEN)
Next

Result = midiOutOpen_(@hmo,1, #Null, #Null, #CALLBACK_NULL)

If Result = #MMSYSERR_NOERROR
     midiOutShortMsg_(hmo, MIDIInstrumentMessage(10, 1))
      Delay(500)
     midiOutShortMsg_(hmo, MIDIKeyMessage(%1001,10, 4, 0))
      Delay(500)
   Result = midiOutClose_(hmo)
Else
  Debug "midiOutOpen Error: " + Str(Result)
EndIf

Code: Alles auswählen

#MIDIRequ_InSet = 2 
#MIDIRequ_OutSet = 1 
OutDevice.l=1
InDevice.l=0
MIDIResult=3
InfoOut.MIDIOUTCAPS  

Structure MIDIData 
  Channel.b 
  Note.b 
  Velocity.b 
  Null.b 
EndStructure 

Procedure MidiInProc(hMidiIn.l, wMsg.l, dwInstance.l, dwParam1.l, dwParam2.l) 
 Protected Status.l, OnOf.l, NoteNr.l, Velocity.l 
  Select wMsg 
   Case #MM_MIM_DATA 
    Status=dwParam1 & $FF
    key1=(dwParam1 >>  8) & $FF  
    key2=(dwParam1 >> 16) & $FF 
    key3=dwParam1 & $F          
    key4=dwParam2
    SetGadgetText(11,Str(Status))
    SetGadgetText(12,Str(key1))
    SetGadgetText(13,Str(key2))
    SetGadgetText(14,Str(key3))
    SetGadgetText(15,Str(key4))
   EndSelect 
EndProcedure 

If MIDIResult & #MIDIRequ_InSet 
  hMidiIn.l 
  If midiInOpen_(@hMidiIn, InDevice, @MidiInProc(), 0, #CALLBACK_FUNCTION) = #MMSYSERR_NOERROR 
    If midiInStart_(hMidiIn) = #MMSYSERR_NOERROR  
    EndIf 
  EndIf 
EndIf 

If hMidiIn And hMidiOut 
  If midiConnect_(hMidiIn, hMidiOut, 0) = 0 
  EndIf 
EndIf 

main:
OpenWindow(0,0,0,260,90,"",#PB_Window_ScreenCentered)
TextGadget(1, 10,10,40,20,"Status")
TextGadget(2, 60,10,40,20,"Key1")
TextGadget(3,110,10,40,20,"Key2")
TextGadget(4,160,10,40,20,"Key3")
TextGadget(5,210,10,40,20,"Key4")
ButtonGadget(7,10,60,80,20,"EXIT")
StringGadget(11, 10,30,40,20,"",#PB_Text_Right)
StringGadget(12, 60,30,40,20,"",#PB_Text_Right)
StringGadget(13,110,30,40,20,"",#PB_Text_Right)
StringGadget(14,160,30,40,20,"",#PB_Text_Right)
StringGadget(15,210,30,40,20,"",#PB_Text_Right)

Repeat
 Delay(1)

 Event=WindowEvent()
 Select Event 
  Case #PB_Event_Gadget 
   Gadget=EventGadget()
   Select Gadget
    Case 7
     midiDisconnect_(hMidiIn, hMidiOut, 0) 
     While midiInClose_(hMidiIn) = #MIDIERR_STILLPLAYING : Wend 
     While midiOutClose_(hMidiOut) = #MIDIERR_STILLPLAYING : Wend 
    End
    
   EndSelect
 EndSelect
ForEver