Private Sub chkTPCalcActive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTPCalcActive.CheckedChanged
Dim GageConfiguration As String
If TPFormLoaded = True Then
TPFormLoaded = False
Exit Sub
End If
If Me.chkTPCalcActive.Checked = True Then
' If TPCalcSwitchState = True Then
ActivateTPCalculation = True
TPCalcSwitchState = True
GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
serialCOMDiscover.WriteLine(GageConfiguration)
System.Threading.Thread.Sleep(1000)
'ElseIf TPCalcSwitchState = True or Then
'ActivateTPCalculation = False
'GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
'serialCOMDiscover.WriteLine(GageConfiguration)
'System.Threading.Thread.Sleep(1000)
' End If
'TPCalcSwitchState = True
ElseIf Me.chkTPCalcActive.Checked = False Then
ActivateTPCalculation = True
TPCalcSwitchState = True
GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
serialCOMDiscover.WriteLine(GageConfiguration)
System.Threading.Thread.Sleep(1000)
End If
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.