Agilent Technologies E5071C Manual page 1303

E5071C
' ENA- Set active channel at channel 1
.WriteString ":DISP:WIND1:ACT"
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
'
With ENATDR
' TDR- Single Trigger
.WriteString ":TRIG:SING"
' TDR- Wait for measurement end
.WriteString "*OPC?"
NumDmy = .ReadNumber
' TDR- Autoscale
.WriteString ":DISP:ATR:SCAL:AUTO"
' *OPC? for checking the process finish
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
'
' Read TDR data (Channel1) - TDR Data should be read through ENA.
'
With ENA
' Query Number of Test Points
.WriteString ":SENS1:SWE:POIN?"
Nop = .ReadNumber
ReDim TimeData(Nop - 1)
ReDim Impedance(Nop * 2 - 1)
' Get the data for X axis.
.WriteString ":CALC1:SEL:DATA:XAX?"
TimeData() = .ReadList(ASCIIType_R8, ",")
' Select the trace 1.
.WriteString ":CALC1:PAR1:SEL"
' Get the data for Y axis for active trace.
.WriteString ":CALC1:DATA:FDAT?"
Impedance() = .ReadList(ASCIIType_R8, ",")
' Get limit line test result
1530