TADAM6000.ReadAI
| TADAM6000 = class (TObject) | Interface de TADAM6000 | Exemples de TADAM6000 |
Qubes 6.0 Lecture de la valeur d'une entrée analogique
Syntaxe
function ReadAI(numAI: Integer): Integer
numAI: numéro de l'entrée analogique (entre 0 et N-1)
Remarques
- L'utilisation de cette fonction n'est possible que si le module possède des entrées analogiques.
Exemples
uses SysUtils, Networking.ADAM;
var boitier : TADAM6000;
var lstValues : TStrings;
var i : Integer;
lstValues:=TStrings.Create;
boitier:=TADAM6000.ConnectModbusTCP('6024', '192.168.0.30');
try
// Attente que la connexion soit établie
while not boitier.Connected do begin
if i>=20 then Raise Exception.Create('Connexion impossible avec le module ADAM');
Sleep(100);
Inc(i);
end;
// Lecture de l'entrée analogique n° 4 (AI3)
InformationDlg(IntToStr(boitier.ReadAI(3)));
// Lecture de la sortie analogique n° 1 (AO0)
InformationDlg(IntToStr(boitier.ReadAO(0)));
// Passage à 1 de la sortie analogique n° 2 (AO1)
boitier.WriteAO(5, 1);
finally
lstValues.Free;
boitier.Free;
end;
var boitier : TADAM6000;
var lstValues : TStrings;
var i : Integer;
lstValues:=TStrings.Create;
boitier:=TADAM6000.ConnectModbusTCP('6024', '192.168.0.30');
try
// Attente que la connexion soit établie
while not boitier.Connected do begin
if i>=20 then Raise Exception.Create('Connexion impossible avec le module ADAM');
Sleep(100);
Inc(i);
end;
// Lecture de l'entrée analogique n° 4 (AI3)
InformationDlg(IntToStr(boitier.ReadAI(3)));
// Lecture de la sortie analogique n° 1 (AO0)
InformationDlg(IntToStr(boitier.ReadAO(0)));
// Passage à 1 de la sortie analogique n° 2 (AO1)
boitier.WriteAO(5, 1);
finally
lstValues.Free;
boitier.Free;
end;