form1.frm

监控程序

        AlmDisplay strdata1, lastdata
    Case "3A4"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行驻波比告警（通道1）"
        strdata1 = "上行驻波比告警（通道1）"
        AlmDisplay strdata1, lastdata
    Case "3A7"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放过温告警（通道2）"
        strdata1 = "下行功放过温告警（通道2）"
        AlmDisplay strdata1, lastdata
    Case "3A9"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放过温告警（通道2）"
        strdata1 = "上行功放过温告警（通道2）"
        AlmDisplay strdata1, lastdata
    Case "3AB"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行驻波比告警（通道2）"
        strdata1 = "上行驻波比告警（通道2）"
        AlmDisplay strdata1, lastdata
    Case "3AE"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放过温告警（通道3）"
        strdata1 = "下行功放过温告警（通道3）"
        AlmDisplay strdata1, lastdata
    Case "3B0"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放过温告警（通道3）"
        strdata1 = "上行功放过温告警（通道3）"
        AlmDisplay strdata1, lastdata
    Case "3B2"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行驻波比告警（通道3）"
        strdata1 = "上行驻波比告警（通道3）"
        AlmDisplay strdata1, lastdata
    Case "3B5"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN1转速故障告警"
        strdata1 = "FAN1转速故障告警"
        AlmDisplay strdata1, lastdata
    Case "3B6"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN2转速故障告警"
        strdata1 = "FAN2转速故障告警"
        AlmDisplay strdata1, lastdata
    Case "3B7"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN3转速故障告警"
        strdata1 = "FAN3转速故障告警"
        AlmDisplay strdata1, lastdata
    Case "3B8"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN4转速故障告警"
        strdata1 = "FAN4转速故障告警"
        AlmDisplay strdata1, lastdata
    Case "3BB"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输入过功率告警（通道1）"
        strdata1 = "上行输入过功率告警（通道1）"
        AlmDisplay strdata1, lastdata
    Case "3BC"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输入过功率告警（通道2）"
        strdata1 = "上行输入过功率告警（通道2）"
        AlmDisplay strdata1, lastdata
    Case "3BD"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输入过功率告警（通道3）"
        strdata1 = "上行输入过功率告警（通道3）"
        AlmDisplay strdata1, lastdata
    Case "501"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "系统温度值"
        strdata = AscW(lastdata) - 256 & "'C"
        strdata1 = "系统温度值"
        MsgDisplay strdata1, strdata
    Case "510"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行输入功率电平（通道1）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "下行输入功率电平（通道1）"
        MsgDisplay strdata1, strdata
    Case "511"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行输出功率电平（通道1）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "下行输出功率电平（通道1）"
        MsgDisplay strdata1, strdata
    Case "514"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输出功率电平（通道1）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "上行输出功率电平（通道1）"
        MsgDisplay strdata1, strdata
    Case "515"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行驻波比值（通道1）"
        strdata = AscW(lastdata)
        strdata1 = "下行驻波比值（通道1）"
        MsgDisplay strdata1, strdata
    Case "516"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行输入功率电平（通道2）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "下行输入功率电平（通道2）"
        MsgDisplay strdata1, strdata
    Case "517"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行输出功率电平（通道2）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "下行输出功率电平（通道2）"
        MsgDisplay strdata1, strdata
    Case "51A"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输出功率电平（通道2）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "上行输出功率电平（通道2）"
        MsgDisplay strdata1, strdata
    Case "51B"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行驻波比值（通道2）"
        strdata1 = "下行驻波比值（通道2）"
        strdata = AscW(lastdata)
        MsgDisplay strdata1, strdata
    Case "51C"
'       .Row = nRow + 1
'        .Col = 0
'        .Text = "下行输入功率电平（通道3）"
        strdata1 = "下行输入功率电平（通道3）"
        strdata = AscW(lastdata) & "dBm"
        MsgDisplay strdata1, strdata
    Case "51D"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行输出功率电平（通道3）"
        strdata1 = "下行输出功率电平（通道3）"
        strdata = AscW(lastdata) & "dBm"
        MsgDisplay strdata1, strdata
    Case "520"
