Agilent Technologies E5071C Manual page 1304

.WriteString ":CALC1:LIM:FAIL?"
PassFail = .ReadNumber
k = 0
For i = 0 To Nop - 1
Cells(i + 7, 4) = TimeData(i)
Cells(i + 7, 5) = Impedance(k)
k = k + 2
Next i
Cells(4, 5) = PassFail
.WriteString "*OPC?"
NumDmy = .ReadNumber
End With
'MsgBox "Measurement for Ch1 is done.", vbOKOnly
Exit Sub
errorhandler:
MsgBox Err.Description, vbExclamation, "Error Occurred", Err.HelpFile, Err.HelpContext
End Sub
Setup for Ch2
Sub SetupCh2()
On Error GoTo errorhandler
With ENA
'
' Setup Network measurement(S-Parameter) on channel 2.
'
' ENA- Set Start Frequency
.WriteString ":SENS2:FREQ:STAR 1E9"
' ENA- Set Stop Frequency
.WriteString ":SENS2:FREQ:STOP 3E9"
' ENA- Set IFBW
.WriteString ":SENS2:BAND 1E3"
' ENA- Fixture Simulator ON
Programming
1531