Keysight E4990A - Page 295

Programming
285
Sub PeakSearch_Click()
Range("B6:I30").Clear
Dim Excursion As Double
Dim Freq As Double, Resp As Variant, PeakPoint As Variant
Dim Poin As Long, Stat As Long, Dummy As Long
Excursion = 1
Set ioMgr = New VisaComLib.ResourceManager
Set Ana = New VisaComLib.FormattedIO488
'
'*** Open the instrument.
Set Ana.IO = ioMgr.Open("GPIB0::17::INSTR")
Ana.IO.timeout = 10000
'
' Setup Analyzer
Ana.WriteString ":SYST:PRES", True
Ana.WriteString ":INIT:CONT ON", True
Ana.WriteString ":TRIG:SOUR BUS", True
Ana.WriteString ":SENS1:FREQ:CENT 950E6", True
Ana.WriteString ":SENS1:FREQ:SPAN 200E6", True
Ana.WriteString ":SENS1:SWE:POIN 201", True
Ana.WriteString ":CALC1:PAR1:DEF S21", True
Ana.WriteString ":CALC1:PAR1:SEL", True
' Select trace 1
' Make a Measurement
Ana.WriteString ":TRIG:SING", True
Ana.WriteString "*OPC?", True
' Wait measurement end
Dummy = Ana.ReadNumber
' Auto scale
Ana.WriteString ":DISP:WIND1:TRAC1:Y:AUTO", True
' Example of Marker Peak Search
Ana.WriteString ":CALC1:MARK:FUNC:DOM ON", True
Ana.WriteString ":CALC1:MARK:FUNC:DOM:STAR 900E6", True
Ana.WriteString ":CALC1:MARK:FUNC:DOM:STOP 1E9", True