在VB中控制电灯点亮的方法

二、编写操作I/O端口的动态链接库函数
VisualBASIC没有提供直接读写I/O端口的方法,所以只能借助其他语言来编写动态链接库DLL（DynamicLinkLibrary）或VXD，然后再在VisualBASIC中调用。因此我们不得不先了解如何编写操作I/O端口的动态链接库函数。
1．在汇编语言中，可以用in、out指令操作I/O端口，具体示例如下：
输入操作：
MOVDX,Port；Port为端口号
INAL,DX；读入端口数据到AL寄存器
输出操作：
MOVDX,Port；Port为端口号
MOVAL,ConByte；ConByte为控制字，将控制字送到AL寄存器
OUTDX,AL；送出控制字到端口
2．在C/C++中，通常用inp和_outp函数操作I/O端口，编写动态链接库我们可以编写如下两个函数，并把它编译生成DLL：
/*作用：从指定端口读入一个字节，参数：portid端口号，返回值：读入的字节*/
int_stdcallInport(shortportid)
{
returninp(portid);
}
/*作用：向指定端口写入一个字节，参数：portid端口号*/
void_stdcallOutport(shortportid,shortvalue)
{
outp(portid,value);
}
当需要一次操作两个字节时，我们就必须用到inpw和outpw两个函数，具体用法同inp和outp。
同时需要说明的是，_inp和_outp函数和inp和outp函数用法基本上相同，只是在使用时需要<conio.h>头文件，而且本人推荐使用_inp和_outp，而不是使用inp和outp。因为_inp和_outp在Debug和Release都可以使用，而inp和outp只能用于Release设置。如果在Debug设置时使用inp和outp，编译时不会错，但会产生链接错误。

三、VisualBASIC中操作I/O端口
到此我们就可以在VisualBASIC中通过动态链接库技术间接操作I/O端口了。在VisualBasic中动态链接库必须提前申明，其缺省为公有过程或函数。其格式为：“DeclareSub过程名Lib‘库名’[Alias‘别名’][(参数表)]”，或者“DeclareFunction过程名Lib‘库名’[Alias‘别名’][(参数表)]As类型”。例如：
PublicDeclareFunctionOutportLib"vcDll.dll"(ByValportidAsInteger,ByValvalueAsInteger)AsInteger//IO输出函数
PublicDeclareFunctionInportLib"vcDll.dll"(ByValportidAsInteger)AsInteger//IO输入函数
这样定义后在程序中就可以直接使用上面定义的函数或过程来操作I/O端口了。

四、VisualBASIC中位操作
上文介绍的I/O端口操作是一次从I/O端口中读取一个后更多字节的信号，而在工业控制领域中，往往是逐个信号的获取或操作，因此我们就有必要在读入信号时将一次读到的信号分离开来，而在输出信号时将不需要输出的其它位屏蔽掉。
1．分离读取到的I/O端口信号（需要读取D0位信号）
IOvalue=Inport（BASE）//首先读取BASE地址I/O端口信号
IOvaluer=IOvalueAND&1H//（屏蔽掉其他7位，只留下D0位）
2．屏蔽其它位信号并输出相应信号（D0位置1操作）
IOvalue=Inport（BASE）//首先读取BASE地址I/O端口信号
IOvalue=IOvalueOR&01H//（B00000001，屏蔽掉其他7位，将D0位置1）
CALLOutport（BASE,IOvalue）//输出相应信号

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

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

五、使用计算机LPT打印口做I/O端口
打印口有3个端口：数据端口、状态端口和控制端口，常用的打印口为LPT1，它的3个端口的地址分别为：378H、379H和37AH。其中378H和37AH可读可写，而379H为只读端口
计算机25针打印口各引脚定义如下图所示。

此主题相关图片如下：

^^^^^^^^^^^^^^^(丢了!)

与使用其他I/O卡一样，在运行DEBUG环境下，对打印口的各位进行检测如下。
378H作数据输出口。键入指令–O37800（01，02，04，08，10，20，40，80，FF），同时用万用表分别检测2~9脚的电压（25脚接万用表“地”），可分别测到对应位与所输入的数据相符合（”1”对应5V，”0”对应0V）。说明此地址的8位可作为8个输出线。
379H作输入端口。为了给各脚提供输入电平，我们先引入一个外部5V电源。电源地线接打印口的25脚，而后分别在10，11，12，13，15脚接入5V、0V，同时在DEBUG环境下执行-I379指令，读入此端口的数据。读到的各数据应与输入信号相符合。
37AH口只能作输出口。检测方法与378H相同。
检测结果为：
378各位输出电平和指令信号一致，D0～D8位都可以做端口输出位；
37A各位输出电平和指令信号相反，D0～D3位都可以做端口输出位；
379各位悬空状态下：11脚为“0”，10，12，13，15为“1”，故使用D3～D6做端口输入位。
综上，通常使用打印口做I/O端口的共有12个输出位和4个输入位。

六、Windows2000/XP/NT下I/O端口操作
Windows2000/XP/NT对硬件实现了屏蔽，对I/O端口进行了严格的控制，许多在Windows9x下正常运行的用户应用程序，在Windows2000/XP/NT中直接访问硬件会引起系统异常，因此不能在Windows2000/XP/NT下直接访问I/O端口。
通常有两种方法解决Windows2000/XP/NT下I/O端口操作问题,一是编写一个运行在RING0级(设备驱动驱动程序级)的虚拟设备驱动程序（VirtualXDevice,VSD），它可以不受限制地访问硬件设备、捕获I/O端口操作和内存访问等，甚至可以截获硬件中断，这样就可以在USER方式下实现Windows2000/XP/NT下I/O端口的访问操作。另一种方法就是修改I/O允许位图设置,允许一个特定的任务存取特定的I/O端口。这允许USER方式的程序在RING3级(应用程序级)按照I/O允许位图设置,不受限制地访问I/O端口。
接下来本文介绍两种在Windows2000/XP/NT下实现I/O端口操作的方法，WinIO和PortTalk。
WinIO程序库通过使用一种内核模式的设备驱动器和其它几种底层编程技巧，绕过了Windows系统的保护机制，从而允许在Windows2000/XP/NT下应用程序直接对I/O端口和物理内存进行操作。需要注意的是，在Windows2000/XP/NT下，WinIO函数库只允许被具有管理员权限的应用程序调用。WinIO程序库含有相应驱动程序的源代码和VisualBASIC例程,下载地址为：http://www.internals.com/utilities/winio.zip。
PortTalk使用的是上述的第二种方法，它够让你现有的程序运行在windows2000/XP/NT下,但是需要注意的是，因为必须在RING0和RING3下来回切换，所以使用PortTalk会降低程序的运行效率。PortTalk设备驱动程序也提供了全部源代码，下载地址为：http://www.beyondlogic.org/porttalk/porttalk.zip。