Agilent Technologies E5071C Manual page 1290

TDR/TDT Measurement
Overview
This sample program demonstrates how to perform TDR/TDT setup.
Sample Program in Excel VBA (VISA-COM)
Global variables
Dim rm As VisaComLib.ResourceManager
Dim ENATDR As VisaComLib.FormattedIO488
Dim NumDmy As Integer
TDR-TDT Measurement
Sub TDRTDTMeasure()
On Error GoTo errorhandler
Set rm = New VisaComLib.ResourceManager
Set ENATDR = New VisaComLib.FormattedIO488
' TDR address is not necessary to change.
Set ENATDR.IO = rm.Open("TCPIP0::localhost::inst0::INSTR")
ENATDR.IO.Timeout = 50000
' Clear Excel Sheet Cells
Range("F5:F5").ClearContents
With ENATDR
'Preset the ENA
.WriteString ":SYST:PRES"
'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 & Loss)
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"
Programming
1517