'       .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输出功率电平（通道3）"
        strdata1 = "上行输出功率电平（通道3）"
        strdata = AscW(lastdata) & "dBm"
        MsgDisplay strdata1, strdata
    Case "521"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行驻波比值（通道3）"
        strdata1 = "下行驻波比值（通道3）"
        strdata = AscW(lastdata)
        MsgDisplay strdata1, strdata
    Case "5A0"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放温度值（通道1）"
        strdata1 = "下行功放温度值（通道1）"
        strdata = AscW(lastdata) & "'C"
        MsgDisplay strdata1, strdata
    Case "5A2"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放温度值（通道1）"
        strdata1 = "上行功放温度值（通道1）"
        strdata = AscW(lastdata) & "'C"
        MsgDisplay strdata1, strdata
    Case "5A4"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行驻波比（通道1）"
        strdata1 = "上行驻波比（通道1）"
        strdata = AscW(lastdata)
        MsgDisplay strdata1, strdata
    Case "5A7"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放温度值（通道2）"
        strdata1 = "下行功放温度值（通道2）"
        strdata = AscW(lastdata) & "'C"
        MsgDisplay strdata1, strdata
    Case "5A9"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放温度值（通道2）"
        strdata1 = "上行功放温度值（通道2）"
        strdata = AscW(lastdata) & "'C"
        MsgDisplay strdata1, strdata
    Case "5AB"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行驻波比（通道2）"
        strdata1 = "上行驻波比（通道2）"
        strdata = AscW(lastdata)
        MsgDisplay strdata1, strdata
    Case "5AE"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放温度值（通道3）"
        strdata1 = "下行功放温度值（通道3）"
        strdata = AscW(lastdata) & "'C"
        MsgDisplay strdata1, strdata
    Case "5B0"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放温度值（通道3）"
        strdata1 = "上行功放温度值（通道3）"
        strdata = AscW(lastdata) & "'C"
        MsgDisplay strdata1, strdata
    Case "5B2"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行驻波比（通道3）"
        strdata1 = "上行驻波比（通道3）"
        strdata = AscW(lastdata)
        MsgDisplay strdata1, strdata
    Case "5B5"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放通信状态（通道1）"
        If AscW(lastdata) = 1 Then
            strdata = "工作"
        ElseIf AscW(lastdata) = 0 Then
            strdata = "停止"
        End If
        strdata1 = "下行功放通信状态（通道1）"
        MsgDisplay strdata1, strdata
    Case "5B6"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放通信状态（通道1）"
        If AscW(lastdata) = 1 Then
            strdata = "工作"
        ElseIf AscW(lastdata) = 0 Then
            strdata = "停止"
        End If
        strdata1 = "上行功放通信状态（通道1）"
        MsgDisplay strdata1, strdata
    Case "5B7"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放通信状态（通道2）"
        If AscW(lastdata) = 1 Then
            strdata = "工作"
        ElseIf AscW(lastdata) = 0 Then
            strdata = "停止"
        End If
        strdata1 = "下行功放通信状态（通道2）"
        MsgDisplay strdata1, strdata
    Case "5B8"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放通信状态（通道2）"
        If AscW(lastdata) = 1 Then
            strdata = "工作"
        ElseIf AscW(lastdata) = 0 Then
            strdata = "停止"
        End If
        strdata1 = "上行功放通信状态（通道2）"
        MsgDisplay strdata1, strdata
    Case "5B9"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行功放通信状态（通道3）"
        If AscW(lastdata) = 1 Then
            strdata = "工作"
        ElseIf AscW(lastdata) = 0 Then
            strdata = "停止"
        End If
        strdata1 = "下行功放通信状态（通道3）"
        MsgDisplay strdata1, strdata
    Case "5BA"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行功放通信状态（通道3）"
        If AscW(lastdata) = 1 Then
            strdata = "工作"
        ElseIf AscW(lastdata) = 0 Then
            strdata = "停止"
        End If
        strdata1 = "上行功放通信状态（通道3）"
        MsgDisplay strdata1, strdata
    Case "5BB"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行信号旁路状态（通道1）"
        If AscW(lastdata) = 0 Then
            strdata = "正常"
        ElseIf AscW(lastdata) = 1 Then
            strdata = "不正常"
        End If
        strdata1 = "下行信号旁路状态（通道1）"
        MsgDisplay strdata1, strdata
    Case "5BC"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行信号旁路状态（通道1）"
        If AscW(lastdata) = 0 Then
            strdata = "正常"
        ElseIf AscW(lastdata) = 1 Then
            strdata = "不正常"
        End If
        strdata1 = "上行信号旁路状态（通道1）"
        MsgDisplay strdata1, strdata
    Case "5BD"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行信号旁路状态（通道2）"
        If AscW(lastdata) = 0 Then
            strdata = "正常"
        ElseIf AscW(lastdata) = 1 Then
            strdata = "不正常"
        End If
        strdata1 = "下行信号旁路状态（通道2）"
        MsgDisplay strdata1, strdata
    Case "5BE"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行信号旁路状态（通道2）"
        If AscW(lastdata) = 0 Then
            strdata = "正常"
        ElseIf AscW(lastdata) = 1 Then
            strdata = "不正常"
        End If
        strdata1 = "上行信号旁路状态（通道2）"
        MsgDisplay strdata1, strdata
    Case "5BF"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "下行信号旁路状态（通道3）"
        If AscW(lastdata) = 0 Then
            strdata = "正常"
        ElseIf AscW(lastdata) = 1 Then
            strdata = "不正常"
        End If
        strdata1 = "下行信号旁路状态（通道3）"
        MsgDisplay strdata1, strdata
    Case "5C0"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行信号旁路状态（通道3）"
        If AscW(lastdata) = 0 Then
            strdata = "正常"
        ElseIf AscW(lastdata) = 1 Then
            strdata = "不正常"
        End If
        strdata1 = "上行信号旁路状态（通道3）"
        MsgDisplay strdata1, strdata
    Case "5C1"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN1转速"
        strdata = AscW(Mid(lastdata, 1, 1)) * 256 + AscW(Mid(lastdata, 2, 1)) & "Rev"
        strdata1 = "FAN1转速"
        MsgDisplay strdata1, strdata
    Case "5C2"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN2转速"
        strdata = AscW(Mid(lastdata, 1, 1)) * 256 + AscW(Mid(lastdata, 2, 1)) & "Rev"
        strdata1 = "FAN2转速"
        MsgDisplay strdata1, strdata
    Case "5C3"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN3转速"
        strdata = AscW(Mid(lastdata, 1, 1)) * 256 + AscW(Mid(lastdata, 2, 1)) & "Rev"
        strdata1 = "FAN3转速"
        MsgDisplay strdata1, strdata
    Case "5C4"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "FAN4转速"
        strdata = AscW(Mid(lastdata, 1, 1)) * 256 + AscW(Mid(lastdata, 2, 1)) & "Rev"
        strdata1 = "FAN4转速"
        MsgDisplay strdata1, strdata
    Case "5C7"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输入功率电平（通道1）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "上行输入功率电平（通道1）"
        MsgDisplay strdata1, strdata
    Case "5C8"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输入功率电平（通道2）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "上行输入功率电平（通道2）"
        MsgDisplay strdata1, strdata
    Case "5C9"
