Utilisation de la fonction "Delay"

Version imprimable

29/08/2010, 09h27
TuniCoder

Utilisation de la fonction "Delay"
Salut les développeurs,
je suis entrain de réaliser un petit programme qui nécessite la fonction "Delay", mais quand j'intègre cette fonction dans mon code j'aurais un problème au niveau du compilation (La fonction n'est pas connue par le compilateur. NB: l'unité WINCRT est integrer dans mon code :s).
Le même code fonction sur Dev-Pascal version 1.9.2, cela signifie qu'il ya un problème avec Turbo Pascal et Borland Pascal, mais moi je crois que le niveau peut être au niveau du system d'exploitation (OS: Windows Seven Ultimate 32Bit) d'où il vient l'erreur de compilation?

Voila un simple code qui ne compile pas sous Borland Pascal mais il compile nickel sous Dev-Pascal
Code:

1 2 3 4 5 6 7 8 9 10 program app01; uses wincrt; begin writeln('1'); delay(1000); writeln('2'); delay(1000); readln; end.
Merci d'avance :), ravie d'être parmi vous les amis :p.
29/08/2010, 11h57
darrylsite

http://www.developpez.net/forums/d47...ques-secondes/

Salut;

Tu peux utiliser le code suivant pour simuler la fonction Delay(inexistante dans TPW mais elle existe sous TP et BP):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses wincrt,WinDos;
var cnt:LongInt; Wait:LongInt;
    h, m, s, hund : Word;
{========================}
Function Attendre(csec:Integer):Integer;
  Var wt:LongInt;
 begin
   GetTime(h,m,s,hund);
   wt:=(h*3600+m*60+s)*100;
  Repeat
   GetTime(h,m,s,hund);
   Wait:=100*(h*3600+m*60+s);
  Until Wait-wt>=csec;
  Attendre:=csec;
 end;
{=======================}
Begin
  writeln('Départ');
  {Le nombre à mettre dans Attendre est en centième de seconde}
  Writeln('Durée écoulée : ',Attendre(500)/100:0:2,' secondes');
  Write('Terminé');
End.

(C'est la fonction Attendre qu'il faudra utiliser dans ton code)

Citation:

(C'est la fonction Attendre qu'il faudra utiliser dans ton code)

Si tu veux que ta fonction soit facilement utilisable, il faudra eviter d'utiliser des variables globales dans la fonction. Ceci afin d'eviter tout éffet de bord.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function Attendre(csec:Integer):Integer; Var wt:LongInt; Wait:LongInt; h, m, s, hund : Word; begin GetTime(h,m,s,hund); wt:=(h*3600+m*60+s)*100; Repeat GetTime(h,m,s,hund); Wait:=100*(h*3600+m*60+s); Until Wait-wt>=csec; Attendre:=csec; end;
Sinon, a quoi sert exactement la valeur retournée par la fonction?

30/08/2010, 21h59
l_autodidacte

Salut

Tu as raison pour la portabilité, j'aurais dû déclarer les variables utilisées par la fonction en local, chose qui m'a échappé en reformulant le code et en intégrant cette fonction car au début j'ai conçu ce code sans sous-programme.

Pour le retour de la fonction, c'est justement pour avoir la valeur exacte de "csec" car, à mon sens, quand on a :"Until Wait-wt>=csec" cela suppose qu'on peut avoir exactement csec ou csec+1 ou csec+2 ....
J'ai appris qu'une fonction(du moins en TP) doit retourner un résultat.
Essaie donc d'exécuter le code tel qu'il est en mettant en commentaire "Attendre:=csec;" et tu auras un résultat erroné : "Durée écoulée : 47.59 secondes".

Une fonction qui ne retourne pas une valeur est une procedure pour ne pas trop se casser la tête.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Attendre(csec : Integer);
  Var wt:LongInt;
       Wait:LongInt;
       h, m, s, hund : Word;
 begin
   GetTime(h,m,s,hund);
   wt:=(h*3600+m*60+s)*100;
  Repeat
   GetTime(h,m,s,hund);
   Wait:=100*(h*3600+m*60+s);
  Until (Wait-wt)>=csec;
 end;

31/08/2010, 02h03
l_autodidacte

Je suis d'accord sur ce point.
Si on veut uniquement un "Delay", on peut se passer de la fonction et on utilise une "Procedure".
Mais si on veut par exemple afficher la durée écoulée, on est obligé à chaque fois de modifier la Procedure, chose qui n'est pas pratique non !

De toute façon, cela revient au demandeur de choisir entre "Procedure" et "Function" et l'une ou l'autre permet de faire une pause.
31/08/2010, 02h26
TuniCoder

Merci pour l'aide :) je utilise maintenant Dev-Pascal (la fonction Delay marche a 100%)
je vais essayer avec Borland Pascal et merci pour l'aide :)
02/09/2010, 05h05
l_autodidacte

Si c'est OK, n'oublie pas de marquer le post en :resolu: