关键步骤
- 添加串口控件:在Visual Basic项目中,从工具箱添加
MSComm
控件(若没有,可通过“工程” -> “部件”,勾选“Microsoft Comm Control 6.0”来添加)。
- 初始化串口设置:设置串口的相关属性,如端口号、波特率、数据位、停止位、校验位等。
- 打开串口:使用
MSComm
控件的PortOpen
属性打开串口。
- 发送数据:将需要发送的数据写入
Output
属性。
- 接收数据:通过监控
MSComm
控件的OnComm
事件,当有数据到达时,从Input
属性获取数据。
简单代码示例
' 初始化串口设置
Private Sub Form_Load()
MSComm1.CommPort = 1 '设置串口号,根据实际情况修改
MSComm1.Settings = "9600,N,8,1" '波特率9600,无校验,8位数据位,1位停止位
MSComm1.InputMode = comInputModeText '以文本模式接收数据
MSComm1.PortOpen = True '打开串口
End Sub
' 发送数据
Private Sub Command1_Click()
MSComm1.Output = "Hello, Arduino!" & vbCrLf '发送数据,这里发送一个字符串并加上回车换行符
End Sub
' 接收数据
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then '当有数据到达
Dim receivedData As String
receivedData = MSComm1.Input '获取接收到的数据
Text1.Text = receivedData '将接收到的数据显示在文本框中
End If
End Sub