'        .Row = nRow + 1
'        .Col = 0
'        .Text = "上行输入功率电平（通道3）"
        strdata = AscW(lastdata) & "dBm"
        strdata1 = "上行输入功率电平（通道3）"
        MsgDisplay strdata1, strdata
    End Select
End With
End Sub
Private Sub AlmDisplay(ByVal str1 As String, ByVal str As String)
Dim TmpStr As String
With MSFlexGrid1
    If AscW(str) = 0 Then
        TmpStr = "正常"
        .AddItem str1 & vbTab & TmpStr
    ElseIf AscW(str) = 1 Then
    '    .CellForeColor = vbRed
    '    .ForeColor = vbBlue
        TmpStr = "告警！！！"
        .AddItem str1 & vbTab & TmpStr
     '   .CellForeColor = vbRed
        .ForeColorSel = vbRed
        FrmAutoAlm.Alert
    End If
End With
End Sub
Private Sub MsgDisplay(ByVal str1 As String, ByVal str As String)
With MSFlexGrid1
    .AddItem str1 & vbTab & str
End With

End Sub
Private Sub ResetMSF()
Dim i As Integer
'    For i = 1 To str
'        MSFlexGrid1.Row = i
'        MSFlexGrid1.Col = 0
'        MSFlexGrid1.CellForeColor = vbBlack
'        MSFlexGrid1.Text = ""
'        MSFlexGrid1.Col = 1
'        MSFlexGrid1.Text = ""
'        MSFlexGrid1.CellForeColor = vbBlack
'    Next i
    MSFlexGrid1.Clear
End Sub