网络分析仪VB编程

本脚本程序功能：实现选择性随中心频点的变化而变化，此处选择性固定为10%

实现思路：
主要分为一下几步：
1、不断刷新获取中心频率点
2、对获取到的中心频率点，计算出±10%对应的两个点
3、mark出这两个点
说明：需要mark的有三个点，此处默认mark1为max峰值点，mark2为-10%点，mark3为+10%点。
mark1需要提前设定好。

Option Explicit On
Private Sub UserMenue_OnPress(ByVal id As Long)
    If id = 1 Then
        Do While (1)
            Dim MarkOne As Variant
            Dim MarkTwo As Long
            Dim MarkThree As Long
            Dim miracle As Variant

            miracle= SCPI.CALCulate(1).SELected.MARKer(1).BWIDth.DATA
            MarkOne = miracle(1)

            MarkTwo = CDbl(MarkOne) * CDbl(0.9)
            MarkThree = CDbl(MarkOne) * CDbl(1.1)

            SCPI.CALCulate(1).SELected.MARKer(2).ACTive
            SCPI.CALCulate(1).SELected.MARKer(3).ACTive

            SCPI.CALCulate(1).SELected.MARKer(2) = MarkTwo
            SCPI.CALCulate(1).SELected.MARKer(3) = MarkThree

        Loop
    End If
End Sub

运行结果
略，，