luigi67
06-02-2013, 10:15
ciao
sto scrivendo uno script in .vbs per interfacciarmi con midiox e recuperare i dati in input da un file midi.
Ottengo i seguenti risultati
esempio:
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
la funzione che uso per recuperare i dati è msgStr = mox.GetMidiInput()
codice di esempio da documentazione midiox
Example:
msgStr = mox.GetMidiInput()
If msgStr <> "" Then
A = Split( msgStr, ",", -1, vbTextCompare )
Tstamp = Int(A(0))
port = Int(A(1))
stat = Int(A(2))
data1 = Int(A(3))
data2 = Int(A(4))
If stat = &hF0 Then
strSysEx = mox.GetSysExInput()
mox.SendSysExString strSysEx
End If
End If
Io non li separo. Ma mi interessa capire a quali messaggi si riferiscono questi numeri. (Mi interessa capire principalmente se sono control change o program change, ma se possibile anche distinguere tutti gli altri eventi note off pich bend ecc)
Grazie!
sto scrivendo uno script in .vbs per interfacciarmi con midiox e recuperare i dati in input da un file midi.
Ottengo i seguenti risultati
esempio:
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
la funzione che uso per recuperare i dati è msgStr = mox.GetMidiInput()
codice di esempio da documentazione midiox
Example:
msgStr = mox.GetMidiInput()
If msgStr <> "" Then
A = Split( msgStr, ",", -1, vbTextCompare )
Tstamp = Int(A(0))
port = Int(A(1))
stat = Int(A(2))
data1 = Int(A(3))
data2 = Int(A(4))
If stat = &hF0 Then
strSysEx = mox.GetSysExInput()
mox.SendSysExString strSysEx
End If
End If
Io non li separo. Ma mi interessa capire a quali messaggi si riferiscono questi numeri. (Mi interessa capire principalmente se sono control change o program change, ma se possibile anche distinguere tutti gli altri eventi note off pich bend ecc)
Grazie!