Overblog Suivre ce blog
Editer l'article Administration Créer mon blog

Il existe 5 fonctions pour gérer les sorties digitales ( Ou Tout Ou Rien).

 

La fonction WriteAllDigital

Permet d'activité les sorties en code BCD.

La déclaration

procedure WriteAllDigital(Data:integer);stdcall;external 'K8055d.DLL';

 

Ex: WriteAllDigital(3); // Valeur en binaire 0000 0011

Active les sorties 1 et 2

 

Ex : WriteAllDigital(15); // Valeur en binaire 0000 1111

Active les sorties 1 , 2 ,3 et 4.

 

La fonction ClearAllDigital.

Permet de désactiver toutes les sorties

La déclaration de la fonction

procedure ClearAllDigital;stdcall;external 'K8055d.DLL';

 

ClearAllDigital; // Mise à 0 de toutes les sorties.

 

La fonction ClearDigitalChannel.

Désactive une sortie.

La déclaration

procedure ClearDigitalChannel(Channel:integer);stdcall;external 'K8055d.DLL';

 

Ex : ClearDigitalChannel(3); // Désactive la sortie n°3

 

La fonction SetAllDigital

Permet d'activer toutes les sorties.

La déclaration

procedure SetAllDigital;stdcall;external 'K8055d.DLL';

 

Ex : SetAllDigital; // Met à 1 toutes les sorties

 

La fonction SetDigitalChannel

Permet d'activer une sortie

La déclaration

procedure SetDigitalChannel(Channel:integer);stdcall;external 'K8055d.DLL';LL';

 

Ex: SetDigitalChannel(3); Active la sortie n°3

 

 

 

Extrait de programme . Fonction OU

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

inp1,inp2 : boolean;

 

begin

    timer1.Enabled:=False;

    inp1:=ReadDigitalChannel(1);

    inp2:=ReadDigitalChannel(2);

    if (inp1=True) or (inp2=True) then

    begin

       SetDigitalChannel(1);

    end

    else

    begin

      clearDigitalChannel(1);

    end;

    timer1.Enabled:=True;

end;

 

 

Voilà pour la gestion des procédures qui sont réservées aux sorties.

Le prochain article sur la programmation de la K8055 sera consacré aux fonctions logiques.

Tag(s) : #K8055