Keysight E4990A - Page 296

E4990A Help
286
' Search type: peak
Ana.WriteString ":CALC1:MARK1:FUNC:TYPE PEAK", True
' Set peak excursion
Ana.WriteString ":CALC1:MARK1:FUNC:PEXC " & Str(Excursion), True
' Peak Polarity: Positive
Ana.WriteString ":CALC1:MARK1:FUNC:PPOL POS", True
' Execute search
Ana.WriteString ":CALC1:MARK1:FUNC:EXEC", True
' Call ErrorCheck
' Read marker stimulus value
Ana.WriteString ":CALC1:MARK1:X?", True
Freq = Ana.ReadNumber
' Read marker value
Ana.WriteString ":CALC1:MARK1:Y?", True
Resp = Ana.ReadList
Cells(6, 2).Value = Val(Freq)
' Display real part of result.
Cells(6, 3).Value = Resp(0)
'
' Example of All Peak Search
Ana.WriteString ":CALC1:FUNC:DOM ON", True
Ana.WriteString ":CALC1:FUNC:DOM:STAR 900E6", True
Ana.WriteString ":CALC1:FUNC:DOM:STOP 1E9", True
' Search type: all peak
Ana.WriteString ":CALC1:FUNC:TYPE APEAK", True
' Set peak excursion
Ana.WriteString ":CALC1:FUNC:PEXC " & Str(Excursion), True
' Peak Polarity: positive
Ana.WriteString ":CALC1:FUNC:PPOL POS", True
' Execute search
Ana.WriteString ":CALC1:FUNC:EXEC", True
Ana.WriteString "*OPC?", True
Dummy = Ana.ReadNumber
Call ErrorCheck
' Read value
Ana.WriteString ":CALC1:FUNC:POIN?", True
Poin = Ana.ReadNumber