Agilent Technologies E5071C Manual page 1302

errorhandler:
MsgBox Err.Description, vbExclamation, "Error Occurred", Err.HelpFile, Err.HelpContext
End Sub
Deskew (This is called from SetupCh1)
Sub DeSkew()
With ENATDR
' TDR- Execute Descrew
.WriteString ":SENS:CORR:EXT:AUTO:IMM"
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
End Sub
DutLength (This is called from SetupCh1)
Sub DUTLength()
With ENATDR
' TDR- Execute Auto DUT length
.WriteString ":SENS:DLEN:AUTO:IMM"
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
End Sub
Measurement for Channel 1
Sub MeasCh1()
On Error GoTo errorhandler
'
Dim TimeData() As Double, Impedance() As Double
Dim Nop As Integer, PassFail As Integer, i As Integer, k As Integer
'
' Making Measurement for TDR (Channel 1)
With ENA
Programming
1529