Agilent Technologies InfiniiVision 5000 Series Programmer's Manual page 625

End Function
Private Function DoQueryIEEEBlock_Bytes(query As String) As Long
ErrorHandler:
End Function
Private Sub CheckForInstrumentErrors(strCmdOrQuery As String)
ErrorHandler:
End Sub
Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
On Error GoTo ErrorHandler
' Send query.
Call ivprintf(id, query + vbLf)
' Read definite-length block bytes.
Call ifread(id, byteArray(), ByteArraySize, vbNull, retCount)
' retCount is now actual number of bytes returned by read.
CheckForInstrumentErrors query
DoQueryIEEEBlock_Bytes = retCount
Exit Function
MsgBox "*** Error : " + Error, vbExclamation
End
On Error GoTo ErrorHandler
Dim strErrVal As String * 200
Dim strOut As String
Do
Call ivprintf(id, "SYSTem:ERRor?" + vbLf) ' Request error message.
Call ivscanf(id, "%200t", strErrVal) ' Read: Errno,"Error String".
If Val(strErrVal) <> 0 Then
strOut = strOut + "INST Error: " + RTrim(strErrVal) + vbLf
End If
Loop While Val(strErrVal) <> 0
If Not strOut = "" Then
MsgBox strOut, vbExclamation, "INST Error Messages, " + _
strCmdOrQuery
Call iflush(id, I_BUF_DISCARD_READ Or I_BUF_DISCARD_WRITE)
End If
Exit Sub
MsgBox "*** Error: " + Error, vbExclamation
Programming Examples
' End if find: 0,"No Error".
12
625