MIDI-OX User Forum - Print Page


    
      
        MIDI-OX User Forum
        (http://www.midiox.com/cgi-bin/yabb/YaBB.pl)
      

        MIDI-OX >> Scripting Questions >> reading data midi vbscript
        
(Message started by: gokuss4 on Feb 6^th, 2013, 8:24am)

Title: reading data midi vbscript
Post by gokuss4 on Feb 6^th, 2013, 8:24am

hello
I'm writing a script. vbs to interface with midiox and retrieve input data from a midi file.
Get the following results

example:

429,0,136,61,0
429,0,135,64,0
429,0,135,57,0
434,0,151,57,90
434,0,151,64,90
434,0,152,61,90
616,0,136,61,0
616,0,135,57,0
616,0,136,52,0
616,0,135,45,0
616,0,133,57,0

the function that is used to retrieve data msgid = mox.GetMidiInput ()

sample code from documentation midiox
Example:

mox.GetMidiInput msgid = ()
If msgid <> "" Then
A = Split (msgid, ",", -1, vbTextCompare)
Tstamp = Int (A (0))
port = Int (A (1))
stat = Int (A (2))
data1 = Int (A (3))
date2 = Int (A (4))
If stat = & HF0 Then
strSysEx = mox.GetSysExInput ()
mox.SendSysExString strSysEx
end If
end If

I do not separate myself. But I want to understand what messages relate these numbers. (I'm mainly interested in understanding if they control change or program change, but if possible also distinguish all other events note off pich bend etc.)
Thank you!

PS. I only execute
mox.GetMidiInput msgid = ()
not all of the extruder then written below in the example
then do not do conversions. I posted the original message example to understand ouput only for that function. thanks