?? transmitgme.vb
字號:
Amplifier(i).dInputPower = Round45((btData(i * 17 + 6) * 256 + btData(i * 17 + 7)) / 100, 2) '''輸入功率
Amplifier(i).dRefPower = Round45((btData(i * 17 + 10) * 256 + btData(i * 17 + 11)) * 10 / 10, 1) '''平衡功率
Amplifier(i).dVoltage = Round45((btData(i * 17 + 12) * 256 + btData(i * 17 + 13)) / 10, 1) '''直流+50V
StatusBinary = DecimalToBinary(btData(i * 17 + 14), 8)
If Mid(StatusBinary, 1, 1) = 1 Then '''過激勵
Amplifier(i).bOverInspirit = True
Else
Amplifier(i).bOverInspirit = False
End If
If Mid(StatusBinary, 2, 1) = 1 Then '''過載
Amplifier(i).bPull = True
Else
Amplifier(i).bPull = False
End If
If Mid(StatusBinary, 3, 1) = 1 Then '''是否插好
Amplifier(i).bPcbok = True
Else
Amplifier(i).bPcbok = False
End If
If Mid(StatusBinary, 4, 1) = 1 Then '''工作/待機
Amplifier(i).bWork = True
Else
Amplifier(i).bWork = False
End If
If Mid(StatusBinary, 5, 1) = 1 Then '''不平衡
Amplifier(i).bNobal = True
Else
Amplifier(i).bNobal = False
End If
If Mid(StatusBinary, 6, 1) = 1 Then '''過熱
Amplifier(i).bTemp = True
Else
Amplifier(i).bTemp = False
End If
If Mid(StatusBinary, 7, 1) = 1 Then '''直流過壓
Amplifier(i).bDcov = True
Else
Amplifier(i).bDcov = False
End If
End Sub
'***********************解析第三組共36個字節(jié)數(shù)據(jù)***************************
'* 說明：主要是電源及冷卻系統(tǒng)數(shù)據(jù) *
'A9 00 17 00 00 00 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C0 00 1E 00 00 00 00 00 00 00 調(diào)頻（597－632）
'A9 00 32 00 2B 00 00 00 2D 00 2C 00 2D 00 2C 00 00 00 C0 00 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 電視（430－465）
'**************************************************************************
Private Sub GMEParsePSsystem(ByRef btData() As Byte)
Dim StatusBinary As String
StatusBinary = DecimalToBinary(btData(0), 8)
PSsystem.iPS = Mid(StatusBinary, 1, 1)
PSsystem.iPSI_EQU = Mid(StatusBinary, 2, 1)
PSsystem.iPA_PS = Mid(StatusBinary, 3, 1)
PSsystem.iFANS = Mid(StatusBinary, 4, 1)
PSsystem.iFAN = Mid(StatusBinary, 5, 1)
PSsystem.iSTART_TR = Mid(StatusBinary, 6, 1)
PSsystem.iSHUT_TR = Mid(StatusBinary, 7, 1)
PSsystem.iFRA = Mid(StatusBinary, 8, 1)
PSsystem.dPS1 = Round45((btData(1) * 256 + btData(2)) * 10 / 10, 1) '''電源電流1
PSsystem.dPS2 = Round45((btData(3) * 256 + btData(4)) * 10 / 10, 1) '''電源電流2
PSsystem.dPS3 = Round45((btData(5) * 256 + btData(6)) * 10 / 10, 1) '''電源電流3
PSsystem.dPS4 = Round45((btData(7) * 256 + btData(8)) * 10 / 10, 1) '''電源電流4
PSsystem.dPS5 = Round45((btData(9) * 256 + btData(10)) * 10 / 10, 1) '''電源電流5
PSsystem.dPS6 = Round45((btData(11) * 256 + btData(12)) * 10 / 10, 1) '''電源電流6
PSsystem.dPS7 = Round45((btData(13) * 256 + btData(14)) * 10 / 10, 1) '''電源電流7
PSsystem.dPS8 = Round45((btData(15) * 256 + btData(16)) * 10 / 10, 1) '''電源電流8
End Sub
'***********************解析第四組共22個字節(jié)數(shù)據(jù)***************************
'說明：系統(tǒng)數(shù)據(jù)
'00 F3 00 1C 00 00 00 FF 00 FF 00 FF 00 43 00 00 00 6A 00 10 62 2F
Private Sub GMEParseFreMaster(ByRef btData() As Byte)
Master.dPo = ((btData(0) * 256 + btData(1)) / 100) * 1000 '''輸出功率（W）
Master.dVswr = (btData(16) * 256 + btData(17)) / 100 '''駐波比
Master.dPr = (btData(2) * 256 + btData(3)) / 10 '''反射功率（W）
Master.dbalacePower = (btData(4) * 256 + btData(5)) / 10 '''平衡功率（W）
End Sub
'***************************************************************************
'* *
'********************* 解析吉兆電視發(fā)射機（GME1153A）數(shù)據(jù) '**********************
'* *
'***************************************************************************
'GME1153A型分米波5KW電視發(fā)射機
'－解析激勵器單元數(shù)據(jù)（7－28）
'00 00 00 00 00 00 00 00 00 00 00
'44 03 5B 00 34 03 5E 00 1C 00 07
Private Sub Parse_GME1153A_Inspirit(ByRef btData() As Byte, ByVal i As Integer)
Dim StatusBinary As String
StatusBinary = DecimalToBinary(btData(i * 11 + 0), 8)
GMEInspirit(i).iHighVswr = Mid(StatusBinary, 1, 1)
GMEInspirit(i).iAGC_PA = Mid(StatusBinary, 2, 1)
GMEInspirit(i).iSaveMode = Mid(StatusBinary, 3, 1)
GMEInspirit(i).iMGC = Mid(StatusBinary, 4, 1)
GMEInspirit(i).iAGC_EX = Mid(StatusBinary, 5, 1)
GMEInspirit(i).iEX = Mid(StatusBinary, 6, 1)
GMEInspirit(i).iVideo = Mid(StatusBinary, 7, 1)
GMEInspirit(i).iLO_Lock = Mid(StatusBinary, 8, 1)
GMEInspirit(i).dP_EX = Round45((btData(i * 11 + 1) * 256 + btData(i * 11 + 2)) / 1000, 1) '''輸出功率（W）
GMEInspirit(i).dA_DEV = btData(i * 11 + 3) * 256 + btData(i * 11 + 4) '''音頻頻偏（KHz）
GMEInspirit(i).dV_MOD = (btData(i * 11 + 5) * 256 + btData(i * 11 + 6)) / 10 '''視頻調(diào)制度（%）
GMEInspirit(i).dV_AGC = (btData(i * 11 + 7) * 256 + btData(i * 11 + 8)) / 10 '''AGC電壓（KHz）
GMEInspirit(i).dI_1WPA = (btData(i * 11 + 9) * 256 + btData(i * 11 + 10)) / 10 '''1W小功放電流（A）
End Sub
'－解析功放模塊數(shù)據(jù)（29－412）
'00 77 00 29 00 38 00 56 00 23 00 0C 00 14 01 4E 00 3B 00 15 01 4B 01 00
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
'00 38 00 3C 00 2E 00 36 00 0F 00 0C 00 14 01 36 00 50 00 0B 01 4A 01 00
'00 4A 00 48 00 49 00 2F 00 3B 00 0C 00 16 01 DA 00 17 00 0D 01 4B 01 00
'00 26 00 1E 00 24 00 21 00 12 00 0B 00 12 00 F5 00 11 00 2D 01 48 01 00
'00 77 00 1A 00 2D 00 00 00 15 00 0B 00 13 01 44 00 0A 00 10 01 48 01 00
'00 35 00 34 00 47 00 3E 00 00 00 0D 00 16 01 8D 00 1B 00 1F 01 48 01 00
'00 69 00 37 00 45 00 2B 00 11 00 0F 00 14 01 78 00 29 00 29 01 47 01 00
'00 3C 00 2F 00 32 00 2F 00 12 00 0D 00 16 01 6A 00 0B 00 0C 01 48 01 00
'00 3C 00 00 00 36 00 32 00 1C 00 0C 00 15 01 82 00 2C 00 16 01 4B 01 FF
'00 3C 00 00 00 73 00 77 00 19 00 09 00 18 01 84 00 3A 00 2A 01 49 01 FF
'00 1C 00 34 00 15 00 3A 00 10 00 0C 00 15 01 64 00 0E 00 13 01 48 01 FF
'00 33 00 2F 00 39 00 30 00 11 00 0D 00 13 01 7E 00 18 00 1C 01 49 01 FF
'00 41 00 61 00 2C 00 29 00 1A 00 0F 00 15 01 A0 00 2C 00 22 01 49 01 FF
'00 36 00 35 00 3B 00 30 00 11 00 0E 00 15 01 7F 00 6B 00 08 01 46 01 FF
'00 3E 00 37 00 39 00 3E 00 16 00 0B 00 16 01 A9 00 2E 00 20 01 49 01 FF
Private Sub GMEParse_GME1153A_Amplifier(ByVal i As Integer, ByRef btData() As Byte)
Dim StatusBinary As String
Amplifier(i).dCurrent1 = Round45((btData(i * 24 + 0) * 256 + btData(i * 24 + 1)) / 10, 1)
Amplifier(i).dCurrent2 = Round45((btData(i * 24 + 2) * 256 + btData(i * 24 + 3)) / 10, 1)
Amplifier(i).dCurrent3 = Round45((btData(i * 24 + 4) * 256 + btData(i * 24 + 5)) / 10, 1)
Amplifier(i).dCurrent4 = Round45((btData(i * 24 + 6) * 256 + btData(i * 24 + 7)) / 10, 1)
Amplifier(i).dCurrent5 = Round45((btData(i * 24 + 8) * 256 + btData(i * 24 + 9)) / 10, 1)
Amplifier(i).dCurrent6 = Round45((btData(i * 24 + 10) * 256 + btData(i * 24 + 11)) / 10, 1)
Amplifier(i).dInputPower = (btData(i * 24 + 12) * 256 + btData(i * 24 + 13)) / 1000 '''輸入功率（W）
Amplifier(i).dOutputPower = btData(i * 24 + 14) * 256 + btData(i * 24 + 15) '''輸出功率（W）
Amplifier(i).dUnbalacePower1 = Round45((btData(i * 24 + 16) * 256 + btData(i * 24 + 17)) / 10, 1) '''不平衡功率1（W）
Amplifier(i).dUnbalacePower2 = Round45((btData(i * 24 + 18) * 256 + btData(i * 24 + 19)) / 10, 1) '''不平衡功率2（W）
Amplifier(i).dVoltage = Round45((btData(i * 24 + 20) * 256 + btData(i * 24 + 21)) / 10, 1) '''32電壓（V）
StatusBinary = DecimalToBinary(btData(i * 24 + 22), 8)
If Mid(StatusBinary, 1, 1) = 1 Then '''過激勵
Amplifier(i).bOverInspirit = True
Else
Amplifier(i).bOverInspirit = False
End If
If Mid(StatusBinary, 2, 1) = 1 Then '''過載
Amplifier(i).bPull = True
Else
Amplifier(i).bPull = False
End If
If Mid(StatusBinary, 3, 1) = 1 Then '''過熱
Amplifier(i).bTemp = True
Else
Amplifier(i).bTemp = False
End If
End Sub
'－解析系統(tǒng)數(shù)據(jù)（413－428）
'01 A5 00 6E 00 00 00 00 00 00 00 21 00 28 88 31
Private Sub GMEParse_GME1153A_Master(ByRef btData() As Byte)
Master.dPo = ((btData(0) * 256 + btData(1)) / 100) * 1000 '''輸出功率（W）
Master.dVswr = (btData(2) * 256 + btData(3)) / 100 '''駐波比
Master.dUnbalacePower1 = Round45((btData(4) * 256 + btData(5)) * 10, 1) '''不平衡功率1（W）
Master.dUnbalacePower2 = Round45((btData(6) * 256 + btData(7)) * 10, 1) '''不平衡功率2（W）
Master.dUnbalacePower3 = Round45((btData(8) * 256 + btData(9)) * 10, 1) '''不平衡功率3（W）
End Sub
'********************************保存數(shù)據(jù)庫記錄************************************
'''保存主控單元參數(shù)、發(fā)射機整機運行日志表－tranSysRunLog''CDate(Master.strSamplingTime)
Public Sub SaveSystem()
Dim strsql As String
strsql = "insert into tranSysRunLog values(" & TransmitID & ",'" _
& Now & "'," _
& State & "," _
& Master.dPo & "," _
& Master.dPr & "," _
& Master.dbalacePower & "," _
& Master.dUnbalacePower1 & "," _
& Master.dUnbalacePower2 & "," _
& Master.dUnbalacePower3 & "," _
& Master.dVswr & "," _
& Master.dCurrent & "," _
& Master.dVoltage & "," _
& Master.dTemputer & "," _
& Master.dTotaltime & "," _
& Master.bFlow.GetHashCode & "," _
& Master.bOpenOrClose.GetHashCode & "," _
& Master.bIO.GetHashCode & "," _
& Master.bBackupState.GetHashCode & "," _
& Master.bAntenna.GetHashCode & "," _
& Master.bRemote.GetHashCode & "," _
& iTempflag & "," _
& Master.bAntenna.GetHashCode & "," _
& Master.bRemote.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, "系統(tǒng)提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
'End Try
End Sub
'''保存RVR激勵器單元參數(shù)、發(fā)射機激勵器運行日志表－tranExciterRunLogRVR（主要針對吉兆調(diào)頻發(fā)射機）CDate(Master.strSamplingTime)
Public Sub SaveRVRExciter(ByVal i As Integer)
Dim strsql As String
strsql = "insert into tranExciterRunLogRVR values(" & TransmitID & "," _
& i + 1 & ",'" _
& Now & "', " _
& RVRInspirit(i).iOnair & "," _
& RVRInspirit(i).iRemote & "," _
& RVRInspirit(i).iStok & "," _
& RVRInspirit(i).iGeneral & "," _
& RVRInspirit(i).iUnlock & "," _
& RVRInspirit(i).iSwr & "," _
& RVRInspirit(i).iPilota & "," _
& RVRInspirit(i).iEmphasis & "," _
& RVRInspirit(i).iAudioMode & "," _
& RVRInspirit(i).iImpedance & "," _
& RVRInspirit(i).bAin.GetHashCode & "," _
& RVRInspirit(i).dLeft & "," _
& 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, "系統(tǒng)提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
'End Try
End Sub
'''保存EKA激勵器單元參數(shù)、發(fā)射機激勵器運行日志表－tranExciterRunLogEKA（主要針對吉兆調(diào)頻發(fā)射機）CDate(Master.strSamplingTime)
Public Sub SaveEKAExciter(ByVal i As Integer)
Dim strsql As String
strsql = "insert into tranExciterRunLogEKA values(" & TransmitID & "," _
& i + 1 & ",'" _
& Now & "', " _
& EKAInspirit(i).iStereo & "," _
& EKAInspirit(i).iProgramming & "," _
& EKAInspirit(i).iRemote & "," _
& EKAInspirit(i).iPllUnlock & "," _
& EKAInspirit(i).iTemperature & "," _
& EKAInspirit(i).iReflected & "," _
& EKAInspirit(i).iForward & "," _
& EKAInspirit(i).iGeneral & "," _
& EKAInspirit(i).iEmphasis & "," _
& EKAInspirit(i).iAudioMode & "," _
& EKAInspirit(i).iStereoCoder & "," _
& EKAInspirit(i).dLeft & "," _
& EKAInspirit(i).dRight & "," _
& EKAInspirit(i).dTemp & "," _
& EKAInspirit(i).dFrequency & "," _
& EKAInspirit(i).dDeviation & "," _
& EKAInspirit(i).dFwdPower & "," _
& EKAInspirit(i).dRflPower & "," _
& iTempflag & ")"
'Try
If search.con.State = ConnectionState.Open Then
search.con.Close()
End If
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -