Agilent Technologies E5071C Manual page 1207

E5071C
280| SCPI.Source(1).POWer.ATTenuation.DATA = Pow_rang
290| SCPI.Source(1).POWer.STARt = Start_p
300| SCPI.Source(1).POWer.STOP = Stop_p
310| SCPI.SENSe(1).FREQuency.CW = Cw_freq
320|
330| '''Performing a calibration in the power meter
340| Buff = MsgBox("Do you perform zeroing and calibrating the power sensor?", vbYesNo, "Power
meter calibration")
350| If Buff = vbYes Then
360| Control_PowerMeter
370| End If
380|
390| Meas_Start:
400| '''Connecting the power sensor to the port 1 in the ENA
410| SCPI.IEEE4882.CLS
420| MsgBox "Set the power sensor connected to the port 1 in the ENA.", vbOKOnly, "Power meter
calibration"
430|
440| '''Performing power calibration measurement
450| SCPI.Source(1).POWer.PORT(1).CORRection.COLLect.AVERage.count = Num_avg
460| SCPI.Source(1).POWer.PORT(1).CORRection.COLLect.ACQuire = "ASEN "
470| Dmy = SCPI.IEEE4882.OPC
480|
490| '''Error handling at power meter calibration
500| Err = SCPI.SYSTem.Error
510| If Err(0) = 0 Then
520| Corr_data = SCPI.Source(1).POWer.PORT(1).CORRection.DATA
530| Verifier = Limit_Test(Nop, Limit, Corr_data)
540| If Verifier = False Then
550| Buff = MsgBox("Do you perform the power meter calibration me asurement again?", vbYesNo,
"Power meter calibration")
560| If Buff = vbYes Then GoTo Meas_Start
570| If Buff = vbNo Then GoTo Prog_Stop
580| End If
590| MsgBox "Power meter calibration measurement is complete.", vbO KOnly, "Power meter calibration"
600|
610| Else
620| MsgBox "Error: " & Err(1)
1434