4.   TTL信号的采集

RS232接口可以直接采集TTL信号，TTL信号电平与RS232的标准规定是不一样的，但TTL信号电平在RS232标准规定电平之内，所以TTL信号可以直接通过RS232进行采集。谈到RS232直接I/O操作，就要考虑MSR寄存器。

QBASIC采集例程

PINS =INP(&H3FE)

用I/O操作实现RS232口数字及模拟信号的采集

宋永强 北京232信箱 邮编101149

中海油田服务有限公司研发中心信息技术及产品制造部

BIT7 = (PINS AND 128) / 128

BIT6 = (PINS AND  64) /  64

BIT5 = (PINS AND  32) /  32

BIT4 = (PINS AND  16) /  16

TC++采集例程

#include<conio.h>

#include<stdio.h>

main()

{

int ISTATU,BNC,BIT7,BIT6,BIT5,BIT4;

ISTATU = inportb(0x3fe);

BIT7 = (ISTATU&128) / 128

BIT6 = (ISTATU& 64) /  64

BIT5 = (ISTATU& 32) /  32

BIT4 = (ISTATU& 16) /  16

}

Visual Basic采集例程

由于Visual Basic本身不具备端口处理能力。因此，要借助于外部的动态链接库实现对端口的操作。WINACQ.DLL和WINACQ32.DLL是比较适用的动态链接库。前者用于VB2.0及VB3.0在WIN3X环境下的程序开发，后者用于VB5.0及VB6.0在WIN9X环境下的控制开发。您可以任意使用传播这两个动态链接库。

此程序可以在处或在下述站点免费下载：

http://www.download.com.cn

http://www.daqchina.net

l        VB2或VB3编程

在MODULE1.BAS模块中声明送数函数

DECLARE FUNCTION OUTDATA LIB "WINACQ.DLL"

(BYVAL WPP AS INTEGER,BYVAL WMM AS INTEGER)

AS INTEGER

其中WPP: 端口地址    WMM: 数据

在MODULE1.BAS模块中再声明取数函数

DECLARE FUNCTION FETDATA LIB "WINACQ.DLL"

(BYVAL WPP AS INTEGER) AS INTEGER

其中WPP: 端口地址    函数返回值即为读取的数据

在FORM1窗体上放一个COMMAND1钮，其下面填写代码：

ISTATU = FETDATA(&H3FE)

BIT7  = (ISTATU AND 128) / 128

BIT6 = (ISTATU AND  64) /   64

BIT5 = (ISTATU AND  32) /   32

BIT4 = (ISTATU AND  16) /   16

l        VB5或VB6编程

在VB5或VB6下编程与在VB2或VB3下编程类似。

在MODULE1.BAS模块中声明送数函数

DECLARE FUNCTION OUTDATA LIB "WINACQ32.DLL"

(BYVAL WPP AS INTEGER,BYVAL WMM AS INTEGER)

AS INTEGER

其中WPP: 端口地址    WMM: 数据

在MODULE1.BAS模块中再声明取数函数

DECLARE FUNCTION FETDATA LIB "WINACQ32.DLL"

(BYVAL WPP AS INTEGER) AS INTEGER

其中WPP: 端口地址    函数返回值即为读取的数据

在FORM1窗体上放一个COMMAND1钮，其下面填写代码：

ISTATU = FETDATA(&H3FE)

BIT7 = (ISTATU AND 128) / 128

BIT6 = (ISTATU AND  64) /  64

BIT5 = (ISTATU AND  32) /  32

BIT4 = (ISTATU AND  16) /  16

上述编程需要将WINACQ.DLL及WINACQ32.DLL拷贝到WINDOWS\SYSTEM目录及WINDOWS\SYSTEM32目录下面去。

采集到的BIT7、BIT6、BIT5、BIT4意义如下：

由此可以看出，我们通过软件连续读取MSR寄存器的状态就直接反应了RS232口D型接头的针脚的电平情况。