So hi,

hab jetzt folgendes erstellt : (auszug)


Code:
$regfile = "2313def.dat"                                    'AT90S2313
$crystal = 8000000                                          'Quarz 8MHz
$baud = 110

Dim Name As Byte

Config Serialin = Buffered , Size = 20
Enable Interrupts

Reset Ucr.3
Portd.0 = 0                                                 'Rx Port



do

name = Inkey()

If Err = 0 Then
If Name= Chr(001) Then
  xxxxxx
endif
endif

loop
end
Das sind die Kriterien mit denen ich versuche die Seriellen Daten aus dem puffer zu lesen!

Wenn ich aber :

Code:
$regfile = "2313def.dat"                                    'AT90S2313
$crystal = 8000000                                          'Quarz 8MHz

Dim Name As Byte

Open "comd.0:110,8,n,1" For Input As #1


do

name = Inkey(#1)

If Err = 0 Then
If Name= Chr(001) Then
  xxxxxx
endif
endif

loop
end
Nutze klappt es! Woran kann das liegen?

Grüße
Alex