Agilent Technologies InfiniiVision 7000A Series Programmer's Manual page 863

Private Sub CheckInstrumentErrors()
ErrorHandler:
End Sub
Private Sub HandleVISAError(session As Long)
Agilent InfiniiVision 7000A Series Oscilloscopes Programmer's Guide
On Error GoTo ErrorHandler
Dim strErrVal As String * 200
Dim strOut As String
err = viVPrintf(vi, ":SYSTem:ERRor?" + vbLf, 0)
If (err <> VI_SUCCESS) Then HandleVISAError vi
err = viVScanf(vi, "%t", strErrVal)
If (err <> VI_SUCCESS) Then HandleVISAError vi
While Val(strErrVal) <> 0
strOut = strOut + "INST Error: " + strErrVal
err = viVPrintf(vi, ":SYSTem:ERRor?" + vbLf, 0)
If (err <> VI_SUCCESS) Then HandleVISAError vi
err = viVScanf(vi, "%t", strErrVal)
If (err <> VI_SUCCESS) Then HandleVISAError vi
Wend
If Not strOut = "" Then
MsgBox strOut, vbExclamation, "INST Error Messages"
err = viFlush(vi, VI_READ_BUF)
If (err <> VI_SUCCESS) Then HandleVISAError vi
err = viFlush(vi, VI_WRITE_BUF)
If (err <> VI_SUCCESS) Then HandleVISAError vi
End If
Exit Sub
MsgBox "*** Error : " + Error, vbExclamation
End
Dim strVisaErr As String * 200
Call viStatusDesc(session, err, strVisaErr)
MsgBox "*** VISA Error : " + strVisaErr, vbExclamation
' If the error is not a warning, close the session.
If err < VI_SUCCESS Then
If session <> 0 Then Call viClose(session)
End
End If
Programming Examples
' Query any errors.
' Read: Errnum,"Error String".
' End if find: 0,"No Error".
' Request error.
' Read error message.
12
863