transmit.vb

广西百色247台电视发射机监控源代码.已经过实践

        Public dLeft As Double            '''左声道输入电平  单位：%
        Public dRight As Double           '''右声道输入电平  单位：%
        Public dTemp As Double            '''温度     
        Public dFrequency As Double       '''频率            单位：MHz
        Public dDeviation As Double       '''频偏      
        Public dFwdPower As Double        '''输出功率        单位：W
        Public dRflPower As Double        '''反射功率        单位：W
        '*****************************************************
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''GME激励器－C、D型
    Public Structure GMEInspiritUnit
        '''new-GME
        Public iHighVswr As Integer          '''整机过载           0－正常，1－过载
        Public iAGC_PA As Integer            '''工作于大环AGC      0－关闭，1－启动
        Public iSaveMode As Integer          '''工作于安全模式     0－关闭，1－启动
        Public iMGC As Integer               '''工作于手动         0－关闭，1－启动
        Public iAGC_EX As Integer            '''工作于小环         0－关闭，1－启动
        Public iEX As Integer                '''工作/待机          0－待机，1－工作
        Public iVideo As Integer             '''无视频             0－有，1－无
        Public iLO_Lock As Integer           '''本振失锁           0－正常，1－失锁
        Public dP_EX As Double               '''输出功率（W）
        Public dA_DEV As Double              '''音频频偏
        Public dV_MOD As Double              '''视频调制度
        Public dV_AGC As Double              '''AGC电压
        Public dI_1WPA As Double             '''1W小功放电流
    End Structure
    ''''''''''''电源及冷却系统-吉兆调频、电视发射机
    Public Structure PSsystemUnit
        '*****************************************************1-true,0-false
        Public iPS As Integer           '''总电源开
        Public iPSI_EQU As Integer      '''功放电源不均流
        Public iPA_PS As Integer        '''功放电源开
        Public iFANS As Integer         '''风机故障
        Public iFAN As Integer          '''风机开
        Public iSTART_TR As Integer     '''启动中
        Public iSHUT_TR As Integer      '''关机中
        Public iFRA As Integer          '''电控系统工作

        Public dPS1 As Double           '''电源电流1
        Public dPS2 As Double           '''电源电流2
        Public dPS3 As Double           '''电源电流3
        Public dPS4 As Double           '''电源电流4
        Public dPS5 As Double           '''电源电流5
        Public dPS6 As Double           '''电源电流6
        Public dPS7 As Double           '''电源电流7
        Public dPS8 As Double           '''电源电流8
        '*****************************************************
    End Structure
    ''''''''''''开关控制单元
    Public Structure SwitchUnit
        Public bRemote As Boolean       '''遥控/手动      true-遥控，false-手动
        Public bInspirit As Boolean     '''激励工作状态   true-主激励，false-备激励
        Public bLoad As Boolean         '''负载开关       true-负载开，false-负载关
        Public bSwitch As Boolean       '''同轴切换开关   true-负载位，false-天线位
        Public bFzls As Boolean         '''负载联锁开关   true-负载联锁开，false-负载联锁关
        Public bTzls As Boolean         '''同轴联锁开关   true-同轴联锁开，false-同轴联锁关 
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''N+1控制单元
    Public Structure Nand1SwitchUnit
        '''0－主，1－备,2－同轴开关损坏，3－发射机故障
        Public iPort1 As Integer           '''端口1状态
        Public iPort2 As Integer           '''端口2状态
        Public iPort3 As Integer           '''端口3状态
        Public iPort4 As Integer           '''端口4状态
        Public iPort5 As Integer           '''端口5状态
        Public iPort6 As Integer           '''端口6状态
        Public iPort7 As Integer           '''端口7状态
        Public iPort8 As Integer           '''端口8状态
        Public istate As Integer           '''N＋1切换状态 0－可以切换，1－备机已占用，2－对应同轴开关坏，3－发射机故障
    End Structure
    ''''''''''''信号源切换控制器
    Public Structure SignalSwitchEqu
        Public iPort1 As Integer           '''端口1信号有无（0－无，1－有）
        Public iPort2 As Integer           '''端口2信号有无（0－无，1－有）
        Public iPort3 As Integer           '''端口3信号有无（0－无，1－有）
        Public iPort4 As Integer           '''端口4信号有无（0－无，1－有）
    End Structure
    ''''''''''''防非信号接收机
    Public Structure RecepDeviceEqu
        Public strAffairTime As String         '''事件时间
        Public strAffairType As String         '''事件类型
        Public dSafetyGrade As Integer         '''安全等级
        Public dReIntensity As Integer         '''参考信号强度
        Public dIntensity As Integer           '''信号强度
        Public dReQuality As Integer           '''参考信号质量
        Public dQuality As Integer             '''信号质量
    End Structure
    ''''''''''''KL－S采集器
    Public Structure CollectionEqu
        Public dAinPort() As Double
        'Public dAinPort1 As Double              '''模拟量端口1数据
        'Public dAinPort2 As Double              '''模拟量端口2数据
        'Public dAinPort3 As Double               '''模拟量端口3数据
        'Public dAinPort4 As Double              '''模拟量端口4数据
        'Public dAinPort5 As Double              '''模拟量端口5数据
        'Public dAinPort6 As Double               '''模拟量端口6数据
        'Public dAinPort7 As Double             '''模拟量端口7数据
        'Public dAinPort8 As Double              '''模拟量端口8数据

        Public bDinPort() As Boolean
        'Public bDinPort1 As Boolean              '''开关量端口1状态 false－正常，true－报警
        'Public bDinPort2 As Boolean              '''开关量端口2状态
        'Public bDinPort3 As Boolean              '''开关量端口3状态
        'Public bDinPort4 As Boolean              '''开关量端口4状态
        'Public bDinPort5 As Boolean              '''开关量端口5状态
        'Public bDinPort6 As Boolean              '''开关量端口6状态
        'Public bDinPort7 As Boolean              '''开关量端口7状态
        'Public bDinPort8 As Boolean              '''开关量端口8状态
        'Public bDinPort9 As Boolean              '''开关量端口9状态
        'Public bDinPort10 As Boolean             '''开关量端口10状态
        'Public bDinPort11 As Boolean             '''开关量端口11状态
        'Public bDinPort12 As Boolean             '''开关量端口12状态
        'Public bDinPort13 As Boolean             '''开关量端口13状态
        'Public bDinPort14 As Boolean             '''开关量端口14状态
        'Public bDinPort15 As Boolean             '''开关量端口15状态
        'Public bDinPort16 As Boolean             '''开关量端口16状态
    End Structure
    ''''''''''''柴油发电机
    Public Structure DieselmotorEqu
        Public strRecordTime As String           '''记录时间
        Public dFixPower As Double               '''额定功率（W）
        Public dStandbyPower As Double           '''备用功率（W）
        Public dFixVol As Double                 '''额定电压（V）
        Public dFixCur As Double                 '''额定电流（A）
        Public dOil As Double                    '''油耗（g/kw.h）
    End Structure
    'Public Structure ParaLowOrHighUnit
    '    '''整机参数
    '    Public tranPo() As LowOrHigh             '''''入射功率
    '    Public tranPr() As LowOrHigh             '''''反射功率
    '    Public tranVswr() As LowOrHigh           '''''驻波比
    '    Public tranCurrent() As LowOrHigh        '''''总电流
    '    Public tranVoltage() As LowOrHigh        '''''总电压
    '    Public tranBalancePo() As LowOrHigh      '''''平衡功率
    '    Public tranTemp() As LowOrHigh           '''''整机温度
    '    '''攻放插件参数
    '    Public unitPo() As LowOrHigh             '''''输出功率
    '    Public unitInPo() As LowOrHigh           '''''输入功率 单位：瓦
    '    Public unitPr() As LowOrHigh             '''''反射功率
    '    Public unitBalancePo() As LowOrHigh      '''''平衡功率
    '    Public unitVol() As LowOrHigh            '''''电压
    '    Public unitTemp() As LowOrHigh           '''''温度
    '    Public unitCurP1() As LowOrHigh          '''''推动电流1
    '    Public unitCurP2() As LowOrHigh          '''''推动电流2
    '    Public unitCur1() As LowOrHigh           '''''电流1
    '    Public unitCur2() As LowOrHigh           '''''电流2
    '    Public unitCur3() As LowOrHigh           '''''电流3
    '    Public unitCur4() As LowOrHigh           '''''电流4
    '    Public unitCur5() As LowOrHigh           '''''电流5
    '    Public unitCur6() As LowOrHigh           '''''电流6
    '    Public unitCur7() As LowOrHigh           '''''电流7
    '    Public unitCur8() As LowOrHigh           '''''电流8
    '    '''激励器参数
    '    Public dFwr() As LowOrHigh               '''''输出功率　单位：ｗ
    '    Public dRflp() As LowOrHigh              '''''反射功率　单位：ｗ
    '    Public dTemp() As LowOrHigh              '''''温度
    '    Public dCur() As LowOrHigh               '''''电流
    '    Public dVol() As LowOrHigh               '''''电压
    '    Public dModulazione() As LowOrHigh       '''''调制度
    '    Public dLeft() As LowOrHigh              '''''左声道输入电平　单位：％
    '    Public dRight() As LowOrHigh             '''''右声道输入电平　单位：％
    '    Public dRideoMod() As LowOrHigh          '''''音频调制度
    '    Public dVideoMod() As LowOrHigh          '''''视频调制度
    '    Public dBan() As LowOrHigh               '''''图像伴音比

    'End Structure
End Namespace