User manual

ManualsBrandsVelleman ManualsHardwareVM110N

Příklad

var // global variables

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

procedure TForm1.Button1Click(Sender: TObject);

var p:pointer;

i:integer;

s:string;

begin

p:=@DAC; // Address of the data buffer for the DAC array

ReadDACarray(p); // Read the data from K8D.DLL

memo1.clear;

s:='';

for i:=1 to MaxDACchannel do s:=s +inttostr(DAC[i] and $ff)+chr(9);

memo1.lines.add(s); // Display the DAC dataend;

ReadIOconfigArray

Syntaxe

PROCEDURE ReadDAarray(Buffer:Pointer);

Parametr

Buffer: Ukazatel do pole s daty dlouhých čísel, kde mají být data přečtena.

Popis

Pole s DA daty jsou načteny z K8D.DLL do aplikačního programu.

Příklad

var // global variables

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

procedure TForm1.Button1Click(Sender: TObject);

var p:pointer;

i:integer;

s:string;

begin

p:=@DA; // Address of the data buffer for the DA array

ReadDAarray(p); // Read the data from K8D.DLL

memo1.clear;

s:='';

for i:=1 to MaxDAchannel do s:=s +inttostr(DA[i] and $ff)+chr(9);

memo1.lines.add(s); // Display the DA data

end;

Použití DLL v Delphi

Seznam některých polí v proměnných, K8D.DLL procesů a funkcí a dvou nejdůležitějších procesů

aplikačního programu (FormCreate a 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';