Problem mit Midiverarbeitung ( gelöst )

[graffiti]

wer kann mir helfen
ich möchte mit Midi-Kanal 7 (binär 151), Velcity 100
und bei den Noten 80 bis 88, Kanäle vom Tiny2313 schalten,
aber irgendwie wird der Midi-Kanal beim empfangen des Protokolls
verschluckt bzw. überschrieben von Velocity

Im unteren Code sollte eigentlich
Protokoll(1) 151 (Note-on Ch. 7)
Protokoll(2) 80 ....88
Protokoll(3) 100 sein

tatsächlich ist aber Protokoll(1) 100 Velocity, mit Drumcomputer getestet, ändert man Velo geht nichts mehr
Protokoll(2) sind die Noten wie es sich gehört
Protokoll(3) is nichts da

was kann die Ursache sein, das der Note-On Befehl nicht im Protokoll steht
und Velo auf Protokoll(1) geschrieben wird und nicht auf Protokoll(3)

gruß und schonmal Danke Gerhard


das Programm unten funktioniert, aber ohne den Note-on Befehl



$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 31250

Open "COMD.2:31250,8,n,1" For Input As #1
Dim Zeiger As Byte At &HA0
Zeiger = 1
Dim Flag As Byte At &HA1
Dim Adresse As Eram Byte
Dim Adresse_temp As Byte At &HA3
Dim Tempword As Word At &HA5
Adresse_temp = Adresse
Dim Tempbyte As Byte At &HA7
Dim Protokoll(3) As Byte At &HA8

Ddrd = &B11100010
Ddrb = &B11111111

Config Timer0 = Timer , Prescale = 1024
On Timer0 Timer_irq
Stop Timer0

Config Timer1 = Timer , Prescale = 64
On Timer1 Timer_irq2
Disable Timer1
Stop Timer1
Timer1 = 0

Enable Timer0
Enable Interrupts


Do
Tempbyte = Waitkey(#1)
Gosub Zeichenempfang
If Flag = 1 Then
Gosub Protokoll
Flag = 0
Zeiger = 1
End If
Loop



Zeichenempfang:

Protokoll(zeiger) = Tempbyte
If Tempbyte = 0 Then
Zeiger = 1
End If

If Protokoll(1) = 100 Then 'sollte eigentlich 151 sein
If Tempbyte = 0 Then
Flag = 1
End If
Incr Zeiger
Else
Zeiger = 1
Timer0 = 0
Start Timer0
Enable Timer0
End If
Return
End



Timer_irq:
Stop Timer0
Disable Timer0
Zeiger = 1
Return
End

Timer_irq2:
Portb = 0
Portd.6 = 0
Timer1 = 0
Disable Timer1
Stop Timer1
Protokoll(1) = 0
Protokoll(2) = 0
Protokoll(3) = 0
Return
End

Protokoll:

If Protokoll(1) = 100 Then ' sollte eigentlich Protokoll(3) sein
Flag = Protokoll(2)

If Flag = 80 Then
Portd.6 = 1
Elseif Flag = 81 Then
Portb.0 = 1
Elseif Flag = 82 Then
Portb.1 = 1
Elseif Flag = 83 Then
Portb.2 = 1
Elseif Flag = 84 Then
Portb.3 = 1
Elseif Flag = 85 Then
Portb.4 = 1
Elseif Flag = 86 Then
Portb.5 = 1
Elseif Flag = 87 Then
Portb.6 = 1
Elseif Flag = 88 Then
Portb.7 = 1
Elseif Flag = 0 Then
Portb = 0
End If
End If

Protokoll(1) = 0
Protokoll(2) = 0
Protokoll(3) = 0
Timer1 = 53036
Enable Timer1
Start Timer1

Return
End

[graffiti]

diese Erkenntnis könnte evtl auch anderen helfen

die Daten der Kanalkennung werden nicht bei jedem Datenverkehr mitgesendet,
sondern nur bei jedem Wechsel des Kanals

komischerweise sollte das Byte für Kanal 7 - 151 sein ( 1001 0111 )
tatsächlich wird aber 150 vom Akai-Drumcomputer ausgegeben

zu beachten ist, das bei der Auswertung des Kanals, dieser nicht durch eine Note zurückgesetzt wird
also im Code <> 150 funktioniert definitiv nicht
die Noten gehen bis Wert 127
die Kanäle beginnen bei Wert 144

der Code für die Kanalkennung sollte so aussehen
bei einem Zeichenempfang:


if Dateneingang = 150 then
Kanal = 1
end if
if Dateneingang > 128 and < 150 or Dateneingang > 150 then
Kanal = 0
end if

gruß Gerhard