Attribute VB_Name = "TestModule"
'测试项配置
Type ItemConfig
    Msg As String                   '接线提示
    Path As String                  '拓扑路
    
    Sig1Frequency As Double         'F1频率
    Sig2Frequency As Double         'F2频率
    Sig1Target As Double            'F1输入功率
    Sig2Target As Double            'F2输入功率
    
    Sig1Power As Double             '信号源1输出功率
    Sig2Power As Double             '信号源2输出功率
    Sig1Offset As Double            '信号源1校准偏移功率值
    Sig2Offset As Double            '信号源2校准偏移功率值

    PIMType As Integer              '交调阶数
    PIMFrequency As Double          '交调频率
    ReferenceValue As Double        '参考值
    Fixed As Integer                '扫频.固定F1(F2)
    StepValue As Double             '扫频.步径频率值
    StepNumber As Integer           '扫频.扫描点数
    
    PIMValue As Double              '交调功率值（结果）
    StepIndex As Integer            '扫频.项
    PointIndex As Integer           '扫频.项.点
    FinishedFlag As Boolean         '测试完成标志位
End Type

'测试信息配置
Type TestConfig
    ProductSN As String             '序列号
    Operater As String              '工号
    ProductState As String          '测试状态
    Supplier As String              '腔体供应商
    WorkTime As String              '班次
    DataPath As String              '数据保存路径
    ProductName As String           '产品名称
End Type

'仪器设置
Type InstrConfig
    Mode As Integer                 '模式选择：调试模式（Mode=1）、单步扫频（Mode=2）、连续扫频（Mode=3）
    AllStep As Double               '测试项目数
    PA1_Value As Double             '功放1.放大值
    PA2_Value As Double             '功放2.放大值
    Coupler_Value As Double         '耦合器.耦合值
    SpecSpan As Double              '频谱仪.Span
    BW As Double                    '频谱仪.BW
    RefLevel As Double              '频谱仪.Ref Level
    RefLvlOffset As Double          '频谱仪.Ref Lel Offset
    SA_Alias As String              '频谱仪.别名
    PS_Alias As String              '功率计.别名
    Sig1_Alias As String            '信号源1.别名
    Sig2_Alias As String            '信号源2.别名
End Type

Type InstrData
    Sig1SN As String
    Sig2SN As String
    SASN As String
    PCIP As String
End Type

Public MyTestConf As TestConfig     '测试信息配置
Public MyInstrConf As InstrConfig   '测试仪器配置
Public MyItemConf() As ItemConfig   '测试项配置
Public MyInstrData As InstrData     '测试仪器信息

Sub Main()
    If OpenInstrument = False Then Exit Sub '打开仪器
    If Licence = False Then
        MsgBox "权限校验失败！" & Chr(13) & "请先申请软件在该套测试仪器的使用权限！", vbCritical, "Licence"
    Else
        Load TestForm
        TestForm.Show
    End If                                          '权限设置
End Sub

Function Licence() As Boolean
    Dim obj As New PIMCheck
    With MyInstrData
        .Sig1SN = Trim(Sig1_SN)
        .Sig2SN = Trim(Sig2_SN)
        .SASN = Trim(Sa_SN)
        .PCIP = GetIPAddress
        Licence = obj.Validate(Right(.Sig1SN, 10), Right(.Sig2SN, 10), .SASN)
    End With
End Function