frmautoalm.frm

监控程序

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form FrmAutoAlm 
   Caption         =   "自动报警"
   ClientHeight    =   4965
   ClientLeft      =   4140
   ClientTop       =   3030
   ClientWidth     =   5865
   LinkTopic       =   "Form1"
   ScaleHeight     =   4965
   ScaleWidth      =   5865
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   200
      Left            =   5280
      Top             =   0
   End
   Begin VB.CommandButton Cmdstop 
      Caption         =   "退   出"
      Height          =   495
      Left            =   3480
      TabIndex        =   3
      Top             =   4320
      Width           =   1335
   End
   Begin VB.CommandButton CmdSure 
      Caption         =   "确   定"
      Height          =   495
      Left            =   840
      TabIndex        =   2
      Top             =   4320
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   2655
      Left            =   240
      TabIndex        =   1
      Top             =   1560
      Width           =   5415
      _ExtentX        =   9551
      _ExtentY        =   4683
      _Version        =   393216
      Cols            =   1
      FixedCols       =   0
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   855
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   5175
   End
End
Attribute VB_Name = "FrmAutoAlm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Dim strdata As String
Dim AlmType As String
Private Sub Cmdstop_Click()
nRow = 0
Timer1.Enabled = False
Unload Me
End Sub
Private Sub CmdSure_Click()
Timer1.Enabled = False
End Sub

Public Sub Alert()
Dim var As Variant
Me.Show
var = Split(AutoAlmIP, ".")
AutoAlmflag = False
'Timer1.Enabled = True
strdata = "老化位" & (var(UBound(var)) + 1)
Label1.Caption = strdata
GetAutoAlm
MSFlexGrid1.AddItem strdata & Chr(9) & AlmType
End Sub


Private Sub GetAutoAlm()
Dim nRow As Integer

'With MSFlexGrid1
        Select Case OIDstrData
        Case "302"
'            .Row = nRow + 1
'            .Col = 1
            AlmType = "电源故障告警"
        Case "328"
'            .Row = nRow + 1
'            .Col = 1
            AlmType = "门禁告警"
        Case "330"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行输入过功率告警（通道1）"
    
        Case "332"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行输出过功率告警（通道1）"
    
        Case "334"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行输出过功率告警（通道1）"
    
        Case "335"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行驻波比告警（通道1）"
    
        Case "336"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行输入过功率告警（通道2）"
    
        Case "338"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行输出过功率告警（通道2）"
    
'            .Col = 0
        Case "33A"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行输出过功率告警（通道2）"
    
        Case "33B"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行驻波比告警（通道2）"
    
        Case "33C"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行输入过功率告警（通道3）"
    
        Case "33E"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行输出过功率告警（通道3）"
    
        Case "340"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行输出过功率告警（通道3）"
    
        Case "341"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行驻波比告警（通道3）"
    
        Case "3A0"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行功放过温告警（通道1）"
    
        Case "3A2"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行功放过温告警（通道1）"
    
        Case "3A4"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行驻波比告警（通道1）"
    
        Case "3A7"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行功放过温告警（通道2）"
    
        Case "3A9"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行功放过温告警（通道2）"
    
        Case "3AB"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行驻波比告警（通道2）"
    
        Case "3AE"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "下行功放过温告警（通道3）"
    
        Case "3B0"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行功放过温告警（通道3）"
      
        Case "3B2"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行驻波比告警（通道3）"
    
        Case "3B5"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "FAN1转速故障告警"
    
        Case "3B6"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "FAN2转速故障告警"
    
        Case "3B7"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "FAN3转速故障告警"
    
        Case "3B8"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "FAN4转速故障告警"
    
        Case "3BB"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行输入过功率告警（通道1）"
    
        Case "3BC"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行输入过功率告警（通道2）"
    
        Case "3BD"
'            .Row = nRow + 1
'            .Col = 0
            AlmType = "上行输入过功率告警（通道3）"
    End Select
'End With

End Sub


Private Sub Form_Load()
With MSFlexGrid1
    .Rows = 1
    .Cols = 2
    .Row = 0
    .Col = 0
    .ColWidth(0) = 2000
    .Text = "告警位置"
    .Col = 1
    .ColWidth(1) = 3000
    .Text = "告警类型"
End With

End Sub

Private Sub Timer1_Timer()

'Beep 2000, 40
End Sub