📄 publicclass.vb
字号:
''''''电流4
If trans.ParaLowOrHigh.unitCur4.isUse = True Then
Select Case trans.Amplifier(i).dCurrent4
Case Is > trans.ParaLowOrHigh.unitCur4.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent4) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.unitCur4.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent4) + " 过低!!!", "0")
End Select
End If
''''''电流5
If trans.ParaLowOrHigh.unitCur5.isUse = True Then
Select Case trans.Amplifier(i).dCurrent5
Case Is > trans.ParaLowOrHigh.unitCur5.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent5) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.unitCur5.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent5) + " 过低!!!", "0")
End Select
End If
''''''电流6
If trans.ParaLowOrHigh.unitCur6.isUse = True Then
Select Case trans.Amplifier(i).dCurrent6
Case Is > trans.ParaLowOrHigh.unitCur6.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent6) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.unitCur6.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent6) + " 过低!!!", "0")
End Select
End If
''''''电流7
If trans.ParaLowOrHigh.unitCur7.isUse = True Then
Select Case trans.Amplifier(i).dCurrent7
Case Is > trans.ParaLowOrHigh.unitCur7.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent7) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.unitCur7.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent7) + " 过低!!!", "0")
End Select
End If
''''''电流8
If trans.ParaLowOrHigh.unitCur8.isUse = True Then
Select Case trans.Amplifier(i).dCurrent8
Case Is > trans.ParaLowOrHigh.unitCur8.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent8) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.unitCur8.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + "---电流1=" + CStr(trans.Amplifier(i).dCurrent8) + " 过低!!!", "0")
End Select
End If
'''''攻放状态报警
If trans.Amplifier(i).bTemp = True Then
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + " 过温保护！", "0")
End If
If trans.Amplifier(i).bPull = True Then
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + " 过载保护！", "0")
End If
If trans.Amplifier(i).bOverInspirit = True Then
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, "功率放大器" + CStr(i + 1) + " 过激励保护！", "0")
End If
End If
End Sub
'bBackupState'
'*****************************************************
Public Shared Sub RefAlarm(ByVal i As Integer, ByVal trans As Object)
Dim temp As String
Select Case i
Case 0
temp = "主激励器"
Case 1
temp = "备激励器"
End Select
If isNotRun(trans) = True Then
Else
'***************************************************激励器参数
''''''输出功率 单位：ｗ
If trans.ParaLowOrHigh.dFwr.isUse = True Then
Select Case trans.MainExciter
Case 1
Select Case trans.RVRInspirit(i).dFwr
Case Is > trans.ParaLowOrHigh.dFwr.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---输出功率=" + CStr(trans.RVRInspirit(i).dFwr) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dFwr.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---输出功率=" + CStr(trans.RVRInspirit(i).dFwr) + " 过低!!!", "0")
End Select
Case 2
Select Case trans.EKAInspirit(i).dFwdPower
Case Is > trans.ParaLowOrHigh.dFwr.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---输出功率=" + CStr(trans.EKAInspirit(i).dFwdPower) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dFwr.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---输出功率=" + CStr(trans.EKAInspirit(i).dFwdPower) + " 过低!!!", "0")
End Select
Case 3
Select Case trans.TraType
Case 1
Case 2
Case 3
Select Case trans.GMEInspirit(i).dP_EX
Case Is > trans.ParaLowOrHigh.dFwr.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---输出功率=" + CStr(trans.GMEInspirit(i).dP_EX) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dFwr.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---输出功率=" + CStr(trans.GMEInspirit(i).dP_EX) + " 过低!!!", "0")
End Select
End Select
End Select
End If
''''''反射功率 单位：ｗ
If trans.ParaLowOrHigh.dRflp.isUse = True Then
Select Case trans.MainExciter
Case 1
Select Case trans.RVRInspirit(i).dRflp
Case Is > trans.ParaLowOrHigh.dRflp.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---反射功率=" + CStr(trans.RVRInspirit(i).dRflp) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dRflp.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---反射功率=" + CStr(trans.RVRInspirit(i).dRflp) + " 过低!!!", "0")
End Select
Case 2
Select Case trans.EKAInspirit(i).dFwdPower
Case Is > trans.ParaLowOrHigh.dRflp.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---反射功率=" + CStr(trans.EKAInspirit(i).dRflPower) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dRflp.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---反射功率=" + CStr(trans.EKAInspirit(i).dRflPower) + " 过低!!!", "0")
End Select
Case 3
End Select
End If
''''''温度
If trans.ParaLowOrHigh.dTemp.isUse = True Then
Select Case trans.MainExciter
Case 1
Case 2
Select Case trans.EKAInspirit(i).dTemp
Case Is > trans.ParaLowOrHigh.dTemp.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---温度=" + CStr(trans.EKAInspirit(i).dTemp) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dTemp.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---温度=" + CStr(trans.EKAInspirit(i).dTemp) + " 过低!!!", "0")
End Select
Case 3
Select Case trans.TraType
Case 1
Case 2
Case 3
End Select
End Select
End If
''''''电流
''''''电压
''''''调制度
If trans.ParaLowOrHigh.dModulazione.isUse = True Then
Select Case trans.MainExciter
Case 1
Select Case trans.RVRInspirit(i).dModulazione
Case Is > trans.ParaLowOrHigh.dModulazione.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---调制度=" + CStr(trans.RVRInspirit(i).dModulazione) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dModulazione.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---调制度=" + CStr(trans.RVRInspirit(i).dModulazione) + " 过低!!!", "0")
End Select
End Select
End If
''''''左声道输入电平 单位：％
If trans.ParaLowOrHigh.dLeft.isUse = True Then
Select Case trans.MainExciter
Case 1
Select Case trans.RVRInspirit(i).dLeft
Case Is > trans.ParaLowOrHigh.dLeft.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---左声道输入电平=" + CStr(trans.RVRInspirit(i).dLeft) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dLeft.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---左声道输入电平=" + CStr(trans.RVRInspirit(i).dLeft) + " 过低!!!", "0")
End Select
End Select
End If
''''''右声道输入电平 单位：％
If trans.ParaLowOrHigh.dRight.isUse = True Then
Select Case trans.MainExciter
Case 1
Select Case trans.RVRInspirit(i).dRight
Case Is > trans.ParaLowOrHigh.dLeft.High
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---右声道输入电平=" + CStr(trans.RVRInspirit(i).dRight) + " 过高!!!", "0")
Case Is < trans.ParaLowOrHigh.dRight.Low
trans.CommStatus = 3
SaveAlarmLog(trans.TransmitID, temp + "---右声道输入电平=" + CStr(trans.RVRInspirit(i).dRight) + " 过低!!!", "0")
End Select
End Select
End If
''''''音频调制度
''''''视频调制度
''''''图像伴音比
'**********************************************
End If
End Sub
Public Shared Sub SMSalarm(ByVal alarmflag As Integer, ByVal trans As Object)
Dim QueryString As String
Dim ds As DataSet
Dim alarmType As Integer
If isNotRun(trans) = True Then
Else
Select Case alarmflag
Case 3
alarmType = 1
Case 0
alarmType = 2
End Select
QueryString = "select * from SMS_Alarm where equNum=" & Trim(trans.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(trans.TransmitID, alarmType)
End If
Else
If alarmType = 1 Then
SaveSMSAlarmLog(trans.TransmitID, alarmType)
End If
End If
End If
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -