2024年5月24日发(作者：)

维普资讯

基于ＶＢ的数据采集软件的开发　

工场经验　

唐昌松　

（石油大学研究生院，山东东营２５７０６２）　

Ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　Ｄａｔａ　Ｃｏｌｌｅｃｔｉｏｎ　Ｓｏｆｔ　Ｂａｓｅｄ　ｏｎ　ＶＢ　

ＴＡＮＧ　Ｃｈａｎｇ—ｓｏｎｇ　

（Ｇｒａｄｕａｔｅ　Ｓｃｈｏｏｌ，Ｕｎｉｖｅｒｓｉｔｙ　ｏｆ　Ｐｅｔｒｏｌｅｕｍ，Ｄｏｎｇｙｉｎｇ　２５７０６２，Ｃｈｉｎａ）　

摘要：介绍了ＶＢ在计算机测控系统中对硬件　

Ｓｈｅｌｌ函数的语法为：Ｓｈｅｌｌ（ｐａｔｈｎａｍｅ［，ｗｉｎ—　

Ｉ／Ｏ端口访问的两种方法，并给出了用ＶＢ开发数　

ｄｏｗｓｔｙｌｅ］），其中，ｐａｔｈｎａｍｅ是要执行的程序名，可　

据采集软件的实例。　

能还包括目录或文件夹及驱动器；ｗｉｎｄｏｗｓｔｙｌｅ表　

关键词：ＶＢ；数据采集；ＤＬＬ　

示在程序运行时窗口的样式。　

中图分类号：ＴＰ２７４　

Ｓｈｅｌｌ是以异步方式执行其它程序的，即用　

文献标识码：Ｂ　

Ｓｈｅｌｌ启动的程序可能还没有完成执行过程，就已经　

文章编号：ｌＯＯｌ一２２５７（２００２）０２—００５９—０２　

执行到Ｓｈｅｌｌ语句的后续语句。为此，可通过调用　

Ａｂｓｔｒａｃｔ：Ｔｈｉｓ　ａｒｔｉｃｌｅ　ｉｎｔｒｏｄｕｃｅｓ　ｔｗｏ　ｍｅｔｈｏｄｓ　

Ｗｉｎｄｏｗｓ　ＡＰＩ函数监视外部程序的运行状态来解　

ｏｆ　ｕｓｉｎｇ　ＶＢ　ｔｏ　ｖｉｓｉｔ　Ｉ／Ｏ　ｐｏｒｔｓ　ｏｆ　ｈａｒｄｗａｒｅ　ｉｎ　ｃｏｍ—　

决这个问题。　

ｐｕｔｅｒ　ｍｅａｓｕｒｅｍｅｎｔ　ａｎｄ　ｃｏｎｔｒｏｌ　ｓｙｓｔｅｍ，ａｎｄ　ｐｒｏ—　

１．２调用动态链接库（ＤＬＬ）　

ｖｉｄｅｓ　ａｎ　ｅｘａｍｐｌｅ　ｏｆ　ｕｓｉｎｇ　ＶＢ　ｔｏ　ｄｅｖｅｌｏｐ　ｄａｔａ　ｃｏｌ—　

ＤＬＬ类似运行函数库，是在运行期间被链接进　

ｌｅｃｔｉｏｎ　ｓｏｆｔ．　

来的。它是一种基于Ｗｉｎｄｏｗｓ的应用程序模块，只　

Ｋｅｙ　ｗｏｒｄｓ：ＶＢ；ｄａｔａ　ｃｏｌｌｅｃｔｉｏｎ；ＤＩ　Ｉ　

包括供应用程序运行时装人ＤＩ　Ｉ　的有关信息，并非　

是源代码的复制。因此，在Ｗｉｎｄｏｗｓ下使用ＤＩ　Ｉ　可　

以使多个应用程序之间共享代码和资源，从而提高　

０　引言　

运行效率。　

ＶＢ（ｖｉｓｕａｌ　ｂａｓｉｃ）是基于Ｗｉｎｄｏｗｓ环境下的一　

目前常用的ＤＩ　Ｌ开发工具为Ｖｉｓｕａｌ　Ｃ＋＋。　

种可视化，面向对象，采用事件驱动的编程工具，它　

用户可自己创建满足需要的ＤＩ　Ｉ　，也可直接利用第　

具有高效、简单易学及功能强大的特点。但是，ＶＢ　

三方提供的ＤＩ　Ｉ　。在ＶＢ程序中，只要对ＤＩ　Ｉ　进行　

