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