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

Pour pouvoir lire les entrées et sorties et effectuer le traitement de l'automatisme ,le programme a besoin d'utiliser une séquence qui doit être scrutée en permanence.

Avec les anciens langages de programmation (Basic , Pascal...) il fallait créer une boucle par programme . Dans les exemples de démo pour les programmes fonctionnant sous Windows il faut utiliser le composant TTimer.

C'est un composant qui permet d'être appelé à une fréquence de temps régulière. Dans mon cas le paramètre "interval" est réglé à 50ms. Ce composant est invisible à l'affichage pendant l'exécution du programme. En mode programmation il est symbolisé par une pendule.

 

procedure TForm1.Timer1Timer(Sender: TObject);

var inp1,inp2 : boolean;  // Déclaration des entrées 1 à 2

begin

    timer1.Enabled:=False; // Désactivation du Timer pendant le traitement

    inp1:=ReadDigitalChannel(1); // Lecture de l'entrée 1

    inp2:=ReadDigitalChannel(2); // Lecture de l'entrée 2

    if inp1=True then shp_ledI1.Brush.Color:=clgreen else shp_ledI1.Brush.Color:=clblue;

// si l'entrée inp1 =1 alors la led 1 est allumée en verte sinon la led 1 est colorée en bleu.

    if inp2=True then shp_ledI2.Brush.Color:=clgreen else shp_ledI2.Brush.Color:=clblue;

    timer1.Enabled:=True; // activation du Timer

end;

 

Cette partie du programme devra être exclusivement réservée à la scrutation et au traitement des entrées et sorties.

Sur la page de mon site vous trouverez les programmes complets . Ils sont en Delphi .

 

 

 

 

Tag(s) : #K8055