Agilent Technologies E5071C Manual page 1196

If solt is 3, executes the ECal command that performs full 3-port
calibration on port Ana_port of channel Ch.
Line 1600
If solt is 4, executes the ECal command that performs full 4-port
calibration on port Ana_port of channel Ch.
Line 1630
Sets the return value of ECal_solt to 0.
Lines 1670 to 1740
Define a runtime error handler.
Lines 780 to 810: For the E5091A whose ID is 1, these lines set the port
assigned to port 1 to Port1(Ch-1), the port assigned to port 2 to Port2(Ch-
1), the Port assigned to port 3 to Port3(Ch-1), and the port assigned to
port 4 to Port4(Ch-1).
Line 1670: Retrieves the error number and error message from the error
queue.
Line 1680: Displays the error message.
Line 1700: When the Retry button is clicked, the program disables the
error handler routine and then returns to the connection part and repeats
ECal.
Lines 1720 to 1730: When the Cancel button is clicked, the program sets
the return value of ECal_solt to the error number and disables the error
handler routine.
Sample Program
Measurement of FEM (object name: mdlFemMeas)
10| Sub Main()
20|
30| Dim Port1(3) As String, Port2(3) As String
40| Dim Port3(3) As String, Port4(3) As String
50| Dim Trc(3) As String, Fsim(3) As Boolean, Dev(3) As String
60| Dim Tpl(3) As Variant, Ttl(3) As String, Inp_char As String
70| Dim Freq_star(3) As Double, Freq_stop(3) As Double
80| Dim CLines(3) As Long, Nop(3) As Long, N_tr(3) As Long
90| Dim Ch As Long, Res As Long, Buff As Long, Dmy As Long
100| Dim AnaPort As Variant
110| '
120| ' E5091A Setup
130| '
Programming
1423