Agilent Technologies E5071C Manual page 969

E5071C
Reading/Writing Error Coefficient
Overview
•
Sample Program in Excel VBA
•
Sample Program in HT Basic
•
Other topics about Sample Programs
Overview
This sample program reads/writes the error coefficient.
This program will set measurement conditions and perform full 2-port
calibration, preset the E5071C with the read error coefficient to be written,
and then again read the error coefficient.
The error coefficient read from the E5071C will be displayed in a
•
graph.
Sample Program in Excel VBA
Sub Err_Term_Click()
Dim defrm As Long
Dim vi As Long
Dim Ch As String
Dim CalKit As Integer
Dim Port(2) As String
Dim Result As String * 10
Dim tNop As Long
Dim Respons As String
Dim Stimulus As String
Dim ErrTerm As String
Const TimeOutTime = 40000 'timeout time.
Const Cal85032F = 4
Ch = Cells(2, 6)
Port(1) = Cells(4, 6)
Port(2) = Cells(5, 6)
Respons = Cells(6, 6)
Stimulus = Cells(7, 6)
ErrTerm = Cells(8, 6)
CalKit = Cal85032F
1196
'Session to Default Resource Manager
'Session to instrument
'cal kit number
'Select channel
'Sets the select port 1.
'Sets the select port 2.
'Sets the respons port.
'Sets the stimulus port.
'Sets the error term.
'Set cal kit (85032F)