publicclass.vb

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

                Else
                    If isOffTime(trans.Thursday(0), trans.Thursday(1)) = True Then
                        isNotRun = True
                    Else
                        isNotRun = False
                    End If
                End If
            Case DayOfWeek.Friday
                If trans.Friday(0) Is Nothing And trans.Friday(1) Is Nothing Then
                Else
                    If isOffTime(trans.Friday(0), trans.Friday(1)) = True Then
                        isNotRun = True
                    Else
                        isNotRun = False
                    End If
                End If
            Case DayOfWeek.Saturday
                If trans.Saturday(0) Is Nothing And trans.Saturday(1) Is Nothing Then
                Else
                    If isOffTime(trans.Saturday(0), trans.Saturday(1)) = True Then
                        isNotRun = True
                    Else
                        isNotRun = False
                    End If
                End If
            Case DayOfWeek.Sunday
                If trans.Sunday(0) Is Nothing And trans.Sunday(1) Is Nothing Then
                Else
                    If isOffTime(trans.Sunday(0), trans.Sunday(1)) = True Then
                        isNotRun = True
                    Else
                        isNotRun = False
                    End If
                End If
        End Select
    End Function
    Public Shared Sub SysAlarm(ByVal trans As Object)
        '''报警类型
        '1、功率过低
        '2、驻波比过高
        '3、温度过高
        If isNotRun(trans) = True Then
        Else
            '***************************************************整机参数
            ''''''入射功率
            If trans.ParaLowOrHigh.tranPo.isUse = True Then
                Select Case trans.Master.dPo
                    Case Is > trans.ParaLowOrHigh.tranPo.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机输出功率=" + CStr(trans.Master.dPo) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.tranPo.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机输出功率=" + CStr(trans.Master.dPo) + " 过低!!!", "0")
                End Select
            End If
            ''''''反射功率
            If trans.ParaLowOrHigh.tranPr.isUse = True Then
                Select Case trans.Master.dPr
                    Case Is > trans.ParaLowOrHigh.tranPr.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机反射功率=" + CStr(trans.Master.dPr) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.tranPr.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机反射功率=" + CStr(trans.Master.dPr) + " 过低!!!", "0")
                End Select
            End If
            ''''''驻波比
            If trans.ParaLowOrHigh.tranVswr.isUse = True Then
                Select Case trans.Master.dVswr
                    Case Is > trans.ParaLowOrHigh.tranVswr.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "驻波比=" + CStr(trans.Master.dVswr) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.tranVswr.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "驻波比=" + CStr(trans.Master.dVswr) + " 过低!!!", "0")
                End Select
            End If
            ''''''总电流
            If trans.ParaLowOrHigh.tranCurrent.isUse = True Then
                Select Case trans.Master.dCurrent
                    Case Is > trans.ParaLowOrHigh.tranCurrent.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机电流=" + CStr(trans.Master.dCurrent) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.tranCurrent.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机电流=" + CStr(trans.Master.dCurrent) + " 过低!!!", "0")
                End Select
            End If
            ''''''总电压
            If trans.ParaLowOrHigh.tranVoltage.isUse = True Then
                Select Case trans.Master.dVoltage
                    Case Is > trans.ParaLowOrHigh.tranVoltage.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机电压=" + CStr(trans.Master.dVoltage) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.tranVoltage.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机电压=" + CStr(trans.Master.dVoltage) + " 过低!!!", "0")
                End Select
            End If
            ''''''平衡功率
            If trans.ParaLowOrHigh.tranBalancePo.isUse = True Then
                Select Case trans.Master.dbalacePower
                    Case Is > trans.ParaLowOrHigh.tranBalancePo.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机平衡功率=" + CStr(trans.Master.dbalacePower) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.tranBalancePo.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机平衡功率=" + CStr(trans.Master.dbalacePower) + " 过低!!!", "0")
                End Select
            End If
            ''''''整机温度
            If trans.ParaLowOrHigh.tranTemp.isUse = True Then
                Select Case trans.Master.dTemputer
                    Case Is > trans.ParaLowOrHigh.tranTemp.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机温度=" + CStr(trans.Master.bTemp) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.tranTemp.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "整机温度=" + CStr(trans.Master.bTemp) + " 过低!!!", "0")
                End Select
            End If
            '**********************************************
        End If
    End Sub

    Public Shared Sub AmpAlarm(ByVal i As Integer, ByVal trans As Object)
        If isNotRun(trans) = True Then
        Else
            '***************************************************攻放插件参数
            ''''''输出功率
            If trans.ParaLowOrHigh.unitPo.isUse = True Then
                Select Case trans.Amplifier(i).dOutputPower
                    Case Is > trans.ParaLowOrHigh.unitPo.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---输出功率=" + CStr(trans.Amplifier(i).dOutputPower) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitPo.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---输出功率=" + CStr(trans.Amplifier(i).dOutputPower) + " 过低!!!", "0")
                End Select
            End If
            ''''''输入功率 单位：瓦
            If trans.ParaLowOrHigh.unitInPo.isUse = True Then
                Select Case trans.Amplifier(i).dInputPower
                    Case Is > trans.ParaLowOrHigh.unitInPo.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---输入功率=" + CStr(trans.Amplifier(i).dInputPower) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitInPo.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---输入功率=" + CStr(trans.Amplifier(i).dInputPower) + " 过低!!!", "0")
                End Select
            End If
            ''''''反射功率
            If trans.ParaLowOrHigh.unitPr.isUse = True Then
                Select Case trans.Amplifier(i).dReflectPower
                    Case Is > trans.ParaLowOrHigh.unitPr.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---反射功率=" + CStr(trans.Amplifier(i).dReflectPower) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitPr.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---反射功率=" + CStr(trans.Amplifier(i).dReflectPower) + " 过低!!!", "0")
                End Select
            End If
            ''''''平衡功率
            If trans.ParaLowOrHigh.unitBalancePo.isUse = True Then
                Select Case trans.Amplifier(i).dRefPower
                    Case Is > trans.ParaLowOrHigh.unitBalancePo.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---平衡功率=" + CStr(trans.Amplifier(i).dRefPower) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitBalancePo.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---平衡功率=" + CStr(trans.Amplifier(i).dRefPower) + " 过低!!!", "0")
                End Select
            End If
            ''''''电压
            If trans.ParaLowOrHigh.unitVol.isUse = True Then
                Select Case trans.Amplifier(i).dVoltage
                    Case Is > trans.ParaLowOrHigh.unitVol.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电压=" + CStr(trans.Amplifier(i).dVoltage) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitVol.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电压=" + CStr(trans.Amplifier(i).dVoltage) + " 过低!!!", "0")
                End Select
            End If
            ''''''温度
            If trans.ParaLowOrHigh.unitTemp.isUse = True Then
                Select Case trans.Amplifier(i).dTemputer
                    Case Is > trans.ParaLowOrHigh.unitTemp.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---温度=" + CStr(trans.Amplifier(i).dTemputer) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitTemp.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---温度=" + CStr(trans.Amplifier(i).dTemputer) + " 过低!!!", "0")
                End Select
            End If
            ''''''推动电流1
            If trans.ParaLowOrHigh.unitCurP1.isUse = True Then
                Select Case trans.Amplifier(i).dTCurrent
                    Case Is > trans.ParaLowOrHigh.unitCurP1.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---一级推动电流=" + CStr(trans.Amplifier(i).dTCurrent) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitCurP1.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---一级推动电流=" + CStr(trans.Amplifier(i).dTCurrent) + " 过低!!!", "0")
                End Select
            End If
            ''''''推动电流2
            If trans.ParaLowOrHigh.unitCurP2.isUse = True Then
                Select Case trans.Amplifier(i).dCurrent
                    Case Is > trans.ParaLowOrHigh.unitCurP2.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---二级推动电流=" + CStr(trans.Amplifier(i).dCurrent) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitCurP2.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---二级推动电流=" + CStr(trans.Amplifier(i).dCurrent) + " 过低!!!", "0")
                End Select
            End If
            ''''''电流1
            If trans.ParaLowOrHigh.unitCur1.isUse = True Then
                Select Case trans.Amplifier(i).dCurrent1
                    Case Is > trans.ParaLowOrHigh.unitCur1.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent1) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitCur1.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent1) + " 过低!!!", "0")
                End Select
            End If
            ''''''电流2
            If trans.ParaLowOrHigh.unitCur2.isUse = True Then
                Select Case trans.Amplifier(i).dCurrent2
                    Case Is > trans.ParaLowOrHigh.unitCur2.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent2) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitCur2.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent2) + " 过低!!!", "0")
                End Select
            End If
            ''''''电流3
            If trans.ParaLowOrHigh.unitCur3.isUse = True Then
                Select Case trans.Amplifier(i).dCurrent3
                    Case Is > trans.ParaLowOrHigh.unitCur3.High
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent3) + " 过高!!!", "0")
                    Case Is < trans.ParaLowOrHigh.unitCur3.Low
                        trans.CommStatus = 3
                        SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent3) + " 过低!!!", "0")
                End Select
            End If