Omega CYD211 User Manual page 47

Table 4-3. Visual Basic Serial Interface Program (Continued)
frmSerial.MSComm1.Output = strCommand & Term '
If InStr(strCommand, "?") <> 0 Then
While (ZeroCount < 20) And (strHold <> Chr$(10)) 'Wait for response
If frmSerial.MSComm1.InBufferCount = 0 Then
frmSerial.Timer1.Enabled = True
Do
DoEvents
Loop Until frmSerial.Timer1.Enabled = False
ZeroCount = ZeroCount + 1
Else
ZeroCount = 0
strHold = frmSerial.MSComm1.Input 'Read in one character
strReturn = strReturn + strHold
End If
Wend
If strReturn <> "" Then
strReturn = Mid(strReturn, 1, InStr(strReturn, Term) - 1) 'Strip terminators
Else
strReturn = "No Response"
End If
frmSerial.txtResponse.Text = strReturn
form
strHold = ""
ZeroCount = 0
End If
Loop
End Sub
Private Sub Timer1_Timer()
frmSerial.Timer1.Enabled = False
End Sub
Remote Operation
Omega Model CYD211 User's Manual
Send command to instrument
'Check to see if query
'Add 1 to timeout if no character
'Wait for 10 millisecond timer
'Timeout at 2 seconds
'Reset timeout for each character
'Add next character to string
'Get characters until terminators
'Check if string empty
'Send No Response
'Put response in textbox on main
'Reset holding string
'Reset timeout counter
'Routine to handle Timer interrupt
'Turn off timer
4-9