VB6.0MSComm串口通信控件实现

VB6.0 里的 Mscomm 控件，用起来其实还蛮顺手的。对于搞上位机和单片机串口通信的开发者来说，它算是个老牌但稳定的方案。你只要拖个控件到窗体上，配一下串口号、波特率这些基本参数，基本就能跑起来，连代码量都不多。

串口通信说白了就是“点对点”聊个天，上位机是主控，发个命令过去，让下位机（像 8051 那类单片机）回点数据回来。Mscomm 控件支持事件驱动和查询方式，简单项目用查询也行，要响应快点就上事件。

属性挺丰富的，像CommPort设端口，BaudRate调速率，Input读数据，Output发数据，全都能搞定。配合RThreshold和SThreshold还能设置收发的触发条件，挺灵活。

比如你搞了个基于 8051 的温湿度采集器，用 RS-232 接电脑，VB 窗体一加载，Form_Load事件就把串口全配置好。发数据用MSComm1.Output，收数据监听OnComm事件就行，逻辑清晰，响应也快。

你要是新手，建议一开始照着下面这段初始化代码来：

Private Sub Form_Load()
  MSComm1.CommPort = 1
  MSComm1.BaudRate = 9600
  MSComm1.DataBits = 8
  MSComm1.Parity = comParNone
  MSComm1.StopBits = comStopbit1
  MSComm1.InputMode = comBinary
  MSComm1.Output = vbNullString
  MSComm1.InBufferCount = 0
  MSComm1.OutBufferCount = 0
  MSComm1.RThreshold = 1
  MSComm1.SThreshold = 0
  MSComm1.PortOpen = True
End Sub

对了，VB6.0虽然有点年头，但配合MSComm做设备调试工具还是蛮合适的。你要是想深入研究串口通信，还可以看看下面这些相关资源，挺全的。