1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211
| unit digitool;
interface
const AT_LAB=160;
const PC_TOR48=20;
const PC_ADC12B8VD=130;
const PCI_LAB12B=520;
const PCI_TOR48=550;
const PCI_OPTO16V=560;
const PCI_MICROLAB=530;
const DT_AD_MONO=$8000; //* 0=mode monopolaire,1=mode bipolaire */
const DLLNAME='Pcilabnt.dll'; // entrer le nom correspondant à la carte
const PORT_A=0;
const PORT_B=1;
const PORT_C=2;
var gain : array[0..16]of Word;
type
ULONG =Cardinal;
function Reset_carte( mode : Word;
extension : ULONG;
carte :Word;
adresse :Word) : smallint; stdcall;
external DLLNAME name'_Reset_carte@16';
function Dinit(p_port :Word;
mode :Word;
no_comp:Word;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Dinit@20';
function Din( var p_valeur : word;
port :Word;
no_comp :Word;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Din@20';
function Dout( valeur :Word;
port :Word;
no_comp :Word;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Dout@20';
function Dinscan( port_tampon : Word;
port_carte : Word;
nb_port_tampon : Word;
nb_port_carte : word;
no_comp :Word;
nb_val : ULONG;
var frequence : ULONG;
mode : Word;
var tampon: Byte;
exts : ULONG;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Dinscan@48';
function Doutscan( port_tampon : Word;
port_carte : Word;
nb_port_tampon : Word;
nb_port_carte : Word;
no_comp :Word;
nb_val : ULONG;
var frequence : ULONG;
mode : Word;
var tampon: Byte;
exts : ULONG;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Doutscan@48';
function Ain(var data :Word;
voie :Word;
gain :Word;
mode :Word;
ext :ULONG;
carte :Word;
adresse :Word):smallint;stdcall ;
external DLLNAME name'_Ain@28';
function Ainscan( voie_tampon : Word;
voie_carte : Word;
nb_voie_tampon : Word;
nb_voie_carte : word;
var gain :Word;
nb_val : ULONG;
var frequence : ULONG;
mode : Word;
var tampon: Word;
exts : ULONG;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Ainscan@48';
function Aout(data :Word;
voie :Word;
mode :Word;
ext :ULONG;
carte :Word;
adresse :Word):smallint; stdcall ;
external DLLNAME name'_Aout@24';
function Aoutscan( voie_tampon : Word;
voie_carte : Word;
nb_voie_tampon : Word;
nb_voie_carte : word;
nb_val : ULONG;
var frequence : ULONG;
tint : Word; //non utilisé
mode : Word;
polarite : Word; //non utilisé
var tampon: Word;
exts : ULONG;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Aoutscan@52';
function Ainf(var data :single;
voie :Word;
gain :Word;
mode :Word;
ext :ULONG;
carte :Word;
adresse :Word):smallint;stdcall ;
external DLLNAME name'_Ainf@28';
function Ainfscan( voie_tampon : Word;
voie_carte : Word;
nb_voie_tampon : Word;
nb_voie_carte : word;
var gain :Word;
nb_val : ULONG;
var frequence : ULONG;
mode : Word;
var tampon: Single;
exts : ULONG;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Ainfscan@48';
function Aoutf(data :Single;
voie :Word;
mode :Word;
ext :ULONG;
carte :Word;
adresse :Word):smallint; stdcall ;
external DLLNAME name'_Aoutf@24';
function Aoutfscan( voie_tampon : Word;
voie_carte : Word;
nb_voie_tampon : Word;
nb_voie_carte : word;
nb_val : ULONG;
var frequence : ULONG;
tint : Word; //non utilisé
mode : Word;
polarite : Word; //non utilisé
var tampon: Single;
exts : ULONG;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Aoutfscan@52';
function Cinit(valeur : word;
no_composant :Word;
mode :Word;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Cinit@20';
function Cread(var p_valeur : word;
no_composant :Word;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Cread@16';
function Cstart(no_composant :Word;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Cstart@12';
function Cstop(no_composant :Word;
carte :Word;
adresse:Word): smallint; stdcall;
external DLLNAME name'_Cstop@12';
function ReadRegister(adresse :Word;
var p_valeur :Word):smallint; stdcall ;
external DLLNAME name'_ReadRegister@8';
function WriteRegister(adresse :Word;
data :Word):smallint; stdcall ;
external DLLNAME name'_WriteRegister@8';
implementation
end. |
Partager