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

时间：2025-03-12

单片机

捌童经济科技研发

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

６．０

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

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

Ｐｒｉｖａｔｅｓｕｂ

ｆｏｒｍ＿ｌｏａｄＯ

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

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

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

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

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

’波特率

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

位

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

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

’每收到一

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

坐标

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

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

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

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

ｎ帅２

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

’取

输入缓冲区字节个数

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

７把输

入缓冲区数据送给数组

Ｆｏｒｉ＝０Ｔｏ

ｎｕｍ．一１

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

万方数据

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

ｉ

ｂ（ｉ）＝确ｎｇ（ｉ）

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

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

Ｅｌｓｅ

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

组数据给绘图函数

ＥｎｄＩｆ

Ｎｅｘｔｉ

ＥｎｄＳｕｂ

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

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

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

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

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

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

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

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

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

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

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

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

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