'初始化代码
Private Sub Form_Load() '窗体被加载时产生
If MSComm1.PortOpen = True Then '串口查看是否打开，打开则关闭MsgBox "端口已经打开", 2
'MSComm1.PortOpen = False
End If
With MSComm1
.CommPort = 3 '设置串口3
.Settings = "9600,n,8,1"
.InputLen = 0 '读取接收缓冲区所有字符
.InBufferSize = 1024 '设置接收缓冲区1024字节
.OutBufferSize = 512 '设置发送缓冲区512字节
.InputMode = comInputModeText. '采用文本传输
'.PortOpen = True '打开串口
.SThreshold = 0 '一发送数据就触发OnComm事件
.RThreshold = 1 '接收到一个字节就触发OnComm事件
.InBufferCount = 0 '清除发送缓冲区数据
.OutBufferCount = 0 '清除接收缓冲区数据
End With
Text_send.Text = ""
Text_recv.Text = ""
Text_send_16.Text = ""
End Sub
'清空对话框数据
Sub Command3_Click(Index As Integer)
Text_send.Text = ""
Text_recv.Text = ""
Text_send_16.Text = ""
End Sub
'通讯端口选择
Private Sub Combo1_Click()
If Combo1.Text = "com1" Then '通讯端口号设置
mPort = 1
'Text1 = 1
ElseIf Combo1.Text = "com2" Then
mPort = 2
'Text1 = 2
ElseIf Combo1.Text = "com3" Then
mPort = 3
'Text1 = 3
ElseIf Combo1.Text = "com4" Then
mPort = 4
'Text1 = 4
Else
mPort = 5
'Text1 = 5
End If
End Sub
Private Sub Combo2_Click()
If Combo2.Text = "9600,e,8,1" Then
MSComm1.Settings = "9600,e,8,1"
ElseIf Combo2.Text = "9600,n,8,1" Then
MSComm1.Settings = "9600,n,8,1"
ElseIf Combo2.Text = "57600,n,8,1" Then
MSComm1.Settings = "57600,n,8,1"
End If
End Sub
'发送数据
Private Sub Command1_Click(Index As Integer)
'判断是否选择了端口与通讯方式
If CBool(Combo1.Text = "请选择") Or CBool(Combo2.Text = "请选择") = 1 Then MsgBox "请设置端口号与通讯方式", 2
Exit Sub
End If
'保证串口打开
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
'发送数据
MSComm1.Output = Text_send.Text
'延时
For i = 1 To 2000000
Next i
End Sub
'发送16进制数据
Private Sub Command4_Click(Index As Integer)
'判断是否选择了端口与通讯方式
If CBool(Combo1.Text = "请选择") Or CBool(Combo2.Text = "请选择") = 1 Then MsgBox "请设置端口号与通讯方式", 2
Exit Sub
End If
'保证串口打开
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
'发送数据
Dim a, b As String
'Dim a As Long, b As String
a = Text_send_16.Text
b = CLng("&H" & a)
MSComm1.Output = b
'延时
For i = 1 To 2000000
Next i
End Sub
Private Sub Command2_Click(Index As Integer)
'判断是否选择了端口与通讯方式
If CBool(Combo1.Text = "请选择") Or CBool(Combo2.Text = "请选择") = 1 Then MsgBox "请设置端口号与通讯方式", 2
Exit Sub
End If
'保证串口打开
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
'接受数据
Dim str As String
str = MSComm1.Input '从接收队列中读入字符串
Text_recv.Text = Text_recv.Text & str '读出字符串送显
Text_recv.Text = Text_recv.Text & "" & vbCrLf '文本换行符
End Sub。