module1.bas

用vb编写的并口驱动的小程序

Attribute VB_Name = "Module1"
Public Declare Function MMPOpen Lib "MMPDLL.dll" () As Long
Public Declare Function MMPClose Lib "MMPDLL.dll" () As Long
Public Declare Function MMPOutp Lib "MMPDLL.dll" (ByVal IOAddr As Integer, ByVal data As Byte) As Long
Public Declare Function MMPInp Lib "MMPDLL.dll" (ByVal IOAddr As Integer) As Byte
'**********************************************************************************
'函数说明
'MMPOpen
'MMPClose
'以上2个函数,若调用成功,返回值为0,否则为1;
'MMPOutp
'此函数,若调用成功,返回值为1,否则为0;
'MMPInp
'若调用成功,返回值为实际读到的并口数据,否则为&HAA;
'**********************************************************************************