User manual

ManualsBrandsVelleman ManualsHardwareVM110N

Using the DLL in Delphi

Here is the declaration of some array variables, K8D.DLL procedures and functions and the two

most important procedures of the application program (FormCreate and FormClose).

var

IOconfig: ARRAY[0..MaxIOchip] OF Integer;

IOdata: ARRAY[0..MaxIOchip] OF Integer;

DAC: ARRAY[1..MaxDACchannel] OF Integer;

DA: ARRAY[1..MaxDAchannel] OF Integer;

implementation

{$R *.DFM}

{IO CONFIGURATION PROCEDURES}

PROCEDURE ConfigAllIOasInput; stdcall; external 'K8D.dll';

PROCEDURE ConfigAllIOasOutput; stdcall; external 'K8D.dll';

PROCEDURE ConfigIOchipAsInput(Chip_no: TIOchip); stdcall; external 'K8D.dll';

PROCEDURE ConfigIOchipAsOutput(Chip_no: TIOchip); stdcall; external 'K8D.dll';

PROCEDURE ConfigIOchannelAsInput(Channel_no: TIOchannel); stdcall; external 'K8D.dll';

PROCEDURE ConfigIOchannelAsOutput(Channel_no: TIOchannel); stdcall; external 'K8D.dll';

{UPDATE IOdata & IO ARRAY PROCEDURES}

PROCEDURE UpdateIOdataArray(Chip_no: TIOchip; Data:Longint); stdcall; external 'K8D.dll';

PROCEDURE ClearIOdataArray(Chip_no: TIOchip); stdcall; external 'K8D.dll';

PROCEDURE SetIOdataArray(Chip_no: TIOchip); stdcall; external 'K8D.dll';

PROCEDURE SetIOchArray(Channel_no: TIOchannel); stdcall; external 'K8D.dll';

PROCEDURE ClearIOchArray(Channel_no: TIOchannel); stdcall; external 'K8D.dll';

{OUTPUT PROCEDURES}

PROCEDURE IOoutput(Chip_no: TIOchip ; Data: Longint); stdcall; external 'K8D.dll';

PROCEDURE UpdateAllIO; stdcall; external 'K8D.dll';

PROCEDURE ClearAllIO; stdcall; external 'K8D.dll';

PROCEDURE SetAllIO; stdcall; external 'K8D.dll';

PROCEDURE UpdateIOchip(Chip_no: TIOchip); stdcall; external 'K8D.dll';

PROCEDURE ClearIOchip(Chip_no: TIOchip); stdcall; external 'K8D.dll';

PROCEDURE SetIOchip(Chip_no: TIOchip); stdcall; external 'K8D.dll';

PROCEDURE SetIOchannel(Channel_no: TIOchannel); stdcall; external 'K8D.dll';

PROCEDURE ClearIOchannel(Channel_no: TIOchannel); stdcall; external 'K8D.dll';

{6 BIT DAC CONVERTER PROCEDURES}

PROCEDURE OutputDACchannel(Channel_no: TDACchannel ; Data: Longint); stdcall; external

'K8D.dll';

PROCEDURE ClearDACchannel(Channel_no: TDACchannel); stdcall; external 'K8D.dll';

PROCEDURE SetDACchannel(Channel_no: TDACchannel); stdcall; external 'K8D.dll';

PROCEDURE ClearDACchip(Chip_no: TIOcard); stdcall; external 'K8D.dll';

PROCEDURE SetDACchip(Chip_no: TIOcard); stdcall; external 'K8D.dll';

PROCEDURE ClearAllDAC; stdcall; external 'K8D.dll';

PROCEDURE SetAllDAC; stdcall; external 'K8D.dll';

{8 BIT DA CONVERTER PROCEDURES}

PROCEDURE OutputDAchannel(Channel_no: TDAchannel ; Data: Longint); stdcall; external

'K8D.dll';

PROCEDURE ClearDAchannel(Channel_no: TDAchannel); stdcall; external 'K8D.dll';

PROCEDURE SetDAchannel(Channel_no: TDAchannel); stdcall; external 'K8D.dll';

PROCEDURE ClearAllDA; stdcall; external 'K8D.dll';

PROCEDURE SetAllDA; stdcall; external 'K8D.dll';

{GENERAL PROCEDURES}

PROCEDURE SelectI2CprinterPort(Printer_no: Longint); stdcall; external 'K8D.dll';

PROCEDURE Start_K8000; stdcall; external 'K8D.dll';

PROCEDURE Stop_K8000; stdcall; external 'K8D.dll';

{INPUT FUNCTIONS}

function ReadIOchip(Chip_no: TIOchip):longint; stdcall; external 'K8D.dll';

function ReadIOchannel(Channel_no: TIOchannel):boolean; stdcall; external 'K8D.dll';

function ReadADchannel(Channel_no:TADchannel):longint; stdcall; external 'K8D.dll'

PROCEDURE ReadIOconficArray(Buffer:Pointer); stdcall; external 'K8D.dll';

PROCEDURE ReadIOdataArray(Buffer:Pointer); stdcall; external 'K8D.dll';

PROCEDURE ReadDACarray(Buffer:Pointer); stdcall; external 'K8D.dll';

PROCEDURE ReadDAarray(Buffer:Pointer); stdcall; external 'K8D.dll';

procedure TForm1.FormCreate(Sender: TObject);

begin

Start_K8000;