Hallo, ich habe nun mal folgendes ausprobiert. Ich wollte die 3 Bytes hintereinander Lesen, und beckomme auch werte rein, aber recht durcheinander. Wenn ich keine taste drücke, erhalte ich 3 mal 254 ????Muß ich das noch irgendwie Syncronisieren ? Wenn ja wie ?


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

Dim I(3) As Byte
Cls

Do

I(1) = Udr
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)

Loop