[TP7] Delay qui s'arrête quand une expression est vraie

Bonjour

Voilà, j'aimerais fabriquer (c'est un bien grand mot :aie:) une fonction delay mais, comparée à celle existante, la mienne devra s'arrêter quand une expression sera vraie.

En résumé pour résumer c'est un delay mais qui s'arrête si l'expression est vraie (à vrai dire c'est surtout pour keypressed);

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

program test;   uses crt;   procedure cdelay(t : integer; exp : boolean); {t = temps du delay, exp : l'expression}   var i : integer;   begin for i := 1 to t do begin delay(1); if (exp=true) then break; {c'est cette ligne qui ne fonctionne pas} end; end;   begin cdelay(5000,keypressed); write('ok'); end.

---

et aussi le deuxième problème c'est que le temps d'attente n'est plus du tout le même, quand je mets 5000 dans t, c'est-à-dire 5 secondes, le temps réel est de 8 secondes.

Merci d'avance.

Salut,

L'appel à la fonction...

Code:

---

cdelay(5000,keypressed);

---

équivaut à

Code:

---

1 2	cdelay(5000,false); { Si aucune touche n'a été préssée } cdelay(5000,true); { Si touche déjà préssée }

---

Mais il faut que la fonction (keypressed en l'occurence) soit appelée dans la procedure cdelay à chaque itération.

Dans la procedure nous pourrions faire...

Code:

---

if (keypressed=true) then break;

---

Mais (pour le fun) nous pouvons aussi passer en paramètre à la fonction cdelay une variable (de type sous-programme) contenant l'adresse d'une fonction booléenne. Cette dernière renvoyant le résultat de la fonction keypressed en l'occurence.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

program test;   uses crt;   { Type sous-programme } type BooleanFunc=function:boolean;   { La variable expression est destinée à contenir l'adresse d'une fonction booléenne sans paramètres } var expression:BooleanFunc;   { Important ! L'appel à cette fonction sera de type Far call } function GetExpression:boolean;Far; begin GetExpression:=keypressed; end;     procedure cdelay(t:integer; const exp:BooleanFunc); {t = temps du delay ; exp = Adresse de la fonction booléenne } var i:integer;   begin for i := 1 to t do begin delay(1); if (exp=true) then break; { Appel la fonction "pointée" par exp } end; end;     begin expression:=GetExpression; { expression contient l'adresse de la fonction GetExpression } cdelay(5000,expression); write('ok'); end.

---