Beste
Ik gebruik onderstaande vba codes in Excel om een com-poort uit te lezen (mscomm). Deze module werkt uitstekend, maar helaas werkt de module met een Timer en geeft dit conflicten met een andere timer in mijn Userform. Nu zou ik graag die timer van de com-poort eruit willen gooien. Maar ik krijg dat niet voor elkaar. Weet iemand hoe ik die timer er kan uitgooien?
Dit is de macro die ik gebruik voor het uitlezen van de com-poort: (RS232 = een MSCOMM toepassing in VBA)
Ik gebruik onderstaande vba codes in Excel om een com-poort uit te lezen (mscomm). Deze module werkt uitstekend, maar helaas werkt de module met een Timer en geeft dit conflicten met een andere timer in mijn Userform. Nu zou ik graag die timer van de com-poort eruit willen gooien. Maar ik krijg dat niet voor elkaar. Weet iemand hoe ik die timer er kan uitgooien?
Dit is de macro die ik gebruik voor het uitlezen van de com-poort: (RS232 = een MSCOMM toepassing in VBA)
Code:
Public intEndsignal As Integer
Sub CommTest()
'macro voor lezen van compoort
Dim commInput
If frmcomm.RS232.InBufferCount > 0 Or intEndsignal = 0 Then
frmcomm.RS232.InputLen = 0
commInput = frmcomm.RS232.Input
Else
Exit Sub
End If
frmcomm.RS232.Output = Chr(5) & Chr(10)
Dim stTime As Long
stTime = Timer
Do While frmcomm.RS232.InBufferCount = 0
DoEvents
If intEndsignal > 0 Then Exit Sub
If Timer > stTime + 10 Then Exit Do
Loop
If frmcomm.RS232.InBufferCount = 0 Then
MsgBox "Time out communicating with device." _
& Chr(13) & "Ensure the device power is on and cable is connected."
Exit Sub
End If
frmcomm.RS232.InputLen = 0
commInput = frmcomm.RS232.Input
AppendText (commInput)
End Sub
Sub AppendText(strText As String)
With frmcomm.txtRead
.SetFocus '//required
.Value = .Value & strText & vbNewLine
.SelStart = Len(.Value)
End With
If frmcomm.txtRead.Value = 101 Then
Run ("startknop") 'de startknop start de timer in mijn userform
End If
End Sub