Agilent Technologies E5071C Manual page 1291

E5071C
.WriteString ":SENS:CORR:EXT:AUTO:PORT2 ON"
.WriteString ":SENS:CORR:EXT:AUTO:PORT3 ON"
.WriteString ":SENS:CORR:EXT:AUTO:PORT4 ON"
.WriteString ":SENS:CORR:EXT:AUTO:IMM"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Execute Thru Measurement: Connect a Thru between Port 1 and Port 3
MsgBox "Connect a Thru between Port 1 and Port 3.", vbOKOnly
.WriteString ":SENS:CORR:COLL:DLC:THRU TH13"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Execute Thru Measurement: Connect a Thru between Port 2 and Port 4
MsgBox "Connect a Thru between Port 2 and Port 4.", vbOKOnly
.WriteString ":SENS:CORR:COLL:DLC:THRU TH24"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Measure Load: Connect a Load to Port 1
MsgBox "Connect a Load to Port 1.", vbOKOnly
.WriteString ":SENS:CORR:COLL:DLC:LOAD 1"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Measure Load: Connect a Load to Port 2
MsgBox "Connect a Load to Port 2.", vbOKOnly
.WriteString ":SENS:CORR:COLL:DLC:LOAD 2"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Measure Load: Connect a Load to Port 3
MsgBox "Connect a Load to Port 3.", vbOKOnly
.WriteString ":SENS:CORR:COLL:DLC:LOAD 3"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Measure Load: Connect a Load to Port 4
MsgBox "Connect a Load to Port 4.", vbOKOnly
.WriteString ":SENS:CORR:COLL:DLC:LOAD 4"
' Save the result of loss compensation
.WriteString ":SENS:CORR:COLL:DLC:SAVE"
1518