Probleme mit OnComm-Event

03/01/2011 - 09:28 von Christof Kluß | Report spam
Hallo,

ich möchte, wie in einem anderen Thread bereits angesprochen, über die
serielle Schnittstelle Daten einer Waage auslesen.

Wenn im folgenden Code MsgBox... steht, verhàlt sich alles wie gewünscht.

Wenn jedoch MsgBox auskommentiert ist, dann wird immer eine Zelle
übersprungen (so als wenn OnComm zweimal hintereinander ausgeführt wird,
obwohl es nur ein mal ausgelöst wird)


Private Sub XMCommCRC1_OnComm()
Dim sInput As String
Select Case XMCommCRC1.CommEvent
Case XMCOMM_EV_RECEIVE
sInput = XMCommCRC1.InputData
ActiveCell.Value = Mid(sInput, 10, 15)

'MsgBox sInput

springe_weiter
End Select
End Sub


Könnt ihr mir einen Tipp geben, wie ich es richtig mache?

Gruß
Christof
 

Lesen sie die antworten

#1 Andreas Killer
03/01/2011 - 12:24 | Warnen spam
Am 03.01.2011 09:28, schrieb Christof Kluß:

Könnt ihr mir einen Tipp geben, wie ich es richtig mache?


Naja, meine Glaskugel streikt gerade um herauszufinden was "springe_weiter" macht... probiers so:

Private Sub XMCommCRC1_OnComm()
Dim sInput As String
Select Case XMCommCRC1.CommEvent
Case XMCOMM_EV_RECEIVE
sInput = XMCommCRC1.InputData
ActiveCell.Value = Mid(sInput, 10, 15)
ActiveCell.Offset(1, 0).Select
End Select
End Sub

Andreas.

Ähnliche fragen