Discussion :

[abdou monta]

Bonjour !

J'ai fait une recherche à propos d'une fonction qui donne un repos entre des actions ; par exemple, je veux que cette série soit affichée l'une aprés l'autre :

loading
loading.
loading..
loading...

J'ai trouvé ce code

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;

Mais je n'ai pas compris comment ça marche, en plus "GetTickCount" est inconnue.

Merci d'avance..

[Paul TOTH]

GetTickCount c'est sous Windows, pour Turbo Pascal sous DOS tu as une fonction Delay dans l'unité CRT si mon souvenir est bon.

[abdou monta]

GetTickCount c'est sous Windows, pour Turbo Pascal sous DOS tu as une fonction Delay dans l'unité CRT si mon souvenir est bon.

c'est bon ^^ mais getTickCount est inconnue :p

[Roland Chastain]

Bonjour !

Voici un exemple illustrant la réponse donnée précédemment :

Code :

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

1
2
3
4
5
6
7
8
9
(* Turbo Pascal *)
 
program exemple_delay;
 
uses CRT;
 
begin
  delay(3000);
end.

[abdou monta]

j'ai fait une autre méthode, une boucle de calcule qui dure quelque secondes, sans affichage, mais je pense c'est pas pratique..

[abdou monta]

Bonjour !

Voici un exemple illustrant la réponse donnée précédemment :

Code :

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

1
2
3
4
5
6
7
8
9
(* Turbo Pascal *)
 
program exemple_delay;
 
uses CRT;
 
begin
  delay(3000);
end.

la fonction delay est inconnue pour TP 1.5

[Alcatîz]

Bonjour,

Pour pouvoir utiliser GetTickCount, il faut déclarer l'unité WinProcs.