Specifications

Chapter 11 207
Error Handling
Example Program for Error Handling
11. Error Handling
150 SCPI.Output "CALC:AVER:COUN " & CStr(swp_count)
160 SCPI.Output "CALC:AVER ON"
170
180 SCPI.Output "TRIG:SOUR INT"
190 SCPI.Output "INIT:CONT OFF"
200 SCPI.Output "ABOR"
210
220 swp_bool = SCPI.Query("CALC:AVER?")
230 If swp_bool = 1 Then SCPI.Output "CALC:AVER:CLE"
240
250 bool = SingleMeasure
260 If bool = 0 Then MsgBox ("Sweep Aborted")
270
280 Set Err.Evnt = Nothing
290
300 End Sub
1000 Public WithEvents Evnt As E4991ALib.Application
2000 Private Sub Evnt_Unlocked()
2010
2020 MsgBox "Error: PLL Unlock" & vbCrLf & vbCrLf & "Program
interruption", vbExclamation, "E4991A Internal Error"
2030 End
2040
2050 End Sub
3000 Private Sub Evnt_DcBiasOverload()
3010
3020 MsgBox "Error: Dc bias overload" & vbCrLf & vbCrLf &
"Program interruption", vbExclamation, "E4991A Internal Error"
3030 End
3040
3050 End Sub
4000 Private Sub Evnt_RfOverload()
4010
4020 MsgBox "Error: RF overload" & vbCrLf & vbCrLf & "Program
interruption", vbExclamation, "E4991A Internal Error"
4030 End
4040
4050 End Sub