transmitkt.vb

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

                                                          & RVRInspirit(i).dRight & "," _
                                                          & RVRInspirit(i).dPwr & "," _
                                                          & RVRInspirit(i).dPhase & "," _
                                                          & RVRInspirit(i).dFreq & "," _
                                                          & RVRInspirit(i).dFwr & "," _
                                                          & RVRInspirit(i).dRflp & "," _
                                                          & RVRInspirit(i).dModulazione & "," _
                                                          & iTempflag & ")"
        'Try
        If search.con.State = ConnectionState.Open Then
            search.con.Close()
        End If
        search.insert(strsql)
        'Catch ex As Exception
        '    MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        'End Try
    End Sub
    '''保存功放单元参数、发射机功放插件运行日志表－tranUnitRunLog
    Public Sub SavePA(ByVal i As Integer)
        Dim strsql As String
        strsql = "insert into tranUnitRunLog values(" & TransmitID & "," _
                                                       & i + 1 & ",'" _
                                                       & Now & "', " _
                                                       & Amplifier(i).bWork.GetHashCode & ", " _
                                                       & Amplifier(i).dOutputPower & "," _
                                                       & Amplifier(i).dInputPower & "," _
                                                       & Amplifier(i).dReflectPower & "," _
                                                       & Amplifier(i).dRefPower & "," _
                                                       & Amplifier(i).dUnbalacePower1 & "," _
                                                       & Amplifier(i).dUnbalacePower2 & "," _
                                                       & Amplifier(i).dDrivePower & "," _
                                                       & Amplifier(i).dCurrent & "," _
                                                       & Amplifier(i).dVoltage & "," _
                                                       & Amplifier(i).dTemputer & "," _
                                                       & Amplifier(i).dTCurrent & "," _
                                                       & Amplifier(i).dCurrent1 & "," _
                                                       & Amplifier(i).dCurrent2 & "," _
                                                       & Amplifier(i).dCurrent3 & "," _
                                                       & Amplifier(i).dCurrent4 & "," _
                                                       & Amplifier(i).dCurrent5 & "," _
                                                       & Amplifier(i).dCurrent6 & "," _
                                                       & Amplifier(i).dCurrent7 & "," _
                                                       & Amplifier(i).dCurrent8 & "," _
                                                       & Amplifier(i).bTemp.GetHashCode & "," _
                                                       & Amplifier(i).bPull.GetHashCode & "," _
                                                       & Amplifier(i).bDsw.GetHashCode & "," _
                                                       & iTempflag & "," _
                                                       & Amplifier(i).bPnP.GetHashCode & "," _
                                                       & Amplifier(i).bOverInspirit.GetHashCode & "," _
                                                       & Amplifier(i).bPcbok.GetHashCode & "," _
                                                       & Amplifier(i).bNobal.GetHashCode & "," _
                                                       & Amplifier(i).bDcov.GetHashCode & ")"
        'Try
        If search.con.State = ConnectionState.Open Then
            search.con.Close()
        End If
        search.insert(strsql)
        'Catch ex As Exception
        '    MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        'End Try
    End Sub
    'Public Sub SysAlarm()
    '    '''报警类型
    '    '1、功率过低
    '    '2、驻波比过高
    '    '3、温度过高
    '    If isClose() = True Then
    '    Else
    '        Select Case iTraType
    '            Case 2
    '                If Master.bOpen = True And Master.dPo > 1000 And Master.dPo < CDbl(power(TransmitPower) * powerPoint) Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "Po=" + CStr(Master.dPo) + " 输出功率过低！", "0")
    '                End If
    '                If Master.dVswr > CDbl(VswrPoint) Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "Vswr=" + CStr(Master.dVswr) + " 驻波比过高！", "0")
    '                End If
    '                If Master.dTemputer > CDbl(TempPoint) Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "温度=" + CStr(Master.dTemputer) + "℃ 温度过高！", "0")
    '                End If
    '                If Master.bTemp = True Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "过温保护！", "0")
    '                End If
    '                If Master.bDsw = True Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "过荷保护！", "0")
    '                End If
    '            Case 4
    '                If Master.bOpen = True And Master.dPo > 1000 And Master.dPo < CDbl(power(TransmitPower) * powerPoint) Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "Po=" + CStr(Master.dPo) + " 输出功率过低！", "0")
    '                End If
    '                If Master.dVswr > CDbl(VswrPoint) Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "Vswr=" + CStr(Master.dVswr) + " 驻波比过高！", "0")
    '                End If
    '                If Master.dTemputer > CDbl(TempPoint) Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "温度=" + CStr(Master.dTemputer) + "℃ 温度过高！", "0")
    '                End If
    '            Case 5
    '                If Master.bOpen = True Then
    '                    If Master.iAlarm = 1 Then
    '                        CommStatus = 3
    '                        SaveAlarmLog(TransmitID, "报警", "0")
    '                    End If
    '                End If
    '        End Select
    '    End If
    'End Sub
    'Public Sub AmpAlarm(ByVal i As Integer)
    '    If isClose() = True Then
    '    Else
    '        Select Case iTraType
    '            Case 2
    '                'If Amplifier(i).bTemp = True Then
    '                '    CommStatus = 3
    '                '    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过温保护！", "0")
    '                'End If
    '                'If Amplifier(i).bOverInspirit = True Then
    '                '    CommStatus = 3
    '                '    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过激励保护！", "0")
    '                'End If
    '                'If Amplifier(i).bDsw = True Then
    '                '    CommStatus = 3
    '                '    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过荷保护！", "0")
    '                'End If
    '            Case 4
    '                If Amplifier(i).bTemp = True Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过温保护！", "0")
    '                End If
    '                If Amplifier(i).bOverInspirit = True Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过激励保护！", "0")
    '                End If
    '                If Amplifier(i).bDsw = True Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过荷保护！", "0")
    '                End If
    '                If Amplifier(i).bPull = True Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过流保护！", "0")
    '                End If
    '                If Amplifier(i).bDcov = True Then
    '                    CommStatus = 3
    '                    SaveAlarmLog(TransmitID, "功率放大器" + CStr(i + 1) + " 过压保护！", "0")
    '                End If
    '            Case Else
    '        End Select
    '    End If
    'End Sub
    'Public Sub SMSalarm(ByVal alarmflag As Integer)
    '    Dim QueryString As String
    '    Dim ds As DataSet
    '    Dim alarmType As Integer
    '    If isClose() = True Then
    '    Else
    '        Select Case alarmflag
    '            Case 3
    '                alarmType = 1
    '            Case 0
    '                alarmType = 2
    '        End Select
    '        QueryString = "select * from SMS_Alarm where equNum=" & Trim(TransmitID) + " order by id desc"
    '        ds = search.query(QueryString)
    '        If ds.Tables(0).Rows.Count > 0 Then
    '            If ds.Tables(0).Rows(0).Item("alarmState") = alarmType Then
    '            Else
    '                SaveSMSAlarmLog(TransmitID, alarmType)
    '            End If
    '        Else
    '            If alarmType = 1 Then
    '                SaveSMSAlarmLog(TransmitID, alarmType)
    '            End If
    '        End If
    '    End If
    'End Sub
    ''''根据当天时间判断是处于开机状态还是关机状态
    'Public Function isClose() As Boolean
    '    Dim NowTime As Date
    '    NowTime = CDate(CStr(Now.Hour) + ":" + CStr(Now.Minute) + ":" + "00").Date  ' CStr(Today.Second)).Date()
    '    Select Case Today.DayOfWeek
    '        Case DayOfWeek.Monday
    '            If Monday(0) Is Nothing Or Monday(1) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Monday(1)).Date And NowTime < CDate(Monday(0)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If
    '        Case DayOfWeek.Tuesday
    '            If Tuesday(0) Is Nothing Or Tuesday(1) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Tuesday(3)).Date And NowTime < CDate(Tuesday(0)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If
    '            If Tuesday(2) Is Nothing Or Tuesday(3) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Tuesday(2)).Date And NowTime < CDate(Tuesday(3)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If
    '        Case DayOfWeek.Wednesday
    '            If Wednesday(0) Is Nothing Or Wednesday(1) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Wednesday(1)).Date And NowTime < CDate(Wednesday(0)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If
    '        Case DayOfWeek.Thursday
    '            If Thursday(0) Is Nothing Or Thursday(1) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Thursday(1)).Date And NowTime < CDate(Thursday(0)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If

    '        Case DayOfWeek.Friday
    '            If Friday(0) Is Nothing Or Friday(1) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Friday(1)).Date And NowTime < CDate(Friday(0)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If
    '        Case DayOfWeek.Saturday
    '            If Saturday(0) Is Nothing Or Saturday(1) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Saturday(1)).Date And NowTime < CDate(Saturday(0)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If
    '        Case DayOfWeek.Sunday
    '            If Sunday(0) Is Nothing Or Sunday(1) Is Nothing Then
    '            Else
    '                If NowTime > CDate(Sunday(1)).Date And NowTime < CDate(Sunday(0)).Date Then
    '                    isClose = True
    '                Else
    '                    isClose = False
    '                End If
    '            End If

    '    End Select
    'End Function
End Class