Keysight E4990A - Page 297

Programming
287
' Read stimulus point number
Ana.WriteString ":CALC1:FUNC:DATA?", True
PeakPoint = Ana.ReadList '
j = 0
For i = 1 To Poin
Cells(5 + i, 5).Value = Val(PeakPoint(j))
Cells(5 + i, 6).Value = Val(PeakPoint(j + 1))
j = j + 2
Next i
'
' Example of Multi Peak Search
Ana.WriteString ":CALC1:MARK:FUNC:MULT:TYPE PEAK", True
Ana.WriteString ":CALC1:MARK:FUNC:MULT:PEXC " & Str(Excursion), True
Ana.WriteString ":CALC1:MARK:FUNC:MULT:PPOL POS", True
Ana.WriteString ":CALC1:MARK:FUNC:EXEC", True
Ana.WriteString "*OPC?", True
Dummy = Ana.ReadNumber
Call ErrorCheck
For i = 1 To 9
' Check if marker is active.
Ana.WriteString ":CALC1:MARK" & i & "?", True
Stat = Ana.ReadNumber
If Stat = 1 Then
' Read marker stimulus value
Ana.WriteString ":CALC1:MARK" & i & ":X?", True
Freq = Ana.ReadNumber
' Read marker value
Ana.WriteString ":CALC1:MARK" & i & ":Y?", True
Resp = Ana.ReadList
Cells(5 + i, 8).Value = Val(Freq)
Cells(5 + i, 9).Value = Resp(0)
End If
Next i
Ana.IO.Close
'
End Sub