Faire une pause de quelques secondes

Version imprimable

17/01/2008, 12h39
niz208

Faire une pause de quelques secondes

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
17/01/2008, 13h10
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...
17/01/2008, 17h16
niz208

Sorry " dealy " unknown identifier

Citation:

Envoyé par wormful_sickfoot

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
17/01/2008, 18h25
ALT

8O 8O 8O 8O
Comment ça, delay n'existe pas dans le compilateur ?
C'est quel compilateur ?
17/01/2008, 18h43
niz208

Citation:

Envoyé par ALT

8O 8O 8O 8O
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
17/01/2008, 18h51
darrylsite
Citation:

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:

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.
17/01/2008, 19h10
M.Dlb

Et dans l'aide il est pas dit d'ajouter wincrt aux unités ??? RTFM
18/01/2008, 15h02
dot-_-net
Citation:
Envoyé par darrylsite

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:

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
18/01/2008, 15h13
droggo

Fio,

Citation:

Envoyé par dot-_-net

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. :)
16/03/2008, 21h31
tazarkaa

bonjour

delay n'exise pas sur TPW 1.5 :( , vous pouvez le vérifier dans l'aide..
16/03/2008, 22h31
droggo
Dio,

Citation:

Envoyé par tazarkaa

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:

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;
:)
17/10/2009, 16h10
maxiNoob

merci pour l'info, mais c'est WINPROCS qu'il faut inclure avec seulement wincrt ça ne marche pas :ccool:
17/10/2009, 17h02
Dr.Who

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

Code:

procedure Sleep(milliseconds: Cardinal); external 'kernel32.dll' name 'Sleep'; stdcall;
17/10/2009, 20h18
Alcatîz

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

Citation:

Envoyé par Dr.Who

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

Code:

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

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
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.

28/01/2020, 15h21
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à.