Visual Basic实现对I/O端口操作

　同时需要说明的是，_inp和_outp函数和inp和outp函数用法基本上相同，只是在使用时需要<conio.h>头文件，而且本人推荐使用_inp和_outp，而不是使用inp和outp。因为_inp和_outp在Debug和Release都可以使用，而inp和outp只能用于Release设置。如果在Debug设置时使用inp和outp，编译时不会错，但会产生链接错误。

　　一、Visual Basic中操作I/O端口

　　到此我们就可以在Visual Basic中通过动态链接库技术间接操作I/O端口了。在Visual Basic中动态链接库必须提前申明，其缺省为公有过程或函数。其格式为：“Declare Sub 过程名 Lib ‘库名’ [Alias ‘别名’] [(参数表)]”，或者“Declare Function 过程名 Lib ‘库名’ [Alias ‘别名’] [(参数表)] As 类型”。例如：

Public Declare Function Outport Lib "vcDll.dll" (ByVal portid As Integer, ByVal value As Integer) As Integer //IO输出函数
Public Declare Function Inport Lib "vcDll.dll" (ByVal portid As Integer) As Integer //IO输入函数

　　这样定义后在程序中就可以直接使用上面定义的函数或过程来操作I/O端口了。

　　二、Visual Basic中位操作

　　上文介绍的I/O端口操作是一次从I/O端口中读取一个后更多字节的信号，而在工业控制领域中，往往是逐个信号的获取或操作，因此我们就有必要在读入信号时将一次读到的信号分离开来，而在输出信号时将不需要输出的其它位屏蔽掉。

　　1． 分离读取到的I/O端口信号（需要读取D0位信号）

IOvalue=Inport（BASE）//首先读取BASE地址I/O端口信号
IOvaluer=IOvalue AND &1H// （屏蔽掉其他7位，只留下D0位）

　　2． 屏蔽其它位信号并输出相应信号（D0位置1操作）

IOvalue=Inport（BASE）//首先读取BASE地址I/O端口信号
IOvalue = IOvalue OR &01H //（B00000001，屏蔽掉其他7位，将D0位置1）
CALL Outport（BASE,IOvalue）//输出相应信号

　　在上面的位操作中，我们用到了逻辑运算符AND和OR，逻辑分析表如下。

AND 1 0
1 1 0
0 0 0
OR 1 0
1 1 1
0 1 0

　　使用AND运算符可以对指定的位置0，例如：十六进制&H84的二进制为：10000100，它的第三位为1，若要将第三位置为0，且其它位不变，可以使用：&H84 AND &HFB = &H80，&H80的二进制值为B10000000。

　　使用OR运算符可以对指定的位置1，例如：十六进制&H84的第二位为0，若要将第二位置为1，且其它位不变，可以使用：&H84 OR &H02 = &H86，&H86的二进制值为B10000110。