網絡分析儀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


           

運作結果

略，，