基于VB60实现PC机与单片机的串行通讯(3)

单片机

捌童经济 科技研发

解数据采集的情况，然后描绘出波形曲线。首先建立一个ＶＢ项目，并在窗体上．安排一个ＭＳＣＯＭＭ控件，作为串行通讯的信道。调出属性窗口，设置变量ＣＯＭＰＯＲＴ属性为２。另外将Ｒｔｈｒｅｓｈｏｌｄ属性设为１，从而达到只要外界传送任何字符串，随即引发事件。安排一个定时器，作为连续动作的执行控件，只要一位数据发送完就能引发中断，发送下一个数据。设置一个ｐｉｃｔｕｒｅｂｏｘ对象。把由单片机传送来的数据以线条方式绘制在图片框控件上。再调出属性窗口，把其中的Ｎａｍｅ属性改为“Ｇｒａｐｈｌ”。本程序接收从单片机发来的４０个数据，当数据进入ＰＣ机的输入缓冲区后，程序会不断读取输入缓冲区的数据。并将这些读入的数据收在一起，赋给数组。计算机ＲＳ－２３２串行通信测试软件采用ＶＢ６，０开发，ｖｉｓｍｌＢａｓｉｃ

６．０

（简称ＶＢ６．０）ｗ支持坐标格式，我们可

以用ＳＣＡＬＥ函数作出坐标，定义ｘ轴由０到４０，表示有４０个数据，Ｙ轴由－２０ｇＯ＋２０．表示采集数据的范围是－２０到＋２０，表达式为ＳＣＡＬＥ（０，＋２０）－（４０，一２０）。为了实时采集数据，可以用定时器不断地更新曲线。这样就可以动态地显示被采集的数据。

Ｐｒｉｖａｔｅｓｕｂ

ｆｏｒｍ＿ｌｏａｄＯ

Ｃｏｍｍｌ．ｐｏｒｔｏｐｃｎ５ｔｒｕｅＴｉｍｅｒ．ｉｎｔｅｒｖａｌ＝１０００

’定时器时间间隔为１０００ｓ

Ｔｉｍｅｒ．ｅｎａｂｌｅｄ＝ｔｒｕｅ

Ｍｓｃｏｍｍｌ．ｃｏｍｐｏｒｅ＝ｌ’选择通讯口１

Ｍｓｃｏｍｍｌ．ｓｅｔｔｉｎｇｓ＝“１１０，ｎ，８，１”

’波特率

１１０，无奇偶校验，８个数据位，一个停止

位

Ｍｓｃｏｍｍｌ．ｉｎｐｕｍａｏｄｅ＝ｌ’以二进制形式取回数据Ｍｓｃｏｍｍｌ．ｉｎｐｕｄｅｎ＝Ｏ’读取接收缓冲区的内容

ＩＶｌｓｃｏｍｍｌ．ｒｔｈｒｅｓｈｏｌｄ＝ｌ

’每收到一

个字符位引发ｏｎｃｏｍｌｎ事件Ｇｒａｐｈｌ．ｓｃａｌｅ（０。２０）一（４０，－２０）’定制

坐标

Ｇｒａｈｐｌ．ｆｏｒｅｃｏｃｋ＝－ｒｇｂ（０，０，２５５）

ＥｎｄｓｕｂＰｒｉｖａｔｅＳｕｂ

Ｃｏｍｍａｎｄｌ＿Ｃｌｉｃｋ０

Ｄｉｍａ！（４０），ｂ！（４０）

ｎ帅２

ＭＳＣｏｍｍｌ．１ｎＢｕｆｆｅｒＣｏｕｎｔ

’取

输入缓冲区字节个数

血缸ＩＩｇ＝ＭＳＣｏｍｍｌ．Ｉｎｐｕｔ

７把输

入缓冲区数据送给数组

Ｆｏｒｉ＝０Ｔｏ

ｎｕｍ．一１

ＣｈＩｎ－ＣｏｌＩｏｃｔｌｖｏ

万方数据

ＩＫｏｏｎｏｍｙａ（ｉ）２

ｉ

ｂ（ｉ）＝确ｎｇ（ｉ）

ＧＲＡＰＨｌ．ＣｌｓＩｆｉ＝１Ｔｈｅｎ

ＧＲ＾ＰＨｌ．Ｐｓｅｔ（ａ‘ｉ）。ｂ（ｉ））

Ｅｌｓｅ

ＧＲＡＰＨｌ．Ｌｉｎｅ一（ａ（ｉ），ｂ（ｉ））将数

组数据给绘图函数

ＥｎｄＩｆ

Ｎｅｘｔｉ

ＥｎｄＳｕｂ

以人工智能的理论为基础．根据计算机故障诊断专家系统的实践经验．以及收集了大量计算机故障诊断资料，从计算机不同的故障特征建立了诊断指标，开发计算机故障诊断专家系统。结果表明，该指标科学合理、有效，可以进行故障诊断。在现实生活中具有广泛的应用价值。这样，将人工智能与离散事件系统仿真技术相结合，以单片机硬件电路为专家系统的知识来源，建立了单片机硬件配置专家系统，并且阐述了一种基于离散事件系统仿真原理的单片机系统仿真软件的仿真策略，应用进程交互法对单片机应用系统的软、硬件实现了仿真。

四、ＶＢ环境下通讯程序的设计通讯程序的设计是一个重要环节。ＶＢ提供了串行端口控制１ＶｌＢｃｏｍｌｌｌ来为

