Agilent Technologies E5071C Manual page 1292

.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"
.WriteString ":CALC:TRAC3:TIME:STEP:RTIM:DATA 35E-12"
.WriteString ":CALC:TRAC5:TIME:STEP:RTIM:DATA 35E-12"
.WriteString ":CALC:TRAC7:TIME:STEP:RTIM:DATA 35E-12"
'Set Definition
.WriteString ":CALC:TRAC1:TIME:STEP:RTIM:THR T1_9"
.WriteString ":CALC:TRAC3:TIME:STEP:RTIM:THR T1_9"
.WriteString ":CALC:TRAC5:TIME:STEP:RTIM:THR T1_9"
.WriteString ":CALC:TRAC7:TIME:STEP:RTIM:THR T1_9"
.WriteString ":TRIG:SING"
.WriteString "*OPC?"
NumDmy = .ReadNumber
'Set Auto Scale for all traces
.WriteString ":DISP:ATR:SCAL:AUTO"
.WriteString "*OPC?"
NumDmy = .ReadNumber
'Read Rise Time
.WriteString ":CALC:TRAC3:TTIM:STAT ON"
.WriteString ":CALC:TRAC3:TTIM:THR T1_9"
.WriteString ":CALC:TRAC3:TTIM:DATA?"
Cells(5, 6) = .ReadNumber
MsgBox "TDT/TDT Measurement Setup is completed.", vbOKOnly
End With
ENATDR.IO.Close
Exit Sub
Programming
1519