Discussion :

[niz208]

Salut tout le monde
Je suis nouveau dans ce forum.
SVP : y a-t-il une commande en Pascal qui permet de faire une pause de temps dans un programme ?
Exemple : je veux afficher les éléments d'un tableau comme suit :
on affiche t[1] ensuite une pause de temps (2 minutes) ensuite afficher t[2] ensuite une pause de temps... comme wait ou bien delay.
Merci beaucoup

[M.Dlb]

Bravo, tu as la réponse: delay.

Pourquoi ne pas regarder dans l'aide ? Ca aurait pris 3 secondes au lieu d'attendre une heure qu'une brave âme vous donne la réponse...

[niz208]

Bravo, tu as la réponse: delay.

Pourquoi ne pas regarder dans l'aide ? Ca aurait pris 3 secondes au lieu d'attendre une heure qu'une brave âme vous donne la réponse...

Sorry, mais le delay n'existe pas ni dans l'aide, ni dans le compilateur
merci une autre fois

[ALT]

Comment ça, delay n'existe pas dans le compilateur ?
C'est quel compilateur ?

[niz208]

Comment ça, delay n'existe pas dans le compilateur ?
C'est quel compilateur ?

Je travail avec pascal turbo pascal TPW 1.5
et il n'ya pas de delay

[darrylsite]

Je travail avec pascal turbo pascal TPW 1.5
et il n'ya pas de delay

Continue de crier. Tu es là pour demender de l' aide à ce que je pense.
Biensur que delay existe. Il suffit d' inclure la bibliotheque wincrt;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
program continue_de_crier;
uses wincrt;
begin
writeln('je suis entrain de crier');
delay(1000000);
{pour que tu ne cries plus};
end.

[M.Dlb]

Et dans l'aide il est pas dit d'ajouter wincrt aux unités ??? RTFM

[dot-_-net]

Continue de crier. Tu es là pour demender de l' aide à ce que je pense.
Biensur que delay existe. Il suffit d' inclure la bibliotheque wincrt;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
program continue_de_crier;
uses wincrt;
begin
writeln('je suis entrain de crier');
delay(1000000);
{pour que tu ne cries plus};
end.

Oui pour utiliser le delay() ; on a pas besoin de déclarer la bibliothèque ‘wincrt’

Un jour j’ai eu besoin d’appeler la fonction lenght() qui nécessite l’appel de la bibliothèque wincrt mais j’ai pas trouver cette bibliothèque ; je travaille sur le turbo pascal 7.0

[droggo]

Fio,

Oui pour utiliser le delay() ; on a pas besoin de déclarer la bibliothèque ‘wincrt’

Un jour j’ai eu besoin d’appeler la fonction lenght() qui nécessite l’appel de la bibliothèque wincrt mais j’ai pas trouver cette bibliothèque ; je travaille sur le turbo pascal 7.0

Oui, Wincrt, c'est pout TPW. Pour TP, c'est tout simplement crt.

[tazarkaa]

bonjour

delay n'exise pas sur TPW 1.5 , vous pouvez le vérifier dans l'aide..

[droggo]

Dio,

bonjour

delay n'exise pas sur TPW 1.5 , vous pouvez le vérifier dans l'aide..

C'est un fait.

On peut la simuler comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Procedure Delay(Millisecond:Integer);
Var
  fin:LongInt;
Begin
  fin:=GetTickCount+(Millisecond);
 
  Repeat
  Until GetTickCount>=fin;
End;

[maxiNoob]

merci pour l'info, mais c'est WINPROCS qu'il faut inclure avec seulement wincrt ça ne marche pas

[Dr.Who]

et "sleep" ? elle existe pas la fonction "sleep" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure Sleep(milliseconds: Cardinal); external 'kernel32.dll' name 'Sleep'; stdcall;

[Alcatîz]

TPW ne connaît que l'API 16 bits.

[gharbic]

et "sleep" ? elle existe pas la fonction "sleep" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure Sleep(milliseconds: Cardinal); external 'kernel32.dll' name 'Sleep'; stdcall;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Program compeur;
Uses Wincrt;
Var
   i:  Integer;
 
 
Procedure Delay(i:Integer);
Var
   fin,GetCount:  Longint;
Begin
   fin := 500000000;
	 GetCount:=0;
   Repeat
				GetCount:=GetCount+1;
   Until GetCount>=fin*i;
End;
 
 
Begin
   For i:=1 To 10000 Do
      Begin
         Writeln('compteur: ',i);
         Delay(1);
         Clrscr;
      End;
End.

[ALT]

Mhoui, évidemment.
Ceci dit, ça appelle deux remarques :

1. La valeur 500000000 doit être réévaluée pour chaque processeur, sinon le cadencement est faux.
2. C'est excessivement consommateur en temps processeur. Sans importance avec un système monotâche (MS-DOS, par exemple), mais impensable avec un système multitâche.

Voilà.