transmit.vb

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

'**********************广播电视发射机公共命名空间***************************
'***********修改时间：2007年8月10日
'***********编写人：鲍辉
'***********针对与广西联正达合作的机房远控系统
Imports System.Math
Imports System.String
Imports Microsoft.VisualBasic.Strings
Namespace Transmitter
    ''''''''''''主控单元
    Public Structure MasterUnit
        Public bConnectState As Boolean      '''通讯状态
        Public bDsw As Boolean               '''驻波比过荷
        '******************************************************************
        Public bFlow As Boolean              '''风机状态
        Public bOpenOrClose As Boolean       '''视频保护  false-无视频输入，true－有视频输入
        Public bIO As Boolean                '''缺相保护
        Public bBackupState As Boolean       '''主备激励器  true-备，false-主
        Public bAntenna As Boolean           '''假负载/天线 true-假负载，false-天线
        Public bRemote As Boolean            '''本控/遥控   true-遥控，false-本控
        Public bBalance As Boolean           '''不平衡功率状态new
        Public bOpen As Boolean              '''开机状态new
        Public bInterface As Boolean         '''各接口保护功能new

        Public dPo As Double                 '''总入射功率
        Public dPr As Double                 '''总反射功率
        Public dVswr As Double               '''驻波比
        Public dUnbalacePower1 As Double     '''不平衡功率1new
        Public dUnbalacePower2 As Double     '''不平衡功率2new
        Public dUnbalacePower3 As Double     '''不平衡功率3new
        Public dbalacePower As Double        '''平衡功率new
        Public dVoltage As Double            '''总电压
        Public dCurrent As Double            '''总电流
        Public dTemputer As Double           '''环境温度
        Public dTotaltime As Double          '''工作累计时
        Public strSamplingTime As String     '''取样时间new
        Public iAlarm As Integer             '''告警状态 
        Public bTemp As Boolean              '''过温保护
        '********************************************************************
        Public iVolType As Integer           '''发射机工作电压类型
        Public dPressure As Double           '''气压
        Public iDevStatus As Integer         '''设备状态
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''前级功放 
    Public Structure DriverUnit
        '********************************************************************
        Public bPull As Boolean             '''过流保护false-正常，true-报警
        Public bTemp As Boolean             '''过温保护
        Public bDsw As Boolean              '''过荷保护
        Public bAGCOrMGC As Boolean         '''推动功放的AGC/MGC状态

        Public dOutputPower As Double        '''输出功率
        Public dReflectPower As Double       '''反射功率
        Public dTemputer As Double           '''温度
        Public dCurrent As Double            '''电流
        Public dVoltage As Double            '''电压
        Public dAGCVol As Double             '''AGC电压
        '********************************************************************
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''功放单元
    Public Structure AmplifierUnit
        '********************************************************************
        Public bPull As Boolean             '''过流保护or过载(1,true)
        Public bTemp As Boolean             '''过温保护or过热(1,true)
        Public bDsw As Boolean              '''过荷保护
        Public bPnP As Boolean              '''热插拔new
        Public bOverInspirit As Boolean     '''过激励new(1,true)
        Public bPcbok As Boolean            '''是否插好new(1,ok)
        Public bWork As Boolean             '''工作/待机STBY new(1,work)
        Public bNobal As Boolean            '''不平衡(1,true)
        Public bDcov As Boolean             '''直流过压(1,true)

        Public dInputPower As Double         '''输入功率（W）new
        Public dOutputPower As Double        '''输出功率（W）
        Public dReflectPower As Double       '''反射功率（W）
        Public dRefPower As Double           '''平衡功率new
        Public dUnbalacePower1 As Double     '''不平衡功率1new
        Public dUnbalacePower2 As Double     '''不平衡功率2new
        Public dVswr As Double               '''驻波比
        Public dTemputer As Double           '''模块温度
        Public dTCurrent As Double           '''模块推动电流
        Public dCurrent As Double            '''电流
        Public dVoltage As Double            '''电压
        Public dCurrent1 As Double           '''电流1
        Public dCurrent2 As Double           '''电流2
        Public dCurrent3 As Double           '''电流3
        Public dCurrent4 As Double           '''电流4
        Public dCurrent5 As Double           '''电流5
        Public dCurrent6 As Double           '''电流6
        Public dCurrent7 As Double           '''电流7
        Public dCurrent8 As Double           '''电流8
        Public dDrivePower As Double         '''推动级功率new
        ' Public dDC As Double                 '''直流50V new
        '********************************************************************
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''激励器
    Public Structure InspiritUnit
        '***************************************************
        Public dFrequency As Double          '''频率
        Public dRFOutput As Double           '''输出电平
        Public dAudioMod As Double           '''音频调制度
        Public dVideoMod As Double           '''视频调制度
        Public dTVPercent As Double          '''图像伴音功率比
        Public dWorkVol As Double            '''工作电压
        Public dAGCLevel As Double           '''AGC电平
        Public dIncidencePower As Double     '''入射功率
        Public dTemputer As Double           '''温度
        Public dVoltage As Double            '''电压
        Public dCurrent As Double            '''电流

        Public bPull As Boolean              '''过流保护false-正常，true-报警
        Public bTemp As Boolean              '''过温保护
        Public bDsw As Boolean               '''过荷保护
        Public bAGCorMGC As Boolean          '''AGC or MGC状态
        Public bRemote As Boolean            '''本控/遥控  
        '*****************************************************
        Public bVideoInput As Boolean        '''有无视频输入 false-无，true-有
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''激励器管理单元，主要针对吉兆调频发射机new
    Public Structure InspiritManagerUnit
        '***************************************************
        Public iEXON As Integer            '''在线            0,ON    1,OFF
        Public iEXWK As Integer            '''工作            0,WORK  1,STBY
        Public iXAIN As Integer            '''音频输入        0,YES   1,NO
        Public ibXDD As Integer            '''断电自动切换    0,YES   1,NO
        Public iXWY As Integer             '''无音频自动切换  0,YES   1,NO
        '*****************************************************
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''RVR激励器-RVREX,RVR PTXLCD30激励器
    Public Structure RVRInspiritUnit
        '***************************************************0-true,1-false
        Public iOnair As Integer            '''0，工作 1，待机
        Public iRemote As Integer           '''0，遥控 1，本控
        Public iStok As Integer             '''0，功率正常 1，未到设定值
        Public iGeneral As Integer          '''1，正常 0，故障
        Public iUnlock As Integer           '''本振 0，失锁 1，正常
        Public iSwr As Integer              '''0，正常 1，过载
        Public iPilota As Integer           '''0 -Pilota Off，0 -Pilota On
        Public iEmphasis As Integer         '''预加重模式  0－us，1－50us
        Public iAudioMode As Integer        '''音频模式    0－单声道MONO，1－立体声Stereo
        Public iImpedance As Integer        '''输入阻抗     0- 600 ，1-10K
        Public bAin As Boolean              '''音频  true－有，false－无  
        Public dLeft As Double              '''左声道输入电平  单位：%
        Public dRight As Double             '''右声道输入电平  单位：%
        Public dPwr As Double               '''功率设定值      单位：W
        Public dPhase As Double             '''相位设定值      单位：%
        Public dFreq As Double              '''频率            单位：MHz
        Public dFwr As Double               '''输出功率        单位：W
        Public dRflp As Double              '''反射功率        单位：W
        Public dModulazione As Double       '''调制度          单位：%
        '*****************************************************
        Public bConnectDatabase As Boolean
    End Structure
    ''''''''''''EKA激励器-EkaEX,EKA MIRA V4.1激励器 
    Public Structure EKAInspiritUnit
        '***************************************************1-true,0-false
        Public iStereo As Integer         '''立体声 
        Public iProgramming As Integer    '''编程模式工作
        Public iRemote As Integer         '''遥控
        Public iPllUnlock As Integer      '''本振失锁
        Public iTemperature As Integer    '''过热
        Public iReflected As Integer      '''过载
        Public iForward As Integer        '''AGC
        Public iGeneral As Integer        '''故障
        Public iEmphasis As Integer       '''预加重模式17H.7/6 0(00B)-flat,1(01B)-50us,2(11B)-75us
        Public iAudioMode As Integer      '''音频模式17H.5/2/1 0(011B)－立体声编码CODER，1(101B)－单声道MONO，2(110B)－复合声道MPX
        Public iStereoCoder As Integer    '''立体声编码器