Agilent Technologies E5071C Manual page 1296

errorhandler:
MsgBox Err.Description, vbExclamation, "Error Occurred", Err.HelpFile, Err.HelpContext
End Sub
Simulated Eye Diagram
Sub SimEyeDiagram()
Dim EyeResult() As Double
Dim NoR As Integer, i As Integer
On Error GoTo errorhandler
With ENATDR
' Set Bit Pattern Parameters
' Set Type to PRBS
.WriteString ":CALC:EYE:INP:BPAT:TYPE PRBS"
' Set Length
.WriteString ":CALC:EYE:INP:BPAT:LENG 7"
' Set Amplitude
.WriteString ":CALC:EYE:INP:OLEV 200e-3"
' Set Data Rate
.WriteString ":CALC:EYE:INP:RTIM:THR T1_9"
.WriteString "*OPC?"
NumDmy = .ReadNumber
' Execute Draw Eye
.WriteString ":CALC:EYE:STAT ON"
.WriteString ":CALC:EYE:EXEC"
.WriteString "*OPC?"
NumDmy = .ReadNumber
'Read Eye Result
.WriteString ":CALC:EYE:RES:DATA?"
EyeResult() = .ReadList(ASCIIType_R8, ",")
NoR = 18
i = 0
Do While i < NoR
Cells(i + 5, 6) = EyeResult(i)
Programming
1523