Hallo Ronny,
mit dem Config Serialin=Buffered verwendet Bascom automatisch den URXC Interrupt. Obwohl du keine der Subs anspringst, könnte dies trotzdem dein Print unterbrechen.
Warum machst du überhaupt das Einlesen mit Buffered? Bei 4800 baud könntest du die Zeichen in Ruhe empfangen und in den Pausen weiterverarbeiten und senden.
Probier doch mal sowas:
Damit sollte jedes empfangene Zeichen direkt an den PC weitergeleitet werden.Code:Dim Got_some As Byte Dim Byte_received As Byte On URXC urxc_isr 'kommentiere die Config Serialin Zeile aus Enable URXC Open "COMB.0:115200,8,N,1" For Output As #1 Do If Got_some = 1 Then Got_some = 0 Print #1, Chr(Byte_received) End If Loop End URXC_isr: Byte_received = UDR Got_some = 1 Return
Alternativ könntest du auch ganz auf den Interrupt verzichten, z.B. so:
Code:Do If IsCharWaiting() = 1 Then Byte_received = UDR Print #1, Chr(Byte_received) End If Loop







Zitieren

Lesezeichen