Gw-instek GSP-827 Programming Manual Instrukcja Użytkownika Pobierz pdf (Strona 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 = ""

1 2 ... 12 13 14 15 16 17 18

Komentarze do niniejszej Instrukcji

Brak uwag