📄 form1.frm
字号:
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 11
OIDStr = &H33E '下行输出过功率告警（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 12
OIDStr = &H340 '上行输出过功率告警（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 13
OIDStr = &H341 '下行驻波比告警（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 14
OIDStr = &H3A0 '下行功放过温告警（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 15
OIDStr = &H3A2 '上行功放过温告警（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 16
OIDStr = &H3A4 '上行驻波比告警（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 17
OIDStr = &H3A7 '下行功放过温告警（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 18
OIDStr = &H3A9 '上行功放过温告警（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 19
OIDStr = &H3AB '上行驻波比告警（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 20
OIDStr = &H3AE '下行功放过温告警（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 21
OIDStr = &H3B0 '上行功放过温告警（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 22
OIDStr = &H3B2 '上行驻波比告警（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 23
OIDStr = &H3B5 'FAN1转速故障告警
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 24
OIDStr = &H3B6 'FAN2转速故障告警
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 25
OIDStr = &H3B7 'FAN3转速故障告警
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 26
OIDStr = &H3B8 'FAN4转速故障告警
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 27
OIDStr = &H3BB '上行输入过功率告警（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 28
OIDStr = &H3BC '上行输入过功率告警（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 29
OIDStr = &H3BD '上行输入过功率告警（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
End Select
If nstep > 29 Then
' nstep = 0
TimerAlm.Enabled = False
If AllTextFlag = True Then
AllTextFlag = False
End If
End If
ProgressBar1.Value = nstep
End Sub
Private Sub TimerMsg_Timer()
OLStr = 4
Select Case nstep
Case 0
OIDStr = &H501 '系统温度值
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 1
OIDStr = &H510 '下行输入功率电平（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 2
OIDStr = &H511 '下行输出功率电平（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 3
OIDStr = &H514 '上行输出功率电平（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 4
OIDStr = &H515 '下行驻波比值（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 5
OIDStr = &H516 '下行输入功率电平（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 6
OIDStr = &H517 '下行输出功率电平（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 7
OIDStr = &H51A '上行输出功率电平（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 8
OIDStr = &H51B '下行驻波比值（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 9
OIDStr = &H51C '下行输入功率电平（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 10
OIDStr = &H51D '下行输出功率电平（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 11
OIDStr = &H520 '上行输出功率电平（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 12
OIDStr = &H521 '下行驻波比值（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 13
OIDStr = &H5A0 '下行功放温度值（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 14
OIDStr = &H5A2 '上行功放温度值（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 15
OIDStr = &H5A4 '上行驻波比（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 16
OIDStr = &H5A7 '下行功放温度值（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 17
OIDStr = &H5A9 '上行功放温度值（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 18
OIDStr = &H5AB '上行驻波比（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 19
OIDStr = &H5AE '下行功放温度值（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 20
OIDStr = &H5B0 '上行功放温度值（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 21
OIDStr = &H5B2 '上行驻波比（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 22
OIDStr = &H5B5 '下行功放通信状态（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 23
OIDStr = &H5B6 '上行功放通信状态（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 24
OIDStr = &H5B7 '下行功放通信状态（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 25
OIDStr = &H5B8 '上行功放通信状态（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 26
OIDStr = &H5B9 '下行功放通信状态（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 27
OIDStr = &H5BA '上行功放通信状态（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 28
OIDStr = &H5BB '下行信号旁路状态（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 29
OIDStr = &H5BC '上行信号旁路状态（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 30
OIDStr = &H5BD '下行信号旁路状态（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 31
OIDStr = &H5BE '上行信号旁路状态（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 32
OIDStr = &H5BF '下行信号旁路状态（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 33
OIDStr = &H5C0 '上行信号旁路状态（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 34
OLStr = 5
OIDStr = &H5C1 'FAN1转速
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 35
OLStr = 5
OIDStr = &H5C2 'FAN2转速
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 36
OLStr = 5
OIDStr = &H5C3 'FAN3转速
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 37
OLStr = 5
OIDStr = &H5C4 'FAN4转速
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 38
OIDStr = &H5C7 '上行输入功率电平（通道1）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 39
OIDStr = &H5C8 '上行输入功率电平（通道2）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
Case 40
OIDStr = &H5C9 '上行输入功率电平（通道3）
GetDeviceData
If tmpnstepData = "" Then
Delay (3000)
End If
End Select
If nstep > 40 Then
' nstep = 0
TimerMsg.Enabled = False
If AllTextFlag = True Then
CmdReadAlm_Click
End If
End If
ProgressBar1.Value = nstep
End Sub
Private Sub TVMonitor_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Set curNode = TVMonitor.HitTest(x, y)
If Not (curNode Is Nothing) Then
curNode.Selected = True
If curNode.Tag = "0" Then
addLocation.Enabled = True
delLocation.Enabled = False
PopupMenu menuLocation
End If
If curNode.Tag = "1" Then
addLocation.Enabled = False
delLocation.Enabled = True
PopupMenu menuLocation
End If
End If
ElseIf Button = 1 Then
Set curNode = TVMonitor.HitTest(x, y)
' If curNode.Checked = False Then
' curNode.Checked = True
' End If
If LasNode Is Nothing Or curNode Is Nothing Then
'txtDevice.Text = ""
'txtSiteNo.Text = ""
Set LasNode = curNode
ElseIf LasNode.Index <> curNode.Index Then
txtDevice.Text = ""
txtSiteNo.Text = ""
Set LasNode = curNode
End If
If curNode Is Nothing Then
Else
ProgressBar1.Visible = False
curNode.Selected = True
CtrlIndex = Mid(curNode.Key, 4)
DoEvents
If curNode.Tag = "1" Then
DoEvents
Connect Locations(CtrlIndex).IP, Locations(CtrlIndex).Port
OIDStr = &H5
OLStr = &H17
GetDeviceData
Delay1 (100)
OIDStr = &H101
OLStr = &H7
GetDeviceData
End If
End If
End If
End Sub
Private Sub TVMonitor_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim tmpNode As Node
Set tmpNode = TVMonitor.HitTest(x, y)
If Not (tmpNode Is Nothing) Then
TVMonitor.ToolTipText = Locations(Mid(tmpNode.Key, 4)).IP
End If
End Sub
Private Sub addlocation_Click()
FrmNode.nLevel = 1
FrmNode.Show 1
End Sub
Private Sub dellocation_click()
DeleteNode curNode
End Sub
Public Function AddMonitorNode(ByVal sKey As String, ByVal sText As String, ByVal nLevel As Integer) As Node
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -