Agilent Technologies E5071C Manual page 1206

Programming
If an error occurs in a VISA function, these lines display the details of the
error and terminate the program.
Function: Limit_Test (Lines 1360 to 1530)
Lines 1420 to 1470
If the absolute value of the read out power calibration data array exceeds
the specified limit value, these lines turn off the power calibration function
and return the value of False. Otherwise, the value of True is returned.
Measurement of power calibration (object name: mdlPowCal)
10| Sub Main()
20|
30| Dim Swp_type As String, File As String
40| Dim Start_p As Double, Stop_p As Double, Cw_freq As Double, Limi t As Double
50| Dim Nop As Long, Pow_rang As Long, Num_avg As Long, Data_size As Long, Buff As Long, Dmy
As Long
60| Dim Corr_data As Variant, Err As Variant
70| Dim Verifier As Boolean
80| Dim FileNo As Integer, I As Integer
90|
100| Swp_type = "POW" 'Sweep type : POWER
110| Nop = 41 'Number of points : 41
120| Pow_rang = 0 'Power range : -20 to +12 dBm
130| Start_p = -20# 'Start power : -20 dBm
140| Stop_p = -10# 'Stop power : -10 dBm
150| Cw_freq = 1000000000# 'CW frequency : 1 GHz
160| Num_avg = 4 'Number of averaging : 4
170| Limit = 10# 'limit for corrected data : 10 dBm
180|
190| '''Presetting the ENA
200| SCPI.SYSTem.PRESet
210|
220| '''Setting GPIB address of the power meter to ENA
230| SCPI.SYSTem.COMMunicate.GPIB.PMETer.address = 13
240|
250| '''Setting measurement conditions
260| SCPI.SENSe(1).SWEep.TYPE = Swp_type
270| SCPI.SENSe(1).SWEep.POINts = Nop
1433