RS232 mit VBA mit timeout auslesen

[Christof Kluß]

Hallo,

ich benutzt zum Auslesen der seriellen Schnittstelle den Quelltext unter
http://dev.emcelettronica.com/serial-port-communication-excel-vba

Ich fragen den Port mittels Polling ab. Die Zeichenkette, die ich vom
Port auslese hat jedoch keine feste Länge. Ich müsste also den Port so
lange zeichenweise auslesen, bis z.B. eine Sekunde lang nichts mehr
ankommt. Wir würdet ihr das machen? Schematisch wäre es etwas in
folgender Art

Public Sub PollCom()
...
Do
lngStatus = CommRead(1, strData, 1)
buffer = buffer & strData
...
Loop Until outoftime

Application.OnTime Now + TimeValue("00:00:01"), "'PollCom'"
End Sub

Gruß
Christof