Agilent Technologies E5071C Manual page 1294

Simulated Eye Diagram
Overview
This sample program demonstrates how to perform simulated eye
diagram.
Sample Program in Excel VBA (VISA-COM)
Global variables
Dim rm As VisaComLib.ResourceManager
Dim ENATDR As VisaComLib.FormattedIO488
Dim NumDmy As Integer
Open
Sub OpenInstrument()
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:F22").ClearContents
MsgBox "E5071C-TDR is opened.", vbOKOnly
Exit Sub
errorhandler:
MsgBox Err.Description, vbExclamation, "Error Occurred", Err.HelpFile, Err.HelpContext
End Sub
Setup
Sub setup()
On Error GoTo errorhandler
With ENATDR
'Preset the ENA
.WriteString ":SYST:PRES"
.WriteString "*OPC?"
Programming
1521