MIDI- Code richtig?

Hallo,

kann mal bitte jemand diesen Code checken?
Es wird der MIDI- Befehl Note on (Kanal 1; Note: C 2; Vel: 127)
und nach 3 Sek Note off gesendet. Oder besser gesagt soll gesendet werden.
Vieleicht ist der MIDI Befehl falsch...??

Code:

---

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32

$crystal = 16000000
$baud = 31250


Dim Voice As Byte
Dim Cntrnr As Byte
Dim Val As Byte

Dim Voice2 As Byte
Dim Cntrnr2 As Byte
Dim Val2 As Byte


Config Portd.3 = Output

Voice = &B10010000
Cntrnr = &B00111100
Val = &B01111111

Voice2 = &B10000000
Cntrnr2 = &B00111100
Val2 = &B01111111

Open "COMD.3:31250,8,N,1" For Output As #1

Do
Printbin #1 , Voice
Printbin #1 , Cntrnr
Printbin #1 , Val

Wait 3

Printbin #1 , Voice2
Printbin #1 , Cntrnr2
Printbin #1 , Val2

Wait 3

Loop

End

---

Danke!

Die Bytes stimmen. Sonstige Fehlermöglichkeiten:
Crystal-Einstellung stimmt nicht , weil die Fuses nicht passen
(DIN) Stecker verkehrt belegt (4 u.5 vertauscht)
https://www.roboternetz.de/wissen/in...MIDI-Interface
Keyboard (?) nicht auf OMNI oder Kanal 1
Hast du Vergleichsmöglichkeiten ? (PC-MIDI-Sequ. Programm)

hmmm vieleicht sollte ich mit noch mal die Elektronik anschauen...
Stimmen die 220Ohm, oder kann man die weglassen?
Mit meinem Masterkeyboard funktionierts... also am PC liegt es nicht.

Nun, die 220 Ohm sind ein üblicher Vorwiderstand, damit die LED im Optokoppler nicht überlastet wird.