pci6401.pas

一个测试激光控制卡扫描的测试程序

unit PCI6401;

interface

uses
  Windows;

function Regist_Pci6401: Longint; cdecl; external 'PCI_6401.dll';
function Close_Pci6401: Longint; cdecl;  external 'PCI_6401.dll';

(*
   nChannel
   0:         Y 轴
   2:         X 轴
*)
function AO_OutputChannel( nChannel, nValue: WORD): Longint; cdecl; external 'PCI_6401.dll';

(*
   0: LaserOn
*)

function DO_Output(nValue: WORD): Longint; cdecl; external 'PCI_6401.dll';

(*
   1: 脚踏
*)

function DI_Input(var pValue: WORD): Longint; cdecl; external 'PCI_6401.dll';

(*
   TValue: 周期
   HValue: 高时间
*)

function PWM_Output(TValue , HValue: WORD): Longint; cdecl; external 'PCI_6401.dll';

implementation

initialization
  Regist_Pci6401;

finalization
  Close_Pci6401;

end.