不具备直接对硬件Ｉ／Ｏ端口进行访问的能力。而在　

正确的声明，便可象使用ＶＢ本身的函数一样使用　

一

些工业测控系统中，需要计算机从现场获取实际　

ＤＬＩ　中的函数。　

数据或发出控制命令，这就需要计算机实现对Ｉ／Ｏ　

２数据采集软件的开发　

端口的控制与访问。因此对ＶＢ的数据采集软件进　

行了开发，很好地解决了这一问题。　

在此，采用调用动态链接库的方法，并利用　

ＡＣ１０５７数据采集卡提供的ＤＩ　Ｉ　来进行数据采集　

１　ＶＢ访问硬件Ｉ／Ｏ端口的两种方法　

软件的开发。　

１．１调用外部应用程序　

２．１数据采集卡简介　

ＶＢ中提供有调用外部应用程序的函数　

ＡＣ１０５７是一款通用１２位Ａ／Ｄ板，具有１６路　

“Ｓｈｅｌｌ”，用来执行一个可执行性文件。可先用汇编　

多种量程输入，２４路可编程数字Ｉ／Ｏ（８２５５），可方　

或其它语言编写出对端口访问的可执行文件，然后　

便地构成模拟信号采集系统。ＡＣ１０５７可提供双极　

由Ｓｈｅｌｌ函数调用。　

性输入（输入幅度：一５Ｖ～＋５Ｖ）和单极性输入（输　

入幅度Ｏ～１０Ｖ），并可分别通过跳线器选择１、２、１Ｏ　

收稿日期：２００１…１１　１３　

倍３种放大倍率和Ｉ／Ｏ地址。　

《机械与电子９２００２（２）　

・５９。　

维普资讯

２．２　ＶＢ调用ＤＬＬ技术　

ＡＣ１０５７专为ＶＢ提供了实现１／Ｏ端口操作的　

动态链接库ａｄｏＳ２．ｄＵ。包括如下函数：　

ａ．ｄａｔａ＝ｖｂｉｎｐ（ａｄｒ）：８位数据读入操作。　

ｂ．ｄａｔａ＝ｖｂｉｎｐｗ（ａｄｒ）：１６位数据读人操作。　

ｃ．、ｂｏｕｔ　ａｄｒ，ｄａｔａ：８位数据写入操作。　

ｄ．ｖｂｏｕｔｗ　ａｄｒ，ｄａｔａ：１６位数据写入操作。　

其中，ａｄｒ：Ｉ／Ｏ端口地址，ｄａｔａ：Ｉ／Ｏ数据。　

在ＶＢ中调用ＤＩ　Ｉ　时，ＤＩ　Ｌ文件必须拷贝到　

Ｗｉｎｄｏｗｓ的Ｓｙｓｔｅｍ目录下，或在声明文件中加入　

ＤＩ　Ｉ　所在文件的路径全名。而且，应在全局模块或　

窗体层的说明部分中，用Ｄｅｃｌａｒｅ语句声明所要使　

用的ＤＩ　Ｉ　中的函数。例如：　

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ｖｂｉｎｐ　Ｌｉｂ　ａｃｉｏ３２．ｄｌｌ　（Ｂｙ—　

Ｖａｌ　ｐｏｒｔ　Ａｓ　Ｉｎｔｅｇｅｒ）Ａｓ　Ｉｎｔｅｇｅｒ　

其中，ｖｂｉｎｐ是从Ｉ／Ｏ端口完成数据读人的函　

数名，ａｃｉｏ３２．ｄｌｌ是所调用的动态联接库名。对于　

ＤＩ　Ｌ中无返回值的函数，应用Ｓｕｂ代替Ｆｕｎｃｔｉｏｎ。　

同时，声明语句中的参数、返回值的类型必须与　

ＤＩ　Ｉ　中相应的参数、返回值的类型一致。　

２．３利用定时器实现定时采集　

在ＶＢ．中，可利用定时器的Ｉｎｔｅｒｖａｌ属性设置　

每秒钟采集的次数，把采集段程序放在定时器的　

Ｔｉｍｅｒ事件中来实现数据采集。对于一般计算机来　

讲，由于受系统硬件能力的限制，定时器每秒钟最多　

只能产生１８个事件，若时间间隔设置得过小，将达　

不到预期效果。　

在实时性要求较高，需要精确定时的场合，可采　

用的方法有：　

