Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1128

38
Sample Programs
ata.
ssage.
ErrorHandler:
End Sub
1128
Call ivprintf(id, ":SYSTem:ERRor? STRing" + vbLf) ' Query any errors d
Call ivscanf(id, "%200t", strErrVal)
While Val(strErrVal) <> 0
strOut = strOut + "INST Error: " + strErrVal
Call ivprintf(id, ":SYSTem:ERRor? STRing" + vbLf) ' Request error me
Call ivscanf(id, "%200t", strErrVal)
Wend
If Not strOut = "" Then
MsgBox strOut, vbExclamation, "INST Error Messages"
Call iflush(id, I_BUF_READ Or I_BUF_WRITE)
End If
Exit Sub
MsgBox "*** Error : " + Error, vbExclamation
End
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
' Read: Errnum,"Error String".
' End if find: 0,"No Error".
' Read error message.