VB6.0与51单片机、STM32进行串口通信

原创

于 2018-12-03 22:02:25 发布 · 6k 阅读

54 ·

CC 4.0 BY-SA版权

文章标签：

#VB通信

本文详细介绍了如何使用VB6.0作为上位机，通过串口通信控制51单片机和STM32的LED亮灭。操作步骤包括设置端口、运行控制程序发送信号，使得单片机响应并改变LED状态。同时，文章提供了VB程序界面截图及STM32主程序中利用定时器进行数据收发判断的方法，并附有STM32串口通信程序的下载链接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

参考资料：https://wenku.baidu.com/view/7c9fdc3e1ed9ad51f11df207.html

1.功能描述——控制LED的亮灭

(1)通过设备管理器设置端口（右击属性，端口设置—>高级），然后选择相匹配的端口

(2）运行LED控制系统.exe，点击打开串口，再点击打开按钮（向单片机发送信号1），单片机上的小灯亮起，同时界面上的灯泡变绿，最后，点击关闭按钮（向单片机发送信号2），单片机上的小灯熄灭。

2.VB上位机程序

Dim buff(0) As Byte
Private Sub Command1_Click()
If Command1.Caption = "打开" Then
buff(0) = &H1
If (MSComm1.PortOpen = True) = True Then
MSComm1.Output = buff
Shape1.BackColor = RGB(0, 255, 0)
Command1.Caption = "关闭"
End If
Else
buff(0) = &H2
If (MSComm1.PortOpen = True) = True Then
MSComm1.Output = buff
Shape1.BackColor = RGB(222, 222, 222)
Command1.Caption = "打开"
End If
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "打开串口" Then
Command2.Caption = "关闭串口"
Shape2.BackColor = RGB(0, 255, 0)
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.PortOpen = True
Else
C