Achso!
Als ich den Titel gelesen hab, hab ich mir schon gedacht "Na viel Spaß beim Algo coden" *g*
Dann nim Bascom, wenn du damit nicht viel Arbeit haben willst! Da gibts für alles fertig Routinen usw.
Ich hab mir mal was gecodet, dass er alle Daten vom Puffer des seriellen Ports holen soll und in ne Variable zusammensetzen soll. Das ganze wird dann anschließend wieder an den PC geschickt:
Code:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 56700
Dim A As String * 120
Dim I As Word
Declare Sub Do_rx
Do
If Ucsra.rxc = 1 Then 'Wenn diese Variable 1 ist, liegen Daten im Puufer
Do_rx 'Subfunktion aufrufen
Print A 'Dan ganzen Kram ausgeben, den die Subfunktion Do_rx zurückgab
A = "" 'Variableninhalt löschen
End If
Loop
Sub Do_rx
For I = 1 To 40000 'Schleife basteln, dass auch garantier jedes Zeichen vom Buffer gelesen werden (40000 Zeichen werden wohl nie da anliegen +g* Und wenn doch, ist der RAM voll ;) )
If Ucsra.rxc = 1 Then A = A + Chr(udr) 'Hier wird die Variable zusammengebastelt. Udr ist jeweils immer ein Zeichen, dass im Puffer liegt. Da die Zeichen im Hexadezimalen Zahlensystem im Puffer liegen, müssen die Zahlen mit dem Befehl Chr() in ASCII Zeichen umgewandelt werden
Next
End Sub
Wenn du fragn hast, poste es hier rein
Lesezeichen