应用程序提供串行通讯。该控件屏蔽了通信过程中的底层操作，程序员可以设置、监视Ｍｓｃｏｍｍ控件的属性和事件．结合

Ｔｉｍｅｒ控件即可完成对串行口的初始化和数据的输入输出工作。Ｍｓｃｏｍｍ控件的主要属性如下：

Ｃｏｍｍｐｏｒｔ设置并返回通讯端口号。

端口号可以设置为Ｉ－１６的任何数．如ＭＳＣＯＨｌ．ｍ．Ｃｏｍｍｐｏｒｔ＝２表示设置当前通讯端口为ＣＯＭ２。

ｓｅｔｔｉｎｇ设置并返回波特率、奇偶校验、数据位、停止位。格式为Ｍｓｃｏｍｍ．

ｓｅｔｄｎｇ＝Ｓ豳ｇ。Ｓｔｒｉｎｇ是一个包含４部分

的字符串：第一部分为波特率；第二部分为奇偶校验，Ｎ表示不校验．Ｍ表示符号校验，Ｅ表示偶校验，ｏ表示奇校验，Ｓ表示空格校验；第三部分为数据位数，其可选值为４，５．６，７，８；第四部分为停止位位数。其可选值为Ｉ。１．５，２。Ｓｅｔ６ｎｇ属性的缺

省值为。９６００．Ｎ，８．１”。

Ｐｏｒｔｏｐｅｎ设置并返回通讯端口的状

态，也可以打开和关闭端口。

Ｉｎｐｕｔ从接收缓冲区返回和删除字符。该属性在运行时为只读。

Ｉｎｐｕｔ［ａｎ设置并返回每次Ｉｎｐｕｔ属性从接收缓冲区中读取的字符数。Ｉｎ＿ｐｕｔＬｅｎ属性的缺省值为０。设置ｌｎｐｕｔＩ七ｎ为０时，Ｉｎｐｕｔ将读取接收缓冲区的全部字符。

Ｏｕｔｐｕｔ向传送缓冲区写数据。要传

送的数据可是文本数据或二进制数据。

ＣｏｍｍＥｖｅｎｔ返回最近的通讯事件或错误。只要有通讯错误或事件发生错误时就会产生Ｏｎｃｏｍｍ事件。ＣｏｍｍＥｖｅｎｔ属性中存有该错误或事件的数值代码。Ｔｉｍｅｒ控件的主要属性如下：Ｅｎａｂｌｅｄ返回或设置一个值。该值用来确定一个窗体或控件否能够对用户产生的事件作出反应。通过把Ｅｎａｂｌｅｄ设置为“ＱＩｌ３ｅ”来使Ｔｉｍｅｒ控件成为无效，将取消由控件的Ｉｎｔｅｒｖａｌ属性所建立的倒计时数。Ｉｎｔｅｒｖａｌ返回或设置对Ｔｉｍｅｒ控件的计时事件调

用间的毫秒数。Ｔｉｍｅｒ控件的Ｅｎａｂｌｅｄ属

性决定该控件是否对时间的推移作出响应。将Ｅｎａｂｌｅｄ设置为。Ｆａｌｓｅ”会关闭

Ｔｉｍｅｒ控件。设置为“Ｔｒｕｅ”则打开Ｔｉｍｅｒ

控件。当Ｔｉｍｅｒ控件置为有效时，倒计时总是从其Ｉｎｔｅｒｖａｌ属性设置值开始。创建

Ｔｉｍｅｒ事件程序。可通知ＶＢ在每次ＩＩ卜ｔｅｒｖａｌ到时该做什么。Ｔｉｍｅｒ控件和Ｅｎ－

ａｂｌｅｄ属性设置为“Ｔｒｕｅ”时，ＶＢ将在Ｉｎ－

ｔｅｒｖａｌ时间到后自动访问ＴｉｍｅｒＴｉｍｅｒ过

程。为实现通讯程序。须在ＶＢ开发环境下设置一个用做控制通讯的窗体。窗体上主要有一个通讯控件Ｍｓｃｏｍｒｒｆｌ和两

个Ｔｉｍｅｒ控件。ＶＢ的特点是事件驱动，

定时器控件会定时触发相应事件的驱动程序。

（一）发送单片机命令

事实上，为了使主机能够对整个检测过程进行实时控制．须要在发送命令以后设定等待的时间。也可以通过条件判断下一步是发达还是接收命令。对发送的命令，可能是文本方式或二进制代码。在发送二进制代码时，应特别注意发送的格式。发送命令过程是一个带参过程，这样可使发送命令简便易行。具体程序如下：

Ｓｕｂ发送单片机命令过程（ｃｏｌｌ＇ｌｌｌｑ－ｉｉｎｄ

Ｄｉｍ输出命令（１

Ｔｏ

１）Ａｓ

Ｂｙｔｅ

ＤｏＥｖｅｎｍ

输出命令（１）＝ｃｏｍｍａｎｄ

ＭＳＣｏｍｍｌ．ＯｕｔＢｕｆｆｅｒＣｏｕｎｔ＝０

ＭＳＣｏｍｍｌ．Ｏｕｔｐｕｔ＝输出命令ＭＳＣｏｍｍｌ．ＩｎＢｕｆｆｅｒＣｏｕｎｔ＝０

＾ｓＢｙｔｅ）

■口圜２０００．０４（上）