基于VB6_0的计算机与单片机串行通信

第四期
张修太 胡雪惠：基于 ＶＢ６．０ 的计算机与单片机串行通信
６５
其中 ｒｅｃｅｉｖｅ（）为 ｂｙｔｅ 型数组。 ９）Ｏｕｔｂｕｆｆｅｒｓｉｚｅ。以字节的形式设置并返回传
输缓冲区的大小，缺省值为 ５１２ 字节。 １０）Ｉｎｂｕｆｆｅｒｓｉｚｅ。设置并返回接收缓冲区的字
节数，即整个接收缓冲区的大小。接收缓冲越大则 应用程序的内存越小。 １．２ 用 ＶＢ６ 实现的数据接收和发送
２）应用程序接口。Ｗｉｎｄｏｗｓ ＡＰＩ。采用串行通信 控件 ＭＳＣｏｍｍ 实现。 １．１．２ 用 ＶＢ 实现串行通信的方式
１） 事件驱动方式。利用 ＭＳＣｏｍｍ 控件检查 ＣｏｍｍＥｖｅｎｔ 事件属性值 （包括通信错误和通信事 件），当 ＭＳＣｏｍｍ 控件属性值与 ＣｏｍｍＥｖｅｎｔ 事件属 性值相同时产生 Ｏｎｃｏｍｍ 事件，然后执行相应程 序，按照事件程序区中的程序实现数据的接收和 发送或者数据的保存等处理；本文利用 ＭＳＣｏｍｍ 的属性设置引发 Ｏｎｃｏｍｍ 事件实现数据接收。数 据发送是通过 Ｃｌｉｃｋ 事件进行的。
安阳工学院学报
６４
ቤተ መጻሕፍቲ ባይዱ
Ｊｏｕｒｎａｌ ｏｆ Ａｎｙａｎｇ Ｉｎｓｔｉｔｕｔｅ ｏｆ Ｔｅｃｈｎｏｌｏｇｙ
２００７ 年
基于 ＶＢ６．０ 的计算机与单片机串行通信
张修太 １ 胡雪惠 ２
（１．安阳工学院，河南 安阳 ４５５０００；２．信阳师范学院，河南 信阳 ４６４０００）
摘要：介绍计算机与单片机串行通信的实现方案，其中计算机接收和发送数据是用 ＶＢ６ 中的 ＭＳＣＯＭＭ 控件来实现
串行通信在自动控制、数据采集、网络通信等 方面有着广泛的应用，下面就以具体的实例介绍 计算机与单片机之间的串行通信的实现方案。 １ 基于 ＶＢ６ 的串行通信［１，２］ １．１ ＶＢ６ 串行通信的基础知识 １．１．１ 用 ＶＢ 实现串行通信的方法
１）串行通信控件。Ｍｉｃｒｏｓｏｆｔ ｃｏｍｍ． Ｃｏｎｔｒｏｌ ６．０ （ＭＳＣｏｍｍ）；
用 ＶＢ６ 实现串行通信主要是 利 用 ＭＳＣｏｍｍ 控件的 Ｉｎｐｕｔ 和 Ｏｕｔｐｕｔ 属性进行数据的接收和发 送的。在进行数据传输时数据接收和发送的格式 应特别注意，一般情况下，计算机与单片机的串行 通信是采用二进制的形式， 即以字节为数据单位。 数据接收和发送的格式由 ＩｎｐｕｔＭｏｄｅ 的属性决定， ＩｎｐｕｔＭｏｄｅ 应设为 ｃｏｍＩｎｐｕｔＭｏｄｅＢｉｎａｒｙ，接收数据 时，将数据流赋给字节型数组，发送数据时，把字节 型数组中的数据发送到输出缓冲区。 １．３ 用 ＶＢ６ 实现文件操作与数据保存
６）Ｉｎｐｕｔｌｅｎ。设置并返回 Ｉｎｐｕｔ 属性接收缓冲 区读取的字符数。
７）Ｉｎｐｕｔ。返回并删除接收缓冲区中的数据流。 Ｉｎｐｕｔ 属性可以传输文本数据或二进制数据。用 Ｉｎｐｕｔ 属性传输文本数据，必须定义一个包含一个 字符串的变量，发送二进制数据时，Ｉｎｐｕｔ 属性通过 一个变量返回一个二进制数据的字节型数组。如 Ｏｂｊｅｃｔ．Ｏｕｔｐｕｔ＝ｓｅｎｄ（ ），其中 ｓｅｎｄ（ ）为 ｂｙｔｅ 型 数组。
图 １ 运行界面
１．４．２ 程序设计 Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ ＇＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＇ 窗体装载程序 Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（） Ｉｆ ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｆａｌｓｅ Ｔｈｅｎ ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｔｒｕｅ Ｅｎｄ Ｉｆ ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＣｏｕｎｔ ＝ ０ ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ ０ Ｅｎｄ Ｓｕｂ ＇＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＇ 数据接收和文件操作的 ＯｎＣｏｍｍ 事件程序 Ｐｒｉｖａｔｅ Ｓｕｂ ＭＳＣｏｍｍ１＿ＯｎＣｏｍｍ（） Ｄｉｍ ｆｓ Ａｓ Ｎｅｗ ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ Ｄｉｍ ｔｓ Ａｓ ＴｅｘｔＳｔｒｅａｍ Ｄｉｍ ｍｉｎｓｅｃ（） Ａｓ Ｂｙｔｅ
文件的操作在数据采集和数据处理上具有重 要的意义。文件操作包括文件的建立、打开、数据 读出、数据写入和文件的关闭。
ＶＢ６ 中提供了一套工具－ 文件系统对象（Ｆｉｌｅ Ｓｙｓｔｅｍ Ｏｂｊｅｃｔ），可以方便地实现文件、文件夹的移 动、添加、改变、创建和删除等操作。文件系统对象 模 型 中 包 含 Ｄｒｉｖｅ、Ｆｏｌｄｅｒ、Ｆｉｌｅｓ、ＦｉｌｅＳｙｓｔｅｍｔＯｂｊｅｃｔ 和 Ｔｅｘｔｓｔｒｅａｍ 等对象，其中 ＦｉｌｅＳｙｓｔｅｍｔＯｂｊｅｃｔ 为主 要对象，它提供了一整套用于创建、删除、收集相关 信息、操作驱动器、文件和文件夹的方法； Ｔｅｘｔｓｔｒｅａｍ 对象允许读、写文本文件。
Ｏｂｊｅｃｔ．ｓｅｔｔｉｎｇｓ ＝ ９６００，Ｎ，８，１ ３）ＩｎｐｕｔＭｏｄｅ。设置和返回 Ｉｎｐｕｔ 属性取回的
数据类型。ＩｎｐｕｔＭｏｄｅ 设为 ｃｏｍＩｎｐｕｔＭｏｄｅＴｅｘｔ 时， 取回数据的格式为字符串，设为 ｃｏｍＩｎｐｕｔＭｏｄｅＢｉｎａｒｙ 时，取回数据的格式为一个二 进制数据的数组。
本例可以实现从单片机接收数据显示在窗体 中并保存在数据文件中，通过串行通信实现单片机 的时间设定。本实例设计主要包括用户界面即窗 体设计和程序设计。 １．４．１ 窗体设计
窗体如图 １ 所示，由图知该窗体中包含 ４ 个
标签，其中一个用来显示从单片机接收到的时间数 据，另外三个分别用来标出三个文本框的名称即 ＨＯＵＲ、ＭＩＮＵＩＴＥ 和 ＳＥＣＯＮＤ；三个文本框用来输 入所设置的时间数据；三个命令按钮，清除按钮用 来清除文本框中的内容，发送按钮用来把文本框中 的内容发送给单片机，退出按钮用来退出应用程 序；一个串行通信控件 ＭＳＣｏｍｍ，该控件在程序设 计时可见，运行时不可见，主要用来进行串行通信 控件属性和参数的设置，本例中串行通信参数设置 如下：Ｃｏｍｍｐｏｒｔ＝１；Ｉｎｐｕｔｌｅｎ＝３；ＳＴｈｒｅｓｈｏｌｄ＝０；Ｉｎｐｕｔ－ Ｍｏｄｅ＝１ － ｃｏ ｍＩｎｐｕｔＭｏｄｅＢｉｎａｒｙ；ＲＴｈｒｅｓｈｏｌｄ＝３ ；ｓｅｔｔ－ ｉｎｇｓ＝９６００， ｎ， ８，１； 其 他 参 数 可 为 默 认 值 。 添 加 ＭＳＣｏｍｍ 控件时，先在 Ｐｒｏｊｅｃｔｓ／ｃｏｍｐｏｎｅｎｔｓ／ｃｏｎｔｒｏｌｓ 中选中 Ｍｉｃｒｏｓｏｆｔ Ｃｏｍｍ Ｃｏｎｔｒｏｌ ６．０ 选项，使控件 ＭＳＣｏｍｍ 出现在工具箱中，然后把该控件放在窗体 中，设置控件参数即可。
２）程序查询方式。程序通过查询 ＣｏｍｍＥｖｅｎｔ 的某一属性的值（包括通信错误值和通信事件值） 来确定是否进行数据接收和发送。 １．１．３ ＭＳＣｏｍｍ 控件属性
１）Ｃｏｍｍｐｏｒｔ。设置并返回通信端口号。有效端 口号为 １ 到 １６ 的任何整数，必须在打开端口前设 置 Ｃｏｍｍｐｏｒｔ 属性。设置方法：Ｏｂｊｅｃｔ． Ｃｏｍｍｐｏｒｔ＝１
８）Ｏｕｔｐｕｔ。向传输缓冲区写数据流。Ｏｕｔｐｕｔ 属 性可以传输文本数据或二进制数据，用 Ｏｕｔｐｕｔ 属 性传输文本数据，必须定义一个包含一个字符串 的变量，发送二进制数据时，必须传递一个包含字 节数组的变量到 Ｏｕｔｐｕｔ。如 ｒｅｃｅｉｖｅ＝Ｏｂｊｅｃｔ．Ｏｕｔｐｕｔ，
收稿日期：２００７－ ０４－ １２ 作者简介：张修太（１９７１－ ），男，濮阳市人，安阳工学院电子信息与电气工程系工程师，主要从事电子信息方面的教学与研究。
２ 单片机串行通信［３，４］ ２．１ 单片机串行通信的基础知识
５１ 系列单片机内部有一个全双工的串行通信 端口，两个 ＳＢＵＦ 寄存器分别负责数据的接收和发 送，虽然两个 ＳＢＵＦ 寄存器占用同一地址，但通过 读取和写入 ＳＢＵＦ 寄存器的动作可以区分对哪个 ＳＢＵＦ 寄存器进行操作，因此串行通信可以同时进 行数据的接收和发送。
安阳工学院学报
６６
Ｊｏｕｒｎａｌ ｏｆ Ａｎｙａｎｇ Ｉｎｓｔｉｔｕｔｅ ｏｆ Ｔｅｃｈｎｏｌｏｇｙ
２００７ 年
Ｄｉｍ ａａ， ｂｂ， ｃｃ Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ ＝ ＂＂ ｍｉｎｓｅｃ（） ＝ ＭＳＣｏｍｍ１．Ｉｎｐｕｔ ａａ ＝ ｍｉｎｓｅｃ（０） ｂｂ ＝ ｍｉｎｓｅｃ（１） ｃｃ ＝ ｍｉｎｓｅｃ（２） Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ ＝ ａａ ＆ ＂：＂ ＆ ｂｂ ＆ ＂：＂ ＆ ｃｃ Ｉｆ Ｎｏｔ ｆｓ．ＦｉｌｅＥｘｉｓｔｓ（＂ｃ：＼ｔｅｍｐｒｅｔｕｒｅ．ｔｘｔ＂） Ｔｈｅｎ Ｓｅｔ ｔｓ ＝ ｆｓ．ＣｒｅａｔｅＴｅｘｔＦｉｌｅ（＂ｃ：＼ｔｅｍｐｒｅｔｕｒｅ．ｔｘｔ＂） Ｅｌｓｅ Ｅｎｄ Ｉｆ Ｓｅｔ ｔｓ ＝ ｆｓ．ＯｐｅｎＴｅｘｔＦｉｌｅ （＂ｃ：＼ｔｅｍｐｒｅｔｕｒｅ．ｔｘｔ＂， ＦｏｒＡｐｐｅｎｄｉｎｇ， Ｔｒｕｅ） ｔｓ．ＷｒｉｔｅＬｉｎｅ Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ ｔｓ．Ｃｌｏｓｅ Ｅｎｄ Ｓｕｂ ＇＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＇ 清除命令程序 Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（） Ｔｅｘｔ１．Ｔｅｘｔ ＝ ＂＂ Ｔｅｘｔ２．Ｔｅｘｔ ＝ ＂＂ Ｔｅｘｔ３．Ｔｅｘｔ ＝ ＂＂ Ｅｎｄ Ｓｕｂ ＇＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＇ 发送命令程序 Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ２＿Ｃｌｉｃｋ（） Ｄｉｍ ｓｅｎｄ（１ Ｔｏ ３） Ａｓ Ｂｙｔｅ Ｉｆ ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｆａｌｓｅ Ｔｈｅｎ ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｔｒｕｅ Ｅｎｄ Ｉｆ ｓｅｎｄ（１） ＝ Ｔｅｘｔ１．Ｔｅｘｔ ｓｅｎｄ（２） ＝ Ｔｅｘｔ２．Ｔｅｘｔ ｓｅｎｄ（３） ＝ Ｔｅｘｔ３．Ｔｅｘｔ ＭＳＣｏｍｍ１．Ｏｕｔｐｕｔ ＝ ｓｅｎｄ Ｅｎｄ Ｓｕｂ ＇＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＇ 退出命令程序 Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ３＿Ｃｌｉｃｋ（） Ｕｎｌｏａｄ Ｍｅ Ｉｆ ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｔｒｕｅ Ｔｈｅｎ ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｆａｌｓｅ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ ＇＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝ ＝