Faire du calcul avec « function » ?

Dernière mise à jour le 15/02/2014

--------------------------------------------------------------------------------------------------------------------------------------------------------------

Faire du calcul avec « function » ?

Figure 2 1 1 b

 

 

 

 

 

 

 

 

 

 

 

 

 

Prenons l’exemple de la figure 2.2.1.a  

Le principe est le suivant, lorsque nous appuyons sur le Bp1 le résultat est 1, si nous appuyons sur le Bp2 le résultat est de 2, et si on appuie sur le Bp3, le résultat est de 3. Attention un seul bouton à la fois.

program exemple_1; 

procedure init;

begin

  TRISA :=$FF; // port A configuré en entrée 

  TRISB :=$00; // port B configuré en sortie

  PORTB:=$00;

  CMCON := $07; // désactivation comparateurs

end; 

function addition(x,n:byte):byte;

begin

  result:=x+n; //la valeur du resultat se trouve dans 

end;           //"result"

begin

init;

  while true do

begin

  if PORTA.0=1 then  PORTB:=addition(0,1);

  if PORTA.1=1 then  PORTB:=addition(1,1);

  if PORTA.2=1 then  PORTB:=addition(2,1);

end;

end.

Nous verrons plus loin comment se servir d’un affichage 2x16 caractère et d’écrire la valeur directement dans cette affichage. Il est vrai que c’est beaucoup plus agréable de lire la valeur sur un écran LCD plutôt que de déchiffrer les leds allumées.    

Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site