Agilent Technologies E5071C Manual page 1295

E5071C
NumDmy = .ReadNumber
'TDR Trigger Hold
.WriteString ":TRIG:MODE HOLD"
' Set DUT Topology to Differential 2-Port
.WriteString ":CALC:DEV DIF2"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Execute Deskew (Deskew)
MsgBox "[Deskew] Disconnect the cables from DUT to make open condition.", vbOKOnly
.WriteString ":SENS:CORR:EXT:AUTO:STAN OPEN"
.WriteString ":SENS:CORR:EXT:AUTO:PORT1 ON"
.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
'Measure DUT Length
MsgBox "Connect the DUT to the cables.", vbOKOnly
.WriteString ":SENS:DLEN:AUTO:IMM"
.WriteString "*OPC?"
NumDmy = .ReadNumber
'Set Rise Time
.WriteString ":CALC:TRAC1:TIME:STEP:RTIM:DATA 35E-12"
'Set Definition
.WriteString ":CALC:TRAC1:TIME:STEP:RTIM:THR T1_9"
'Activate Trace 3
.WriteString ":CALC:ATR:ACT 3"
.WriteString ":TRIG:SING"
.WriteString "*OPC?"
NumDmy = .ReadNumber
MsgBox "Setup is completed.", vbOKOnly
End With
Exit Sub
1522