Visual basic και midi in

[metal]

Έχει ασχοληθεί κανείς με το θέμα? Έχω φτιαξει ενα relay board και το software που το ελεγχει στην Visual Basic αλλά θέλω να το συγχρονίσω μεσω midi με το cubase.

[gerasimos]

Πολύ ενδιαφέρον. Το relay board τι κάνει ακριβώς;

 

Δες εδώ:

 

http://www.harmony-central.com/MIDI/dev.html

 

http://home.modemss.brisnet.org.au/~mlevoi/midi.html

 

http://support.microsoft.com/?scid=%2fsupport%2fkb%2farticles%2fq181%2f3%2f60.asp

 

 

Γεράσιμος

[metal]

το relay board εχει πάνω μερικά relay (διακόπτες που ελέγχονται με ταση 5V) και συνδέεται με την παράλληλη θυρα. Απο κεί και πέρα το ελέγχεις μέσω software και μπορείς να συνδέσεις οποιαδήποτε συσκευή πχ φώτα

[metal]

Δυστυχως δεν μπορεσα να βγαλω ακρη...

[gerasimos]

Έχεις καταφέρει να λαμβάνεις midi σήματα από την εφαρμογή σου; Γενικά, σε ποιά φάση είσαι και που έχεις κολλήσει;

[metal]

Το μόνο που μου έχει μείνει είναι η λήψη σημάτων midi. Αν μπορεί κάποιος να μου δώσει ετοιμο κώδικα και μετά να τροποποιήσω κατάλληλα θα ήμουν υπόχρεος

[metal]

Τελικά προσπαθησα να χρησιμοποιήσω το Mabry Software, έφτιαξα τον κωδικα αντεγραψα τα dll στο system. Ενα προβλημα υπάρχει μόνο: παρ'ολο οτι στελνω στην συσκευή που εχω επιλεξει σηματα midi η sub που δεχεται τα midi δεν τρεχει. Any suggestions?

 

Ο κώδικας:

Private Sub Command1_Click()

MIDIInput1.DeviceID = 1

MIDIInput1.Action = 1

MIDIInput1.Action = 4

Print MIDIInput1.State

'Print MIDIInput1.HMidiDevice

MIDIInput1.MaxSysexSize = 1000

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

MIDIInput1.Action = 2

End Sub

 

Sub MIDIInput1_Message()

Dim InMessage As Integer

Dim InData1 As Integer

Dim InData2 As Integer

 

Print MIDIInput1.MessageCount, "midi in"

Do While MIDIInput1.MessageCount > 0

 

InMessage = MIDIInput1.Message

InData1 = MIDIInput1.Data1

InData2 = MIDIInput1.Data2

Print InData1

MIDIInput1.Action = MIDIIN_REMOVE

Loop

End Sub

 

Sub Midiiput1_Error()

Print "error"

End Sub