📄 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个字节数据***************************
'* 说明：主要是电源及冷却系统数据 *
'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 调频（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个字节数据***************************
'说明：系统数据
'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
'***************************************************************************
'* *
'********************* 解析吉兆电视发射机（GME1153A）数据 '**********************
'* *
'***************************************************************************
'GME1153A型分米波5KW电视发射机
'－解析激励器单元数据（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 '''视频调制度（%）
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
'－解析功放模块数据（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
'－解析系统数据（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
'********************************保存数据库记录************************************
'''保存主控单元参数、发射机整机运行日志表－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, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
'End Try
End Sub
'''保存RVR激励器单元参数、发射机激励器运行日志表－tranExciterRunLogRVR（主要针对吉兆调频发射机）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, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
'End Try
End Sub
'''保存EKA激励器单元参数、发射机激励器运行日志表－tranExciterRunLogEKA（主要针对吉兆调频发射机）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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -