Agilent Technologies E5071C Manual page 1299

E5071C
' TDR address is not necessary to change.
Set ENATDR.IO = rm.Open("TCPIP0::localhost::inst0::INSTR")
' Set time out time for ENATDR at 70 second
ENATDR.IO.Timeout = 70000
' Clear Excel Sheet Cells
Range("D7:H10010").ClearContents
Range("E4:E4").ClearContents
Range("H4:H4").ClearContents
MsgBox "E5071C and E5071C-TDR are opened.", vbOKOnly
Exit Sub
errorhandler:
MsgBox Err.Description, vbExclamation, "Error Occurred", Err.HelpFile, Err.HelpContext
End Sub
Preparation for 2 Channels
Sub Preparation()
On Error GoTo errorhandler
' Note: Must put *OPC? when you change the control between ENA and ENATDR.
With ENA
' ENA- Preset ENA
.WriteString "*RST"
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
With ENATDR
' TDR- Set Diff 2 port as DUT
.WriteString ":CALC:DEV DIF2"
' TDR- Wait Until Topology Setting is finished.
.WriteString "*OPC?"
NumDmy = .ReadNumber
'
' TDR- Trigger Hold
.WriteString ":TRIG:MODE HOLD"
1526