在上一部分中单片机程序，单片机将采集到的温度数据处理后，通过串行口发送出去，这一节专门讲解如何用VB6.0（企业版）调用MSComm控件接收数据、处理数据和显示数据。

第一步，打开VB软件，如下图所示。在新建工程对话框中选择［标准EXE习项]单击［打开习按钮]

接着出现如下图所示界面。

第二步， 单击 [工程一部件]菜单项， 打开[部件]对话框，弹出对话框如下图所示。

选择 [Microsotf Comm Control 6.0]控件列表项， 单击[确定]按钮， 如下图所示。

      然后可以看到在工具箱中增加了一个像电话的图标， 如下图箭头所指处， 这就是VB串行口通信所用的标准控件 ( MSComm )。

第三步， 单击[MSComm]控件， 并在窗体 Forml上拖出一个矩形，如下图所示，这时 MSComm控件就被添加到工程中了。

第四步， 一个矩形框，单击 [TextBox] 控件， 如下图左箭头所指处， 同上步骤在窗体 Forml 上拖出如下图右所示。

第五步， 双击[TextBox]控件或窗体无控件的空白处， 会打开代码编辑框， 如下图所示。

第六步， 在 Private Sub Form_load()函数中增加如下代码：

Private Sub Form_Load()

Text1(0).Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text2.Text = "单片机与PC端通信" & vbCrLf & "QQ:1371129880 " & vbCrLf & "博客：https://blog.csdn.net/qq_38351824"

MSComm1.Settings = "9600,n,8,1"    '波特率 9600bit/s  无校验  8位数据 1位停止位

MSComm1.CommPort = 5               '设定串口为1com，这里大家需要改为自己对应的com序号

MSComm1.InBufferSize = 8           '设置返回接收缓冲区的大小，以字符为单位

MSComm1.OutBufferSize = 2

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False  '关串口

MSComm1.RThreshold = 4  '设置并返回产生oncomm事件的字符数，以字符为单位

'RThreshold         为1，接收缓冲区收到每一个字符都会使MSComm控件产生oncomm事件

MSComm1.SThreshold = 1

MSComm1.InputLen = 0  '设置从接收缓冲区读取的字数，为0读取整个缓冲区

MSComm1.InputMode = comInputModeText  '文本形式接收

If MSComm1.PortOpen = False Then MSComm1.PortOpen = True

MSComm1.InBufferCount = 0  '清空缓冲区

Me.Caption = "温度"

Text1(0).Text = "00.0"

End Sub

添加完的编辑框如下中上半部分所示。

第七步， 双击窗体内的 [ MSComm]控件， 向 [ Private Sub  MSComml_OnComm()]函数中添加接收数据代码，添    加完成后的编辑框如下图的下半部分所示。

Private Sub MSComm1_OnComm()

Dim rec As String

Select Case MSComm1.CommEvent

Case comEvReceive

rec = MSComm1.Input

Text1(0).Text = rec

MSComm1.InBufferCount = 0 '清空缓冲区

End Select

End Sub

第八步， 单击上按钮或直接按 [ F5]键运行程序。用串行口线连接 实验板和计算机， 即可在文本框中显示出当前环境温度值， 如下图所示。