Agilent Technologies E5071C Manual page 1305

E5071C
.WriteString ":CALC2:FSIM:STAT ON"
' ENA- Set topology at Balance-Balance
.WriteString ":CALC2:FSIM:BAL:DEV BBAL"
' ENA- Assign Phisical Ports
.WriteString ":CALC2:FSIM:BAL:TOP:BBAL 1,2,3,4"
' ENA- Balance-Balance Conversion ON
.WriteString ":CALC2:FSIM:BAL:PAR1:STAT ON"
' ENA- Select Measurement Parameter at Sdd21
.WriteString ":CALC2:FSIM:BAL:PAR1:BBAL SDD21"
'
' ENA- Limit Test ON
.WriteString ":CALC2:LIM ON"
' ENA- Limit Line On
.WriteString ":CALC2:LIM:DISP ON"
' ENA- Edit Limit Table
.WriteString ":CALC2:LIM:DATA 3,2,100e6,1.25e9,-1.5,-5,2,1.25e9,2.5e9,-5,-7.5,2,2.5e9,7.5e9,-
7.5,-25"
'
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
FrmEcal.Show
MsgBox "Setup Ch2 is done.", vbOKOnly
Exit Sub
errorhandler:
MsgBox Err.Description, vbExclamation, "Error Occurred", Err.HelpFile, Err.HelpContext
End Sub
EcalCalibration (This is called from SetupCh2)
Sub EcalCalibration()
With ENA
' ENA- 4 Port Ecal
1532