TADAM6000.ReadDI
| TADAM6000 = class (TObject) | Interface de TADAM6000 | Exemples de TADAM6000 |
Qubes 6.0 Lecture de la valeur d'une entrée numérique
Syntaxe
function ReadDI(numDI: Integer): Integer
numDI: numéro de l'entrée numérique (entre 0 et N-1)
Remarques
- L'utilisation de cette fonction n'est possible que si le module possède des entrées numériques.
- La valeur est 0 ou 1.
Exemples
uses SysUtils, Networking.ADAM;
var boitier : TADAM6000;
var lstValues : TStrings;
var i : Integer;
lstValues:=TStrings.Create;
boitier:=TADAM6000.ConnectModbusTCP('6052', '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 numérique n° 4 (DI3)
InformationDlg(IntToStr(boitier.ReadDI(3)));
// Lecture de la sortie numérique n° 1 (DO0)
InformationDlg(IntToStr(boitier.ReadDO(0)));
// Passage à 1 de la sortie numérique n° 6 (DO5)
boitier.WriteDO(5, 1);
finally
lstValues.Free;
boitier.Free;
end;
var boitier : TADAM6000;
var lstValues : TStrings;
var i : Integer;
lstValues:=TStrings.Create;
boitier:=TADAM6000.ConnectModbusTCP('6052', '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 numérique n° 4 (DI3)
InformationDlg(IntToStr(boitier.ReadDI(3)));
// Lecture de la sortie numérique n° 1 (DO0)
InformationDlg(IntToStr(boitier.ReadDO(0)));
// Passage à 1 de la sortie numérique n° 6 (DO5)
boitier.WriteDO(5, 1);
finally
lstValues.Free;
boitier.Free;
end;