Problem mit Buffered serialin

[hululu]

Habe ein problem mit dem Empfangen von einem String.

Ich bekomme immer nur zwei zeichen. das heisst er liest nur 2Bytes und der rest ist irgendwo verschwunden.

habe folgendes drin aber es funktioniert nicht.

Config serialin = buffered, size = 20

er hat trotzdem immer nur 2 zeichen im Buffer, obwohl ich ihm ja platz für 20 gebe. brauch übrigens maximal 5zeichen = 5Byte

habe ich noch etwas vergessen??

[PicNick]

Naja, wie liest du die Daten ? Lass gucken !

[hululu]

Config Serialin = Buffered , Size = 20                      
Enable Interrupts
.

.

If Ischarwaiting() <> 0 Then 
Zeichen = Inkey()
   If Zeichen = 10 Then
         B = 1
         Buf = ""
   Else
      If B = 1 Then
         If Zeichen = 13 Then
            Buf = Buf + Chr(0)
            Eingang = Val(buf)
            B = 0
            Print "eingang" ; Eingang;
         Else
               Buf = Buf + Chr(zeichen)
         End If
      End If
   End If
End If

mit inkey() lese ich aus, aber ich habe immer nur 2 zeichen auch wenn ich mehr sende
ich denke irgdenwie akzeptiert er meine Buffergrösse nicht, weil ich kann dort angeben was ich will er hat immer nur 2Byte


edit:
kann es möglicherweise daran liegen?
The M32 USART may not work with Bascom Buffered support as the Mega32
has a 2 byte FIFO buffer. I have never used it , but maybe another group
member have tested it

[Gento]

Ohne Buffer mit timeout ein Auszug was läuft:

 
Dim Char_vergleich(20) As Byte
Dim Char_da(20) As Byte
Const Timeoutfaktor=100            '100mSek



 Charzaehler = 0                       'Prüfen auf Startstring und IO / Startstring einlesen
  Timeout = 0
  Do
    Hole_char = Ischarwaiting()                             'RS232 Port auf Daten abfragen
    If Hole_char = 0 Then                                   'keine Daten da
                       Waitms 1
                       Incr Timeout
                     Else                                   'Daten da
                       Timeout = 0
                       Hole_char = Inkey()                  'Byte auslesen
                       Incr Charzaehler                     'Feldzähler hoch
                       Char_da(charzaehler) = Hole_char
                       If Char_da(charzaehler) <> Char_vergleich(charzaehler) Then Charzaehler = 100       'Vergleiche Byte im Startsting
   End If
   If Timeout > Timeoutfaktor Then Exit Do                  'Timeout abfragen
 Loop Until Charzaehler > 8                'Schleife bis alle 8 Byte vom Startstring ausgelesen oder Timeout
 If Charzaehler <> 9 Then
                      Datenuebergabe_rs232 = Fehler_im_startstring       '10
                      Exit Sub
                     End If

Gento