I think:
Port.def file:
Code:
LIBRARY Port
DESCRIPTION DLL FOR I/O PORT
EXPORTS
Outp @1
Inp @2
Port.cpp file:
Code:
#include "conio.h"
short _stdcall Outp(int PortAddress,int PortData)
{
short Dummy;
Dummy=(short)(_outp(PortAddress,PortData));
return(Dummy);
}
short _stdcall Inp(int PortAddress)
{
short PortData;
PortData=(short)(_inp(PortAddress));
return(PortData);}
in VB:
Private Declare Function Outp Lib “Port.dll” (Byval PortAddress as Integer,Byval PortData as Integer) as Integer
Private Declare Function Inp Lib “Port.dll” (Byval PortAddress as Integer) as Integer
Reading:
Portvalue = Inp(Port_Number)