📄 8-
字号:
Width = 255
End
Begin VB.Label Label5
Caption = "4#"
Height = 255
Left = 2040
TabIndex = 16
Top = 240
Width = 375
End
Begin VB.Label Label4
Caption = "3#"
Height = 255
Left = 1440
TabIndex = 15
Top = 240
Width = 375
End
Begin VB.Label Label3
Caption = "2#"
Height = 255
Index = 1
Left = 840
TabIndex = 14
Top = 240
Width = 255
End
Begin VB.Label Label2
Caption = "1#"
Height = 255
Index = 0
Left = 240
TabIndex = 13
Top = 240
Width = 255
End
Begin VB.Shape ks4
BackColor = &H00000000&
BackStyle = 1 'Opaque
Height = 255
Left = 2040
Shape = 3 'Circle
Top = 600
Width = 255
End
Begin VB.Shape ks3
BackColor = &H00000000&
BackStyle = 1 'Opaque
Height = 255
Left = 1440
Shape = 3 'Circle
Top = 600
Width = 255
End
Begin VB.Shape ks2
BackColor = &H00000000&
BackStyle = 1 'Opaque
Height = 255
Left = 840
Shape = 3 'Circle
Top = 600
Width = 255
End
Begin VB.Shape ks1
BackColor = &H00000000&
BackStyle = 1 'Opaque
Height = 255
Left = 240
Shape = 3 'Circle
Top = 600
Width = 255
End
End
Begin VB.CommandButton quit
Caption = "退出"
Height = 375
Left = 5400
TabIndex = 4
Top = 3720
Width = 975
End
Begin MSCommLib.MSComm MSComm1
Left = 4800
Top = 3600
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Frame comx
Caption = "串口信息"
Height = 735
Left = 240
TabIndex = 0
Top = 3480
Width = 4575
Begin VB.CommandButton kcom
Caption = "打开串口"
Height = 375
Left = 2640
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "JDKZ.frx":0004
Left = 1200
List = "JDKZ.frx":0006
TabIndex = 2
Text = "Combo1"
Top = 240
Width = 1095
End
Begin VB.Shape coms
BackColor = &H0000FF00&
BackStyle = 1 'Opaque
Height = 255
Left = 4080
Shape = 3 'Circle
Top = 240
Width = 255
End
Begin VB.Label Label1
Caption = "串口号："
Height = 255
Left = 360
TabIndex = 1
Top = 360
Width = 855
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
If MSComm1.PortOpen = True Then '如果串口打开先关闭后再进行其他操作
MSComm1.PortOpen = False
End If
MSComm1.CommPort = Combo1.ListIndex + 1 '读取com口号
End Sub
Private Sub Form_Load()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
Else
End If
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
Combo1.AddItem "COM5"
Combo1.AddItem "COM6"
Combo1.AddItem "COM7"
Combo1.AddItem "COM8"
Combo1.AddItem "COM9"
Combo1.AddItem "COM10"
Combo1.AddItem "COM11"
Combo1.AddItem "COM12"
Combo1.AddItem "COM13"
Combo1.AddItem "COM14"
Combo1.AddItem "COM15"
Combo1.AddItem "COM16"
Combo1.ListIndex = 0
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.Settings = "9600,n,8,1"
kcom.Caption = "打开串口"
coms.BackColor = &HFF00&
TR.Enabled = True
End Sub
Private Sub kc1_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc1.Caption = "开" Then
MSComm1.Output = "abbb0bbbbc"
Else:
MSComm1.Output = "abbb1bbbbc"
End If
End If
End Sub
Private Sub kc2_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc2.Caption = "开" Then
MSComm1.Output = "abb0bbbbbc"
Else:
MSComm1.Output = "abb1bbbbbc"
End If
End If
End Sub
Private Sub kc3_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc3.Caption = "开" Then
MSComm1.Output = "ab0bbbbbbc"
Else:
MSComm1.Output = "ab1bbbbbbc"
End If
End If
End Sub
Private Sub kc4_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc4.Caption = "开" Then
MSComm1.Output = "a0bbbbbbbc"
Else:
MSComm1.Output = "a1bbbbbbbc"
End If
End If
End Sub
Private Sub kc5_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc5.Caption = "开" Then
MSComm1.Output = "abbbb0bbbc"
Else:
MSComm1.Output = "abbbb1bbbc"
End If
End If
End Sub
Private Sub kc6_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc6.Caption = "开" Then
MSComm1.Output = "abbbbb0bbc"
Else:
MSComm1.Output = "abbbbb1bbc"
End If
End If
End Sub
Private Sub kc7_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc7.Caption = "开" Then
MSComm1.Output = "abbbbbb0bc"
Else:
MSComm1.Output = "abbbbbb1bc"
End If
End If
End Sub
Private Sub kc8_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
If kc8.Caption = "开" Then
MSComm1.Output = "abbbbbbb0c"
Else:
MSComm1.Output = "abbbbbbb1c"
End If
End If
End Sub
Private Sub kcall_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
MSComm1.Output = "a00000000c"
End If
End Sub
Private Sub kcom_Click()
On Error GoTo uerror '发现错误跳转到错误处理
If kcom.Caption = "关闭串口" Then
MSComm1.PortOpen = False
kcom.Caption = "打开串口" '按钮文字改变
coms.BackColor = &HFF00& '灯颜色改变
Else
MSComm1.PortOpen = True
kcom.Caption = "关闭串口"
coms.BackColor = &HFF
End If
Exit Sub
uerror:
MsgBox " 无效串口号"
End Sub
Private Sub kgall_Click()
If MSComm1.PortOpen = True Then
MSComm1.OutBufferCount = 0
MSComm1.Output = "a11111111c"
End If
End Sub
Private Sub quit_Click()
If kcom.Caption = "关闭串口" Then
MSComm1.PortOpen = False
End If
Unload Me
End Sub
Private Sub TR_Timer()
Dim strBuff As String
If MSComm1.PortOpen = True Then
strBuff = strBuff + MSComm1.Input '读入到缓冲区
If Mid(strBuff, 1, 1) = "a" And Mid(strBuff, 10, 1) = "c" Then
If Mid(strBuff, 2, 1) = "1" Then
kc1.Caption = "开"
ks1.BackColor = &H0
ElseIf Mid(strBuff, 2, 1) = "0" Then
kc1.Caption = "关"
ks1.BackColor = &HFF
End If
If Mid(strBuff, 3, 1) = "1" Then
kc2.Caption = "开"
ks2.BackColor = &H0
ElseIf Mid(strBuff, 3, 1) = "0" Then
kc2.Caption = "关"
ks2.BackColor = &HFF
End If
If Mid(strBuff, 4, 1) = "1" Then
kc3.Caption = "开"
ks3.BackColor = &H0
ElseIf Mid(strBuff, 4, 1) = "0" Then
kc3.Caption = "关"
ks3.BackColor = &HFF
End If
If Mid(strBuff, 5, 1) = "1" Then
kc4.Caption = "开"
ks4.BackColor = &H0
ElseIf Mid(strBuff, 5, 1) = "0" Then
kc4.Caption = "关"
ks4.BackColor = &HFF
End If
If Mid(strBuff, 6, 1) = "1" Then
kc5.Caption = "开"
ks5.BackColor = &H0
ElseIf Mid(strBuff, 6, 1) = "0" Then
kc5.Caption = "关"
ks5.BackColor = &HFF
End If
If Mid(strBuff, 7, 1) = "1" Then
kc6.Caption = "开"
ks6.BackColor = &H0
ElseIf Mid(strBuff, 7, 1) = "0" Then
kc6.Caption = "关"
ks6.BackColor = &HFF
End If
If Mid(strBuff, 8, 1) = "1" Then
kc7.Caption = "开"
ks7.BackColor = &H0
ElseIf Mid(strBuff, 8, 1) = "0" Then
kc7.Caption = "关"
ks7.BackColor = &HFF
End If
If Mid(strBuff, 9, 1) = "1" Then
kc8.Caption = "开"
ks8.BackColor = &H0
ElseIf Mid(strBuff, 9, 1) = "0" Then
kc8.Caption = "关"
ks8.BackColor = &HFF
End If
End If
End If
timekg = Time
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -