loaddata.vb

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

            End If
            '''''平衡功率
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitBalancePo")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitBalancePo")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitBalancePo.Low = dTemp(0)
                trans.ParaLowOrHigh.unitBalancePo.High = dTemp(1)
                trans.ParaLowOrHigh.unitBalancePo.isUse = dTemp(2)
            End If
            '''''电压
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitVol")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitVol")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitVol.Low = dTemp(0)
                trans.ParaLowOrHigh.unitVol.High = dTemp(1)
                trans.ParaLowOrHigh.unitVol.isUse = dTemp(2)
            End If
            '''''温度
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitTemp")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitTemp")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitTemp.Low = dTemp(0)
                trans.ParaLowOrHigh.unitTemp.High = dTemp(1)
                trans.ParaLowOrHigh.unitTemp.isUse = dTemp(2)
            End If
            '''''推动电流1
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCurP1")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCurP1")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCurP1.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCurP1.High = dTemp(1)
                trans.ParaLowOrHigh.unitCurP1.isUse = dTemp(2)
            End If
            '''''推动电流2
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCurP2")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCurP2")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCurP2.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCurP2.High = dTemp(1)
                trans.ParaLowOrHigh.unitCurP2.isUse = dTemp(2)
            End If
            '''''电流1
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur1")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur1")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur1.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur1.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur1.isUse = dTemp(2)
            End If
            '''''电流2
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur2")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur2")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur2.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur2.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur2.isUse = dTemp(2)
            End If
            '''''电流3
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur3")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur3")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur3.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur3.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur3.isUse = dTemp(2)
            End If
            '''''电流4
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur4")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur4")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur4.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur4.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur4.isUse = dTemp(2)
            End If
            '''''电流5
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur5")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur5")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur5.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur5.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur5.isUse = dTemp(2)
            End If
            '''''电流6
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur6")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur6")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur6.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur6.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur6.isUse = dTemp(2)
            End If
            '''''电流7
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur7")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur7")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur7.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur7.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur7.isUse = dTemp(2)
            End If
            '''''电流8
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("unitCur8")) Then
                strTemp = ds.Tables(0).Rows(0).Item("unitCur8")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.unitCur8.Low = dTemp(0)
                trans.ParaLowOrHigh.unitCur8.High = dTemp(1)
                trans.ParaLowOrHigh.unitCur8.isUse = dTemp(2)
            End If
            '********************************激励器参数
            '''''输出功率　单位：ｗ
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dFwr")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dFwr")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dFwr.Low = dTemp(0)
                trans.ParaLowOrHigh.dFwr.High = dTemp(1)
                trans.ParaLowOrHigh.dFwr.isUse = dTemp(2)
            End If
            '''''反射功率　单位：ｗ
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dRflp")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dRflp")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dRflp.Low = dTemp(0)
                trans.ParaLowOrHigh.dRflp.High = dTemp(1)
                trans.ParaLowOrHigh.dRflp.isUse = dTemp(2)
            End If
            '''''温度
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dTemp")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dTemp")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dTemp.Low = dTemp(0)
                trans.ParaLowOrHigh.dTemp.High = dTemp(1)
                trans.ParaLowOrHigh.dTemp.isUse = dTemp(2)
            End If
            '''''电流
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dCur")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dCur")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dCur.Low = dTemp(0)
                trans.ParaLowOrHigh.dCur.High = dTemp(1)
                trans.ParaLowOrHigh.dCur.isUse = dTemp(2)
            End If
            '''''电压
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dVol")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dVol")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dVol.Low = dTemp(0)
                trans.ParaLowOrHigh.dVol.High = dTemp(1)
                trans.ParaLowOrHigh.dVol.isUse = dTemp(2)
            End If
            '''''调制度
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dModulazione")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dModulazione")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dModulazione.Low = dTemp(0)
                trans.ParaLowOrHigh.dModulazione.High = dTemp(1)
                trans.ParaLowOrHigh.dModulazione.isUse = dTemp(2)
            End If
            '''''左声道输入电平　单位：％
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dLeft")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dLeft")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dLeft.Low = dTemp(0)
                trans.ParaLowOrHigh.dLeft.High = dTemp(1)
                trans.ParaLowOrHigh.dLeft.isUse = dTemp(2)
            End If
            '''''右声道输入电平　单位：％
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dRight")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dRight")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dRight.Low = dTemp(0)
                trans.ParaLowOrHigh.dRight.High = dTemp(1)
                trans.ParaLowOrHigh.dRight.isUse = dTemp(2)
            End If
            '''''音频调制度
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dRideoMod")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dRideoMod")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dRideoMod.Low = dTemp(0)
                trans.ParaLowOrHigh.dRideoMod.High = dTemp(1)
                trans.ParaLowOrHigh.dRideoMod.isUse = dTemp(2)
            End If
            '''''视频调制度
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dRideoMod")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dRideoMod")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dRideoMod.Low = dTemp(0)
                trans.ParaLowOrHigh.dRideoMod.High = dTemp(1)
                trans.ParaLowOrHigh.dRideoMod.isUse = dTemp(2)
            End If
            '''''图像伴音比
            If Not IsDBNull(ds.Tables(0).Rows(0).Item("dBan")) Then
                strTemp = ds.Tables(0).Rows(0).Item("dBan")
                dTemp = GetLowOrHigh(strTemp)
                trans.ParaLowOrHigh.dBan.Low = dTemp(0)
                trans.ParaLowOrHigh.dBan.High = dTemp(1)
                trans.ParaLowOrHigh.dBan.isUse = dTemp(2)
            End If
        End If
    End Sub
    Public Shared Function GetLowOrHigh(ByVal transUpDown As String) As Double()
        Dim LowOrHigh(2) As Double
        Dim ipos As Integer
        Dim epos As Integer
        ipos = 0
        epos = 0
        LowOrHigh(0) = 0
        LowOrHigh(1) = 0
        LowOrHigh(2) = 0
        ipos = InStr(1, Trim(transUpDown), ",", CompareMethod.Text)
        If ipos > 0 Then
            LowOrHigh(0) = Mid(Trim(transUpDown), 1, ipos - 1)
            epos = InStr(ipos + 1, Trim(transUpDown), ",", CompareMethod.Text)
            LowOrHigh(1) = Mid(Trim(transUpDown), ipos + 1, epos - ipos - 1)
            ipos = epos
            epos = Len(Trim(transUpDown))
            LowOrHigh(2) = Mid(Trim(transUpDown), ipos + 1, epos - ipos)
        End If
        GetLowOrHigh = LowOrHigh
    End Function
    ''*****************************'加载凯腾电视发射机基本信息******************************
    Public Shared Sub LoadTransmitKT()
        Dim QueryString As String
        Dim i As Integer
        Dim ds As DataSet
        QueryString = "select * from equipments where  equType=2 and traType=1 order by equNum asc "
        Try
            ds = search.query(QueryString)
            If ds.Tables(0).Rows.Count > 0 Then '''''动态数组  
                ReDim TransKT(ds.Tables(0).Rows.Count - 1)
                For i = 0 To ds.Tables(0).Rows.Count - 1
                    '''''''''''''''''''初始化设备信息
                    TransKT(i) = New TransmitKT
                    TransKT(i).TransmitID = ds.Tables(0).Rows(i).Item("equNum")                   '''设备编号
                    TransKT(i).TransmitName = ds.Tables(0).Rows(i).Item("equName")                '''设备名称
                    TransKT(i).TraType = ds.Tables(0).Rows(i).Item("equType")                     '''设备厂家类型
                    TransKT(i).TransmitPower = ds.Tables(0).Rows(i).Item("equPower")              '''功率类型
                    TransKT(i).TransmitModel = ds.Tables(0).Rows(i).Item("equModel")              '''设备型号
                    TransKT(i).TransmitAddr = ds.Tables(0).Rows(i).Item("equAddress")             '''设备地址
                    TransKT(i).TransmitType = ds.Tables(0).Rows(i).Item("traType")                '''发射机类型
                    TransKT(i).MainExciter = ds.Tables(0).Rows(i).Item("equMainExcType")          '''主激励器类型
                    TransKT(i).StandbyExciter = ds.Tables(0).Rows(i).Item("equStandbyExcType")    '''备激励器类型
                    TransKT(i).AmpCount = ds.Tables(0).Rows(i).Item("unitCount")                  '''功放插件个数
                    TransKT(i).Port = ds.Tables(0).Rows(i).Item("port")                           '''对应通讯串口号
                    TransKT(i).PortPara = ds.Tables(0).Rows(i).Item("portPara")                   '''通讯参数
                    TransKT(i).CommType = ds.Tables(0).Rows(i).Item("commType")                   '''通讯方式
                    TransKT(i).State = ds.Tables(0).Rows(i).Item("state")                         '''设备状态
                    ' LoadOpenClose(TransKT(i))