Agilent Technologies E5071C Manual page 964

Call viClose(defrm)
Exit Sub
ReCalibration:
Stat = MsgBox("Do you perform the power meter calibration measurement again?", vbYesNo)
If Stat = vbYes Then
GoTo MeasStart
Else
GoTo ProgEnd
End If
End Sub
Function fnLim(vi As Long, Nop As Long, Limit As Double, Res As Variant) As Boolean
For i = 1 To Nop
If Abs(Res(i - 1)) > Limit Then
Call viVPrintf(vi, "SOUR1:POW:PORT1:CORR OFF" + vbLf, 0)
MsgBox "The corrected data is out of limit!", vbOKOnly
fnLim = False
Exit Function
End If
Next i
fnLim = True
End Function
Sample Program in HT Basic (pow_cal.htb)
10 DIM Swp_type$[11],Inp_char$[9],Buff$[9],Err_mes$[50],File$[20]
20 DIM Corr_data(1:1601)
30 REAL Start_p,Stop_p,Cw_freq,Limit
40 INTEGER Nop,Pow_rang,Num_avg,Err_no,Verifier,Data_size,I
50 CLEAR SCREEN
60 !
70 ASSIGN @Agte507x TO 717
80 !
90 Swp_type$="POW" !Sweep type : POWER
100 Nop=41 !Number of points : 41
110 Pow_rang=0 !Power Range :-20 to +12 dBm
120 Start_p=-2.0E+1 !Start Power :-20 dBm
130 Stop_p=-1.0E+1 !Stop Power :-10 dBm
140 Cw_freq=1.0E+9 !CW frequency : 1 GHz
150 Num_avg=4 !Number of averaging : 4
Programming
1191