ａ．对Ｔｉｍｅｒ控件的定时进行校准。　

ｂ．利用Ｗｉｎｄｏｗｓ内部函数ＣｒｅａｔｅＳｙｓ—　

ｔｅｍＴｉｍｅｒ（）与ＫｉｌｌＳｙｓｔｅｍＴｉｍｅｒ（）。　

ｃ．调用Ｗｉｎｄｏｗ　ＡＰＩ函数ｔｉｍｅＳｅｔＥＶｅｎｔ（）和　

ｔｉｍｅＫｉｌｌＥｖｅｎｔ（）。　

２．４应用实例　

下面给出数据采集软件程序中部分主要源代码　

（以采集某０￣５００　Ｃ的温度信号为例）。设定Ａ／Ｄ　

板为单极性输入方式，Ｉ／Ｏ端口基地址为２４０Ｈ，放　

大器放大倍率为１。　

ｍＯｄｕ　ｅ１中声日月．　

Ｄ

ｅｃ１ａｒｅ　Ｓｕｂ　Ｖｂｏｕｔ　Ｌｉｂ”ａｃｉ

。　

ｏ３２・ｄｌｌ　（ＢｙＶａ１　

・６Ｏ・　

ｐｏｒｔ　Ａｓ　Ｉｎｔｅｇｅｒ。ＢｙＶａｌ　ｄａｔａ　Ａｓ　Ｉｎｔｅｇｅｒ）　

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ｖｂｉｎｐ　Ｉ　ｉｂ”ａｃｉｏ３２．ｄｌｌ”（Ｂｙ—　

Ｖａｌ　ｐｏｒｔ　Ａｓ　Ｉｎｔｅｇｅｒ）Ａｓ　Ｉｎｔｅｇｅｒ　

、ＤＩ　Ｉ　文件已拷贝到Ｗｉｎｄｏｗｓ的Ｓｙｓｔｅｍ目录　

下　

采集程序部分：　’　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＴｉｍｅｔＷＤ　Ｔｉｍｅｒ（）　

ｃｈｗｄ一１、设定温度通道号为１　

ｖｂｏｕｔ＆Ｈ２４０，ｃｈｗｄ、输入通道号　

ｖｂｏｕｔ＆Ｈ２４４，０、启动Ａ／Ｄ转换　

Ｊ一１　

Ｄｏ　ｗｈｉ１ｅ　Ｊ＜＞０、判断Ａ／Ｄ转换是否结束　

Ｊ—ｖｂｉｎｐ（￣Ｈ２４０）Ａｎｄ　１　

Ｌｏｏｐ　

ａｄｗｈ—ｖｂｉｎｐ（＆Ｈ２４４）、Ａ／Ｄ结果高８位送　

人变量ａｄｗｈ　

ａｄｗｌ—ｖｂｉｎｐ（￣Ｈ２４５）、Ａ／Ｄ结果低４位送　

人变量ａｄｗｌ　

ａｄｗｄａｔａ—ａｄｗｈ　１６＋ａｄｗｌ／１６、１２位Ａ／Ｄ　

转换结果　

ｖＷＤ＝ａｄｗｄａｔａ。１０／４０９５、对应的电压　

ＷＤ－－－５００　ｖＷＤ／５、标度变换为实际温度　

Ｏｐｅｎ”ｗｄ．ｄａｔ”Ｆｏｒ　Ａｐｐｅｎｄ　Ａｓ＃１　

ｗｒｉｔｅ＃１，ＷＤ、将温度写入数据文件以便　

后续处理　

Ｃｌｏｓｅ＃１　

Ｅｎｄ　Ｓｕｂ　

３　结束语　

笔者将上述方法应用于某试验机数据采集系统　

中，为数据处理及试验结果分析提供了原始数据。其　

人机交互界面友好，程序运行稳定可靠，系统功能组　

态方便，取得了良好的效果。　

参考文献：　

［１］邵钟武，等．数据采集系统［Ｍ］．山东：石油大学出版　

社，１　９９８．　

［２］Ｔｈａｙｅｒ　Ｒｏｂ．Ｖｉｓｕａｌ　Ｂａｓｉｃ　６揭密ＥＭ］．曾湘宁，译．北　

京：电子工业出版社，１９９９．　

生

作者简介：唐昌松　（１

二　化　

９７７　男＇

．

研　机　

～一………　…～　

四川省仪陇县人＇硕士研究　

《机械与电子｝２００２（２）