Attribute VB_Name = "OrdinaryVar"
Const IntMax = 32767
Const F_MAX = 1
Const F_MIN = 2
Const F_MAXMIN = 3
Const F_NONE = 4

Public FTP_ServerIP As String
Public FTP_UserName As String
Public FTP_Password As String
'for Templete
Public Excel_Templete As String
Public Excel_TempleteShow As String
Public Excel_Object As Excel.Application
Public Excel_Book As Excel.Workbook
Public Excel_Sheet As Excel.Worksheet
'for Report
Public Excel_Report As String
Public ReportShow As Boolean
Public Report_Object As Excel.Application
Public Report_Book As Workbook
Public Report_Sheet As Worksheet

Public Temp_Book As Excel.Workbook

Dim SendData As Data_Type

Public NetworkAnalyzer As New E5062A

Public DevConf() As New ItemConf
Public DevResult() As New ItemResult
Public DevExcel() As New ExcelInter

Public PCVar() As Variant

Public Enum ClassMeasType
    Meas_Max = 0
    Meas_Min = 1
    Meas_MaxMin = 2
    Meas_Ripple = 3
    Meas_Delay = 4
    Meas_DelayRipple = 5
    Meas_1db = 6
    Save_Mem = 7
    DataDivMem = 8
    Save_Offset = 9
    DataMinusOffset = 10
    Meas_VSWR = 11
    Meas_1dbout = 12
    MessageBox = 13
    Meas_MinusExOffset = 14
    'add at 20121205
    SingelSweep = 15
    DataOffsetNODispay = 16
    DaTaThreeOffset = 17
    'xxxx = 18
    Fixed_Value = 19
    Meas_Point = 20
    PointMinusOffset = 21
    '快速测试通道
    '添加
    Meas_FastDelay = 30
    Meas_FastDelayRipple = 31
    Meas_FastVSWR = 32
    Meas_DelayPoint = 33
    
    'add at 20121206
    '将PC变量数据写入到Excel的指定位置
    WriteVarToExcel = 101
    '将Excel的数据读入到变量中+结果中，并判断High和Low
    LoadToWrIndex = 102
    '将Excel的数据读入到变量中，供PC使用
    LoadToVar = 103
    '测试Excel某位是否是1
    TestExcelData = 104
    '删除Excel某位
    DelExcelData = 105
    'ROMWrite
    ROMWrite = 106
    'ROMRead
    ROMRead = 107
    
End Enum

'for report
Type TestInformation
    Source As String
    FunctionCode As String
    Matrix_Switch As String
    Product As String
    Expiration As Integer
    SNLong As Integer
    SNShort As Integer
    SNDel As Integer
    SNSave As Integer
    SNCheck() As String
    TestStartTime As Variant
    TestStopTime As Variant
End Type
Public TestInfor As TestInformation


'FTP Construction
Type FTPConfig
    
    ftpServer As String
    ftpPassWord As String
    FTPIniPath As String
    FTPStatePath As String
    FTPModuelPath As String
    FTPTempFold As String
    FTPIniBack As String
    
End Type

'data server
Type Server_Data
    ServerIP As String
    ServerUser As String
    ServerPassword As String
End Type
Public ServerData As Server_Data

'Com Construction
Type SerialPort
    ComLocation As String
    ComPara As String
End Type


'Delay time setting
Type Delay_Time
    'for rom
    ROMDelay As Long
    'for command
    CommandDelay As Long
    'for Excel except rom
    ProcessDelay As Long
    'for program that you define type
    ProgramDelay As Long
End Type
Public DelayTime As Delay_Time

Type SectionInformation
    Count As Integer
    Section() As Integer
    Message() As String
End Type
Public SectionInf As SectionInformation