Midi über Uart

[Mr-400-Volt]

Also, ich habe nun folgendes gemacht. Erst mal gerfagt ob etwas kommt, und dann das 8te bit abgefragt, ob es gesetzt ist. Danach die nächsten 2 bytes geholt. Aber irgendwie klappt es nicht richtig..........??????????



$regfile = "m16def.dat"
$crystal = 12000000
$baud = 31250

Dim I(3) As Byte

Cls

Do
If Usr.rxc = 1 Then
I(1) = Udr
If I(1).8 = 1 Then
I(2) = Udr
I(3) = Udr

Locate 1 , 1
Lcd Bin(i(1))
Locate 2 , 1
Lcd I(2)
Locate 3 , 1
Lcd I(3)
End If
End If
Loop
End

[linux_80]

Du musst schon vor jedem Lesen abfragen ob ein neues Zeichen da ist, nicht nur beim ersten mal,
schau Dir halt man den Befehl Inkey() an, dann musst Du nicht jedes Bit per Hand auslesen, Bascom hat doch (fast) alles eingebaut, mehr kann ich auch nicht für Dich tun.
Beschreibung lesen musst Du schon selber !

[Mr-400-Volt]

Also ich komm nicht weiter.......Folgender Code läuft auch nicht.........Durch ersetzen der abfragen mit dem inkey() geht es auch nicht. Ich weiß nicht, wie ich es noch timen soll............Kann mir denn niemand sagen, wie ich zumindest das erste Byte (Statusbyte) richtig einlesen kann ?


$regfile = "m16def.dat"
$crystal = 12000000
$baud = 31250

Dim I(3) As Byte , A As Byte , X As Byte

Cls

X = 0

Do



A = Udr
If A.0 = 1 Then
I(1) = Udr
End If
A = Udr
If A.0 = 1 Then
I(2) = Udr
End If
A = Udr
If A.0 = 1 Then
I(3) = Udr
End If





Locate 1 , 1
Lcd Bin(i(1))
Locate 2 , 1
Lcd I(2)
Locate 3 , 1
Lcd I(3)


Loop