?? transmitgme.vb
字號:
search.insert(strsql)
'Catch ex As Exception
' MessageBox.Show(ex.Message, "系統提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
'End Try
End Sub
'''保存吉兆1153A－C、D型激勵器單元參數、發射機激勵器運行日志表－tranExciterRunLogGME（主要針對吉兆電視發射機）CDate(Master.strSamplingTime)
Public Sub SaveGMEExciter(ByVal i As Integer)
Dim strsql As String
strsql = "insert into tranExciterRunLogGME values(" & TransmitID & "," _
& i + 1 & ",'" _
& Now & "', " _
& GMEInspirit(i).iHighVswr & "," _
& GMEInspirit(i).iAGC_PA & "," _
& GMEInspirit(i).iSaveMode & "," _
& GMEInspirit(i).iMGC & "," _
& GMEInspirit(i).iAGC_EX & "," _
& GMEInspirit(i).iEX & "," _
& GMEInspirit(i).iVideo & "," _
& GMEInspirit(i).iLO_Lock & "," _
& GMEInspirit(i).dP_EX & "," _
& GMEInspirit(i).dA_DEV & "," _
& GMEInspirit(i).dV_MOD & "," _
& GMEInspirit(i).dV_AGC & "," _
& GMEInspirit(i).dI_1WPA & "," _
& 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
'''保存電源及冷卻系統參數－PSsysyemUnit（主要針對吉兆電視、調頻發射機）'''CDate(Master.strSamplingTime)
Public Sub SavePSsytem()
Dim strsql As String
strsql = "insert into PSsystemUnit values(" & TransmitID & ",'" _
& Now & "', " _
& PSsystem.iPS & "," _
& PSsystem.iPSI_EQU & "," _
& PSsystem.iPA_PS & "," _
& PSsystem.iFANS & "," _
& PSsystem.iFAN & "," _
& PSsystem.iSTART_TR & "," _
& PSsystem.iSHUT_TR & "," _
& PSsystem.iFRA & "," _
& PSsystem.dPS1 & "," _
& PSsystem.dPS2 & "," _
& PSsystem.dPS3 & "," _
& PSsystem.dPS4 & "," _
& PSsystem.dPS5 & "," _
& PSsystem.dPS6 & "," _
& PSsystem.dPS7 & "," _
& PSsystem.dPS8 & "," _
& 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'''CDate(Master.strSamplingTime)
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
' If 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
' End If
'End Sub
'Public Sub AmpAlarm(ByVal i As Integer)
' If isClose() = True Then
' Else
' If Amplifier(i).bTemp = True Then
' CommStatus = 3
' SaveAlarmLog(TransmitID, "功率放大器" + CStr(i) + " 過溫保護！", "0")
' End If
' If Amplifier(i).bPull = True Then
' CommStatus = 3
' SaveAlarmLog(TransmitID, "功率放大器" + CStr(i) + " 過載保護！", "0")
' End If
' If Amplifier(i).bOverInspirit = True Then
' CommStatus = 3
' SaveAlarmLog(TransmitID, "功率放大器" + CStr(i) + " 過激勵保護！", "0")
' End If
' 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -