Agilent Technologies E5071C Manual page 1301

E5071C
With ENATDR
'
' TDR- Execute Deskew
FrmDeSkew.Show ' Call DeSkew subroutine in Form
'
' TDR- Execute Auto DUT Length
FrmDUTLength.Show ' Call DUT Length subroutine in From
'
' TDR- Set rise time for Traces 1 and 2
.WriteString ":CALC:TRAC1:TIME:STEP:RTIM:THR T2_8"
.WriteString ":CALC:TRAC1:TIME:STEP:RTIM:DATA 50e-12"
.WriteString ":CALC:TRAC2:TIME:STEP:RTIM:THR T2_8"
.WriteString ":CALC:TRAC2:TIME:STEP:RTIM:DATA 50e-12"
'
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
'
' Advance mode setting (such as Limit Test) for channel 1 (TDR) should be setup through ENA
'
With ENA
' ENA- Limit Test ON
.WriteString ":CALC1:LIM ON"
' ENA- Limit Line On
.WriteString ":CALC1:LIM:DISP ON"
' ENA- Edit Limit Line
.WriteString ":CALC1:LIM:DATA 2,1,0,1e-9,105,105,2,0,1e-9,75,75"
'
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
MsgBox "Setup for Ch1 is done.", vbOKOnly
Exit Sub
1528