📄 com001.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
Caption = "主窗口"
ClientHeight = 9315
ClientLeft = 60
ClientTop = 420
ClientWidth = 11295
ClipControls = 0 'False
DrawMode = 4 'Mask Not Pen
DrawStyle = 5 'Transparent
Icon = "COM001.frx":0000
LinkTopic = "输出控制"
MaxButton = 0 'False
MouseIcon = "COM001.frx":0442
Picture = "COM001.frx":0884
ScaleHeight = 9315
ScaleWidth = 11295
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer2
Left = 10440
Top = 6000
End
Begin VB.Timer Timer1
Left = 9720
Top = 6000
End
Begin VB.CommandButton Command2
Caption = "电控1"
Height = 615
Left = 7440
Style = 1 'Graphical
TabIndex = 3
Top = 5280
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "电控1"
Height = 615
Left = 2400
MaskColor = &H000000FF&
MouseIcon = "COM001.frx":65B47
Style = 1 'Graphical
TabIndex = 2
Top = 5280
Width = 1455
End
Begin MSCommLib.MSComm MSComm1
Left = 9720
Top = 8040
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Label Label2
Caption = " 电气控制台"
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 855
Left = 2520
TabIndex = 1
Top = 3000
Width = 6615
End
Begin VB.Label Label1
Caption = $"COM001.frx":65F89
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 1215
Left = 1440
TabIndex = 0
Top = 1440
Width = 8295
WordWrap = -1 'True
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public out_A1 As Boolean
Public out_A2 As Boolean
Public out_A3 As Boolean
Public out_A4 As Boolean
Public out_A5 As Boolean
Public out_A6 As Boolean
Public out_A7 As Boolean
Public out_A8 As Boolean
Public out_A9 As Boolean
Public out_A10 As Boolean
Public out_A11 As Boolean
Public out_A12 As Boolean
Public out_A13 As Boolean
Public out_A14 As Boolean
Public out_A15 As Boolean
Public out_A16 As Boolean
Public in_A1 As Boolean
Public in_A2 As Boolean
Public in_A3 As Boolean
Public in_A4 As Boolean
Public in_A5 As Boolean
Public in_A6 As Boolean
Public in_A7 As Boolean
Public in_A8 As Boolean
Public in_A9 As Boolean
Public in_A10 As Boolean
Public in_A11 As Boolean
Public in_A12 As Boolean
Public in_A13 As Boolean
Public in_A14 As Boolean
Public in_A15 As Boolean
Public in_A16 As Boolean
Public out_B1 As Boolean
Public out_B2 As Boolean
Public out_B3 As Boolean
Public out_B4 As Boolean
Public out_B5 As Boolean
Public out_B6 As Boolean
Public out_B7 As Boolean
Public out_B8 As Boolean
Public out_B9 As Boolean
Public out_B10 As Boolean
Public out_B11 As Boolean
Public out_B12 As Boolean
Public out_B13 As Boolean
Public out_B14 As Boolean
Public out_B15 As Boolean
Public out_B16 As Boolean
Public in_B1 As Boolean
Public in_B2 As Boolean
Public in_B3 As Boolean
Public in_B4 As Boolean
Public in_B5 As Boolean
Public in_B6 As Boolean
Public in_B7 As Boolean
Public in_B8 As Boolean
Public in_B9 As Boolean
Public in_B10 As Boolean
Public in_B11 As Boolean
Public in_B12 As Boolean
Public in_B13 As Boolean
Public in_B14 As Boolean
Public in_B15 As Boolean
Public in_B16 As Boolean
Public A1_flag As Boolean
Public A2_flag As Boolean
Public A3_flag As Boolean
Public A4_flag As Boolean
Public A5_flag As Boolean
Public A6_flag As Boolean
Public A7_flag As Boolean
Public A8_flag As Boolean
Public A9_flag As Boolean
Public A10_flag As Boolean
Public A11_flag As Boolean
Public A12_flag As Boolean
Public A13_flag As Boolean
Public A14_flag As Boolean
Public B1_flag As Boolean
Public B2_flag As Boolean
Public B3_flag As Boolean
Public B4_flag As Boolean
Public B5_flag As Boolean
Public B6_flag As Boolean
Public B7_flag As Boolean
Public B8_flag As Boolean
Public B9_flag As Boolean
Public B10_flag As Boolean
Public B11_flag As Boolean
Public B12_flag As Boolean
Public B13_flag As Boolean
Public B14_flag As Boolean
Public EN_flag As Boolean
Public send_step As Variant
Public ADD_Run As Variant
Public receive_data As String
Private Sub Command1_Click()
Form2.Visible = True
Form2.Enabled = True
End Sub
Private Sub Command2_Click()
Form3.Visible = True
Form3.Enabled = True
End Sub
Private Sub Form_Load()
out_A1 = False
out_A2 = False
out_A3 = False
out_A4 = False
out_A5 = False
out_A6 = False
out_A7 = False
out_A8 = False
out_A9 = False
out_A10 = False
out_A11 = False
out_A12 = False
out_A13 = False
out_A14 = False
out_A15 = False
out_A16 = False
in_A1 = False
in_A2 = False
in_A3 = False
in_A4 = False
in_A5 = False
in_A6 = False
in_A7 = False
in_A8 = False
in_A9 = False
in_A10 = False
in_A11 = False
in_A12 = False
in_A13 = False
in_A14 = False
in_A15 = False
in_A16 = False
out_B1 = False
out_B2 = False
out_B3 = False
out_B4 = False
out_B5 = False
out_B6 = False
out_B7 = False
out_B8 = False
out_B9 = False
out_B10 = False
out_B11 = False
out_B12 = False
out_B13 = False
out_B14 = False
out_B15 = False
out_B16 = False
in_B1 = False
in_B2 = False
in_B3 = False
in_B4 = False
in_B5 = False
in_B6 = False
in_B7 = False
in_B8 = False
in_B9 = False
in_B10 = False
in_B11 = False
in_B12 = False
in_B13 = False
in_B14 = False
in_B15 = False
in_B16 = False
Form2.Visible = False
Form2.Enabled = False
Form3.Visible = False
Form3.Enabled = False
A1_flag = False
A2_flag = False
A3_flag = False
A4_flag = False
A5_flag = False
A6_flag = False
A7_flag = False
A8_flag = False
A9_flag = False
A10_flag = False
A11_flag = False
A12_flag = False
A13_flag = False
A14_flag = False
B1_flag = False
B2_flag = False
B3_flag = False
B4_flag = False
B5_flag = False
B6_flag = False
B7_flag = False
B8_flag = False
B9_flag = False
B10_flag = False
B11_flag = False
B12_flag = False
B13_flag = False
B14_flag = False
EN_flag = False
ADD_Run = 0
send_step = 0
Timer2.Interval = 10
Timer2.Enabled = True
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.Handshaking = 1
MSComm1.InBufferSize = 24 '初始化串口
MSComm1.InBufferCount = 0
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End
End Sub
Private Sub MSComm1_OnComm()
Dim str(24) As String
Dim cha_1 As Variant
Dim cha_2 As Variant
Dim out_val As Variant
Dim receive_Mid As String
If MSComm1.CommEvent = comEvReceive Then
receive_data = receive_data + MSComm1.Input
'MSComm1.InBufferCount = 0
str(0) = Mid(receive_data, 1, 1)
str(1) = Mid(receive_data, 2, 1)
str(2) = Mid(receive_data, 3, 1)
str(3) = Mid(receive_data, 4, 1)
str(4) = Mid(receive_data, 5, 1)
str(5) = Mid(receive_data, 6, 1)
str(6) = Mid(receive_data, 7, 1)
str(7) = Mid(receive_data, 8, 1)
str(8) = Mid(receive_data, 9, 1)
str(9) = Mid(receive_data, 10, 1)
str(10) = Mid(receive_data, 11, 1)
str(11) = Mid(receive_data, 12, 1)
str(12) = Mid(receive_data, 13, 1)
str(13) = Mid(receive_data, 14, 1)
str(14) = Mid(receive_data, 15, 1)
str(15) = Mid(receive_data, 16, 1)
str(16) = Mid(receive_data, 17, 1)
str(17) = Mid(receive_data, 18, 1)
str(18) = Mid(receive_data, 19, 1)
str(19) = Mid(receive_data, 20, 1)
str(20) = Mid(receive_data, 21, 1)
str(21) = Mid(receive_data, 22, 1)
If (str(0) = "I") And (str(1) = "(") And (str(4) = ",") And (str(21) = ")") Then
cha_1 = str(2)
cha_2 = str(3)
ADD_Run = cha_1 * 10 + cha_2
receive_data = receive_Mid
MSComm1.InBufferCount = 0
If (ADD_Run = 0) Then
out_val = str(5)
in_A1 = out_val
out_val = str(6)
in_A2 = out_val
out_val = str(7)
in_A3 = out_val
out_val = str(8)
in_A4 = out_val
out_val = str(9)
in_A5 = out_val
out_val = str(10)
in_A6 = out_val
out_val = str(11)
in_A7 = out_val
out_val = str(12)
in_A8 = out_val
out_val = str(13)
in_A9 = out_val
out_val = str(14)
in_A10 = out_val
out_val = str(15)
in_A11 = out_val
out_val = str(16)
in_A12 = out_val
out_val = str(17)
in_A13 = out_val
out_val = str(18)
in_A14 = out_val
out_val = str(19)
in_A15 = out_val
out_val = str(20)
in_A16 = out_val
End If
If (ADD_Run = 1) Then
out_val = str(5)
in_B1 = out_val
out_val = str(6)
in_B2 = out_val
out_val = str(7)
in_B3 = out_val
out_val = str(8)
in_B4 = out_val
out_val = str(9)
in_B5 = out_val
out_val = str(10)
in_B6 = out_val
out_val = str(11)
in_B7 = out_val
out_val = str(12)
in_B8 = out_val
out_val = str(13)
in_B9 = out_val
out_val = str(14)
in_B10 = out_val
out_val = str(15)
in_B11 = out_val
out_val = str(16)
in_B12 = out_val
out_val = str(17)
in_B13 = out_val
out_val = str(18)
in_B14 = out_val
out_val = str(19)
in_B15 = out_val
out_val = str(20)
in_B16 = out_val
End If
End If
If (str(0) = "R") And (str(1) = "(") And (str(4) = ",") And (str(19) = ")") Then
cha_1 = str(2)
cha_2 = str(3)
ADD_Run = cha_1 * 10 + cha_2
MSComm1.InBufferCount = 0
receive_data = receive_Mid
MSComm1.InBufferCount = 0
If (ADD_Run = 0) Then
out_val = str(5)
out_A1 = out_val
out_val = str(6)
out_A2 = out_val
out_val = str(7)
out_A3 = out_val
out_val = str(8)
out_A4 = out_val
out_val = str(9)
out_A5 = out_val
out_val = str(10)
out_A6 = out_val
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -