本脚本程序功能:实现选择性随中心频点的变化而变化,此处选择性固定为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
运行结果
略,,