📄 报警监控系统.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
Caption = " 报警监控系统"
ClientHeight = 4035
ClientLeft = 60
ClientTop = 600
ClientWidth = 7095
LinkTopic = "Form1"
ScaleHeight = 4035
ScaleWidth = 7095
StartUpPosition = 3 '窗口缺省
Begin MSCommLib.MSComm MSComm1
Left = 6240
Top = 240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.CommandButton cmdEND
Caption = "结束监控"
Height = 495
Left = 5160
TabIndex = 4
Top = 1080
Width = 1215
End
Begin VB.CommandButton cmdCNL
Caption = "取消报警"
Height = 495
Left = 3480
TabIndex = 3
Top = 1080
Width = 1095
End
Begin VB.Frame 端口选择
Caption = "端口选择"
Height = 1695
Left = 480
TabIndex = 0
Top = 480
Width = 2415
Begin VB.OptionButton Option2
Caption = "CM02"
Height = 615
Left = 1200
TabIndex = 2
Top = 480
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "CMO1"
Height = 615
Left = 120
TabIndex = 1
Top = 480
Width = 1095
End
End
Begin VB.Shape Shape6
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Left = 6240
Shape = 3 'Circle
Top = 3120
Width = 375
End
Begin VB.Shape Shape5
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Left = 5040
Shape = 3 'Circle
Top = 3120
Width = 375
End
Begin VB.Shape Shape4
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Left = 3840
Shape = 3 'Circle
Top = 3120
Width = 375
End
Begin VB.Shape Shape3
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Left = 2640
Shape = 3 'Circle
Top = 3120
Width = 375
End
Begin VB.Shape Shape2
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Left = 1440
Shape = 3 'Circle
Top = 3120
Width = 375
End
Begin VB.Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Left = 360
Shape = 3 'Circle
Top = 3120
Width = 375
End
Begin VB.Label Label6
Caption = "设备控制"
Height = 495
Left = 6000
TabIndex = 10
Top = 2520
Width = 855
End
Begin VB.Label Label5
Caption = "声光报警"
Height = 495
Left = 4800
TabIndex = 9
Top = 2520
Width = 855
End
Begin VB.Label Label4
Caption = " 通道4"
Height = 495
Left = 3600
TabIndex = 8
Top = 2520
Width = 855
End
Begin VB.Label Label3
Caption = " 通道3"
Height = 495
Left = 2400
TabIndex = 7
Top = 2520
Width = 855
End
Begin VB.Label Label2
Caption = " 通道2"
Height = 495
Left = 1200
TabIndex = 6
Top = 2520
Width = 855
End
Begin VB.Label Label1
Caption = " 通道1"
Height = 495
Left = 120
TabIndex = 5
Top = 2520
Width = 735
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub cmdCNL_Click() '取消报警及控制
Shape1.FillColor = RGB(255, 255, 255)
Shape2.FillColor = RGB(255, 255, 255)
Shape3.FillColor = RGB(255, 255, 255)
Shape4.FillColor = RGB(255, 255, 255)
Shape5.FillColor = RGB(255, 255, 255)
Shape6.FillColor = RGB(255, 255, 255)
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
End Sub
Private Sub cmdEND_Click()
MSComm1.PortOpen = False '关闭串行口,结束监控
End
End Sub
Private Sub MSComm1_OnComm() '引发OnComm事件
Select Case MSComm1.CommEvent
Case comEvCD 'CD引脚状态发生变化
If MSComm1.CDHolding Then '如CD引脚为高电平,则通道1灯为红色
Shape1.FillColor = RGB(255, 0, 0)
Shape5.FillColor = RGB(255, 0, 0) '报警和设备指示灯亮红灯
Shape6.FillColor = RGB(255, 0, 0)
MSComm1.DTREnable = True '发出报警信号并控制设备
MSComm1.RTSEnable = True
Else
Shape1.FillColor = RGB(255, 255, 255) '如CD引脚为低电平,则通道1灯为白色
Shape5.FillColor = RGB(255, 255, 255) '关闭指示灯
Shape6.FillColor = RGB(255, 255, 255)
MSComm1.DTREnable = False '取消报警和关闭设备
MSComm1.RTSEnable = False
End If
Case comEvDSR 'DSR引脚状态发生变化
If MSComm1.DSRHolding Then
Shape2.FillColor = RGB(255, 0, 0) '如DSR引脚为高电平,则通道2灯为红色
Shape5.FillColor = RGB(255, 0, 0)
Shape6.FillColor = RGB(255, 0, 0)
MSComm1.DTREnable = True
MSComm1.RTSEnable = True
Else
Shape2.FillColor = RGB(255, 255, 255) '如DSR引脚为低电平,则通道2灯为白色
Shape5.FillColor = RGB(255, 255, 255)
Shape6.FillColor = RGB(255, 255, 255)
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
End If
Case comEvCTS 'CTS引脚状态发生变化
If MSComm1.CTSHolding Then
Shape3.FillColor = RGB(255, 0, 0) '如DCTS引脚为高电平,则通道3灯为红色
Shape5.FillColor = RGB(255, 0, 0)
Shape6.FillColor = RGB(255, 0, 0)
MSComm1.DTREnable = True
MSComm1.RTSEnable = True
Else
Shape3.FillColor = RGB(255, 255, 255) '如DCTS引脚为低电平,则通道3灯为白色
Shape5.FillColor = RGB(255, 255, 255)
Shape6.FillColor = RGB(255, 255, 255)
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
End If
Case comEvRing 'RI引脚状态发生变化,则通道4灯为红色
If MSComm1.CDHolding Then
Shape4.FillColor = RGB(255, 0, 0)
Shape5.FillColor = RGB(255, 0, 0)
Shape6.FillColor = RGB(255, 0, 0)
MSComm1.DTREnable = True
MSComm1.RTSEnable = True
End Select
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub Option1_Click()
CommPort = 1 '选中COM1
End Sub
Private Sub Option2_Click()
CommPort = 2 '选中COM2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -