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!