Wie kann ich mit Microsoft Comm Coltrol 6.0 Daten über Com 1 / 2 #Daten senden und empfangen?

Felix Kröger

PS: Anhand eines Quelltextes kann ich mir den Rest dann denken.

Hm also ich hab das in Verwendung für Barcodescanner die an der com-schnittstelle hängen.
Einfach ein commControl einfügen und dann gibts für dieses Control das Ereignis onComm da kannst du dann die empfangenen daten auslesen:

Geht in etwa so:


Private Sub commControl_OnComm()
Static buffer As String
Dim i

i = 0

If commControl.CommEvent = comEvReceive Then
buffer = buffer & Replace(commControl.Input, Chr(10), "")

i = InStr(1, buffer, Chr(13))

If i > 0 Then
ProcessBarcode Left$(buffer, i - 1)
End If
End If
End Sub

Daten schreiben hab ich noch nie gebraucht aber ich schätze mal daß es über commControl.Output geht:

in etwa so: commcontrol.Output = "test" & vbCr

mfg
supergreg