YOKOGAWA WT210

13-26 IM 760401-01E
GPIBError:
Call DisplayGPIBError(sts, msg)
GpibHarmonics = 1
Exit Function
Readdata:
sts = ilrsp(Dev, spr) 'Serial Poll
If (sts < 0) Then
GoTo GPIBError
End If
If ((spr And &H41) <> &H41) Then
cnt = cnt - 1
Return
End If
'Read out numerical data till END
msg = "OD" + term
sts = ilwrt(Dev, msg, Len(msg))
If (sts < 0) Then
GoTo GPIBError
End If
List1.AddItem "Measurement - " + CStr(cnt)
List1.ListIndex = List1.ListIndex + 1
Do While qrytemp <> "END"
qrytemp = Space$(200)
sts = ilrd(Dev, qrytemp, Len(qrytemp))
If (sts < 0) Then
GoTo GPIBError
End If
qrytemp = Left(qrytemp, InStr(qrytemp, term) - 2)
If (qrytemp = "END") Then
Exit Do
End If
List1.AddItem qrytemp
List1.ListIndex = List1.ListIndex + 1
Loop
Dummy = DoEvents()
qrytemp = Space$(200)
List1.AddItem ""
List1.ListIndex = List1.ListIndex + 1
Return
End Function
---------------------------------------------------------------------------------------------------
13.6 Sample Program (Output of Harmonic Measurement Data)