OnTime + WithEvents vertragen sich nicht
28.09.2020 17:27:21
Brian
mit dem OstroSoft Winsock Component (http://www.ostrosoft.com/oswinsck.asp) erfasse ich Daten von einem Datenlogger. Dazu ist folgender Eintrag nötig:
Dim WithEvents wsTCP As OSWINSCK.Winsock
Nach erfolgreicher Initialisierung, etc. wird eine Funktion RequestData() aufgerufen, die die Auslese-Parameter der Funktion
wsTCP.SendData Parameters
zur Verfügung stellt und sie aufruft, wonach in der
Sub wsTCP_OnDataArrival(ByVal nByteAnz As Long)
die Daten ausgegeben werden.
Das funktioniert auch alles einwandfrei. Nun würde ich gerne mit OnTime die Funktion RequestData() in gleichmäßigen Abständen (z.B. 5-s-Abstand) aufrufen und die Daten in einem Excel-Sheet ablegen.
Das scheitert aber leider daran, daß die Funktion RequestData() in einem Modul stehen muß, was aber nicht möglich ist, da der Aufruf von wsTCP.SendData Parameters nicht in einem Modul stehen darf, da wsTCP dann nicht sichtbar ist.
Kennt jemand einen Workaround oder eine Lösung für dieses Problem?
Liebe Grüße und schon mal vielen Dank!