Technical data

Sample Programs 35
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1047
Call ivprintf(id, ":SYSTem:ERRor? STRing" + vbLf) ' Query any errors d
ata.
Call ivscanf(id, "%200t", strErrVal) ' Read: Errnum,"Error String".
While Val(strErrVal) <> 0 ' End if find: 0,"No Error".
strOut = strOut + "INST Error: " + strErrVal
Call ivprintf(id, ":SYSTem:ERRor? STRing" + vbLf) ' Request error me
ssage.
Call ivscanf(id, "%200t", strErrVal) ' Read error message.
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
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Sub