GW Instek GSP-827 Programming Manual - Manual (Page 17)

Copyright 2003 GOODWILL INSTRUMENT CO., LTD.
End If
MSComm1.Output = Trim(QueryStr) & Chr(13)
Q = ReadCOM
Q = Trim(Replace(Q, Chr(13), " ", 1)) 'Replace CR with space
If InStr(1, Q, "err") <> 0 Then
ErrStr = Q
SendQuery = Q
Else
ErrStr = ""
SendQuery = Q
End If
End Function
'========================= Read the data of comport buffer ===============================================
Public Function ReadCOM() As String
Dim Tout As Boolean
Dim ST As Double
rdBuffer = ""
Tout = False
ST = Timer
If MSComm1.InBufferCount = 0 Then 'Delay for 50 ms if there is no response
Do
Delay 50
If Timer - ST > 10 Then 'Set 10 seconds for Time Out
Tout = True
ErrStr = "Time Out"
Else
ErrStr = ""
End If
Loop Until MSComm1.InBufferCount > 0 Or Tout
End If
Do
rdBuffer = rdBuffer & MSComm1.Input
If Timer - ST > 10 Then 'Set 10 seconds for Time Out
Tout = True
ErrStr = "Time Out"
Else
ErrStr = ""