NoDataAtPort.Enabled = True Reply_Status = REPLY.NO_REPLY Write_HyperTerm_Style(":FUNC VOLT:DC" & vbLf) 'need a method of getting back here MsgBox("here!")
While (Reply_Status = REPLY.NO_REPLY) TmrNoDataAtPort.Enabled = True Application.DoEvents() End While If (Reply_Status = REPLY.TIMEOUT_REPLY) Then Data_Back = "TIMEOUT" rtbIncoming.Text = "TIMEOUT" Return ElseIf (Reply_Status = REPLY.YES_REPLY) Then Data_Back = myComPort.ReadTo(vbLf) Return If (Data_Back.Substring(0, 1) = Data_Back.Substring(1, 1)) Then Return End If ElseIf (Data_Send.Substring(0, 1) = "E") Then MessageBox.Show("ERROR Code From ATE") '
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)