📄 com001.frm
字号:
out_val = str(11)
out_A7 = out_val
out_val = str(12)
out_A8 = out_val
out_val = str(13)
out_A9 = out_val
out_val = str(14)
out_A10 = out_val
out_val = str(15)
out_A11 = out_val
out_val = str(16)
out_A12 = out_val
out_val = str(17)
out_A14 = out_val
out_val = str(18)
out_A16 = out_val
End If
If (ADD_Run = 1) Then
out_val = str(5)
out_B1 = out_val
out_val = str(6)
out_B2 = out_val
out_val = str(7)
out_B3 = out_val
out_val = str(8)
out_B4 = out_val
out_val = str(9)
out_B5 = out_val
out_val = str(10)
out_B6 = out_val
out_val = str(11)
out_B7 = out_val
out_val = str(12)
out_B8 = out_val
out_val = str(13)
out_B9 = out_val
out_val = str(14)
out_B10 = out_val
out_val = str(15)
out_B11 = out_val
out_val = str(16)
out_B12 = out_val
out_val = str(17)
out_B14 = out_val
out_val = str(18)
out_B16 = out_val
End If
End If
If (str(0) = "I") And (str(1) = "E") And (str(2) = "(") And (str(5) = ")") Then
MSComm1.InBufferCount = 0
receive_data = receive_Mid
cha_1 = str(3)
cha_2 = str(4)
ADD_Run = cha_1 * 10 + cha_2
EN_flag = False
End If
End If
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
EN_flag = False
End Sub
Private Sub Timer2_Timer()
Dim Send_Mid(22) As String
Timer2.Enabled = False
If (send_step = 0) Then
receive_data = receive_Mid
MSComm1.InBufferCount = 0
If (ADD_Run = 0) Then
MSComm1.Output = "O" + "E" + "(" + "00" + ")"
ElseIf (ADD_Run = 1) Then
MSComm1.Output = "O" + "E" + "(" + "01" + ")"
End If
send_step = 1
EN_flag = True
Timer1.Enabled = True
Timer1.Interval = 100
ElseIf (send_step = 1) Then
If (EN_flag = False) Then
send_step = 2
End If
ElseIf (send_step = 2) Then
If (ADD_Run = 0) Then
If (A1_flag = True) Then
out_A1 = Not out_A1
A1_flag = False
End If
If (A2_flag = True) Then
out_A2 = Not out_A2
A2_flag = False
End If
If (A3_flag = True) Then
out_A3 = Not out_A3
A3_flag = False
End If
If (A4_flag = True) Then
out_A4 = Not out_A4
A4_flag = False
End If
If (A5_flag = True) Then
out_A5 = Not out_A5
A5_flag = False
End If
If (A6_flag = True) Then
out_A6 = Not out_A6
A6_flag = False
End If
If (A7_flag = True) Then
out_A7 = Not out_A7
A7_flag = False
End If
If (A8_flag = True) Then
out_A8 = Not out_A8
A8_flag = False
End If
If (A9_flag = True) Then
out_A9 = Not out_A9
A9_flag = False
End If
If (A10_flag = True) Then
out_A10 = Not out_A10
A10_flag = False
End If
If (A11_flag = True) Then
out_A11 = Not out_A11
A11_flag = False
End If
If (A12_flag = True) Then
out_A12 = Not out_A12
A12_flag = False
End If
If (A13_flag = True) Then
A13_flag = False
out_A13 = True
out_A14 = Not out_A14
Else
out_A13 = False
End If
If (A14_flag = True) Then
A14_flag = False
out_A15 = True
out_A16 = Not out_A16
Else
out_A15 = False
End If
Send_Mid(0) = "O" 'o
Send_Mid(1) = "("
Send_Mid(2) = "0"
Send_Mid(3) = "0"
Send_Mid(4) = ","
If (out_A1 = False) Then
Send_Mid(5) = "1"
Else
Send_Mid(5) = "0"
End If
If (out_A2 = False) Then
Send_Mid(6) = "1"
Else
Send_Mid(6) = "0"
End If
If (out_A3 = False) Then
Send_Mid(7) = "1"
Else
Send_Mid(7) = "0"
End If
If (out_A4 = False) Then
Send_Mid(8) = "1"
Else
Send_Mid(8) = "0"
End If
If (out_A5 = False) Then
Send_Mid(9) = "1"
Else
Send_Mid(9) = "0"
End If
If (out_A6 = False) Then
Send_Mid(10) = "1"
Else
Send_Mid(10) = "0"
End If
If (out_A7 = False) Then
Send_Mid(11) = "1"
Else
Send_Mid(11) = "0"
End If
If (out_A8 = False) Then
Send_Mid(12) = "1"
Else
Send_Mid(12) = "0"
End If
If (out_A9 = False) Then
Send_Mid(13) = "1"
Else
Send_Mid(13) = "0"
End If
If (out_A10 = False) Then
Send_Mid(14) = "1"
Else
Send_Mid(14) = "0"
End If
If (out_A11 = False) Then
Send_Mid(15) = "1"
Else
Send_Mid(15) = "0"
End If
If (out_A12 = False) Then
Send_Mid(16) = "1"
Else
Send_Mid(16) = "0"
End If
If (out_A13 = False) Then
Send_Mid(17) = "0"
Else
Send_Mid(17) = "1"
End If
If (out_A14 = False) Then
Send_Mid(18) = "1"
Else
Send_Mid(18) = "0"
End If
If (out_A15 = False) Then
Send_Mid(19) = "0"
Else
Send_Mid(19) = "1"
End If
If (out_A16 = False) Then
Send_Mid(20) = "1"
Else
Send_Mid(20) = "0"
End If
Send_Mid(21) = ")"
MSComm1.Output = Send_Mid(0) + Send_Mid(1) + Send_Mid(2) + Send_Mid(3) + Send_Mid(4) + Send_Mid(5) + Send_Mid(6) + Send_Mid(7) + Send_Mid(8) + Send_Mid(9) + Send_Mid(10) + Send_Mid(11) + Send_Mid(12) + Send_Mid(13) + Send_Mid(14) + Send_Mid(15) + Send_Mid(16) + Send_Mid(17) + Send_Mid(18) + Send_Mid(19) + Send_Mid(20) + Send_Mid(21)
ElseIf (ADD_Run = 1) Then
If (B1_flag = True) Then
out_B1 = Not out_B1
B1_flag = False
End If
If (B2_flag = True) Then
out_B2 = Not out_B2
B2_flag = False
End If
If (B3_flag = True) Then
out_B3 = Not out_B3
B3_flag = False
End If
If (B4_flag = True) Then
out_B4 = Not out_B4
B4_flag = False
End If
If (B5_flag = True) Then
out_B5 = Not out_B5
B5_flag = False
End If
If (B6_flag = True) Then
out_B6 = Not out_B6
B6_flag = False
End If
If (B7_flag = True) Then
out_B7 = Not out_B7
B7_flag = False
End If
If (B8_flag = True) Then
out_B8 = Not out_B8
B8_flag = False
End If
If (B9_flag = True) Then
out_B9 = Not out_B9
B9_flag = False
End If
If (B10_flag = True) Then
out_B10 = Not out_B10
B10_flag = False
End If
If (B11_flag = True) Then
out_B11 = Not out_B11
B11_flag = False
End If
If (B12_flag = True) Then
out_B12 = Not out_B12
B12_flag = False
End If
If (B13_flag = True) Then
B13_flag = False
out_B13 = True
out_B14 = Not out_B14
Else
out_B13 = False
End If
If (B14_flag = True) Then
B14_flag = False
out_B15 = True
out_B16 = Not out_B16
Else
out_B15 = False
End If
Send_Mid(0) = "O" 'o
Send_Mid(1) = "("
Send_Mid(2) = "0"
Send_Mid(3) = "1"
Send_Mid(4) = ","
If (out_B1 = False) Then
Send_Mid(5) = "1"
Else
Send_Mid(5) = "0"
End If
If (out_B2 = False) Then
Send_Mid(6) = "1"
Else
Send_Mid(6) = "0"
End If
If (out_B3 = False) Then
Send_Mid(7) = "1"
Else
Send_Mid(7) = "0"
End If
If (out_B4 = False) Then
Send_Mid(8) = "1"
Else
Send_Mid(8) = "0"
End If
If (out_B5 = False) Then
Send_Mid(9) = "1"
Else
Send_Mid(9) = "0"
End If
If (out_B6 = False) Then
Send_Mid(10) = "1"
Else
Send_Mid(10) = "0"
End If
If (out_B7 = False) Then
Send_Mid(11) = "1"
Else
Send_Mid(11) = "0"
End If
If (out_B8 = False) Then
Send_Mid(12) = "1"
Else
Send_Mid(12) = "0"
End If
If (out_B9 = False) Then
Send_Mid(13) = "1"
Else
Send_Mid(13) = "0"
End If
If (out_B10 = False) Then
Send_Mid(14) = "1"
Else
Send_Mid(14) = "0"
End If
If (out_B11 = False) Then
Send_Mid(15) = "1"
Else
Send_Mid(15) = "0"
End If
If (out_B12 = False) Then
Send_Mid(16) = "1"
Else
Send_Mid(16) = "0"
End If
If (out_B13 = False) Then
Send_Mid(17) = "0"
Else
Send_Mid(17) = "1"
End If
If (out_B14 = False) Then
Send_Mid(18) = "1"
Else
Send_Mid(18) = "0"
End If
If (out_B15 = False) Then
Send_Mid(19) = "0"
Else
Send_Mid(19) = "1"
End If
If (out_B16 = False) Then
Send_Mid(20) = "1"
Else
Send_Mid(20) = "0"
End If
Send_Mid(21) = ")"
MSComm1.Output = Send_Mid(0) + Send_Mid(1) + Send_Mid(2) + Send_Mid(3) + Send_Mid(4) + Send_Mid(5) + Send_Mid(6) + Send_Mid(7) + Send_Mid(8) + Send_Mid(9) + Send_Mid(10) + Send_Mid(11) + Send_Mid(12) + Send_Mid(13) + Send_Mid(14) + Send_Mid(15) + Send_Mid(16) + Send_Mid(17) + Send_Mid(18) + Send_Mid(19) + Send_Mid(20) + Send_Mid(21)
End If
send_step = 3
ElseIf (send_step = 3) Then
send_step = 4
If (ADD_Run = 0) Then
ADD_Run = 1
ElseIf (ADD_Run = 1) Then
ADD_Run = 0
End If
ElseIf (send_step = 4) Then
send_step = 0
End If
Timer2.Enabled = True
Timer2.Interval = 20
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -