Discussion :

[fizzpass]

Bonjour,

J'ai pratiquement le même souci que dans ce sujet -> http://www.developpez.net/forums/d69...delai-reponse/

Le joueur a X secondes pour répondre mais il peut répondre autant de fois qu'il veut. Au bout des X secondes, dans tous les cas, on passe à la question suivante (même s'il est en train d'écrire, ou même s'il n'a rien proposé comme réponse et qu'il est encore en train de réfléchir)

Mais je n'ai pas réussi à comprendre ce qu'ils faisaient dans leurs bouts de code.
Ce que j'ai compris, c'est que le readln bloque tout, ça j'en étais presque sûr avant de venir ici.

Merci d'avance pour votre aide !

[Roland Chastain]

Effectivement, la discussion dont tu parles contient le principe de la solution.

Il s'agit d'écrire une procédure de saisie (pour remplacer ReadLn) en y incluant un chronomètre. On lit les touches du clavier et on reconstitue le mot saisi, jusqu'à ce que l'utilisateur appuie sur Entrée ou que le temps imparti soit écoulé.
Si plusieurs procédures sont concernées par cette limite de temps, la solution est la même.

Voici une fonction, bâtie sur la procédure GetTime de l'unité Dos, qui renvoie le temps écoulé (en secondes) depuis un instant déterminé.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
program GetTime_02;
 
uses
  Crt, Dos;
 
function TimeInSeconds: real;
(* Heure courante en secondes *)
var
  h, m, s, c: word;
begin
  GetTime(h, m, s, c);
  TimeInSeconds := h * 3600 + m * 60 + s + c / 100;
end;
 
var
  InitialTime: real;
  (* Heure initiale *)
 
procedure SetInitialTime;
(* Attribution de l'heure initiale *)
begin
  InitialTime := TimeInSeconds;
end;
 
function ElapsedTime: real;
(* Temps écoulé *)
begin
  ElapsedTime := TimeInSeconds - InitialTime;
end;
 
begin
  SetInitialTime;
  WriteLn(ElapsedTime:0:2, ' s');
 
  Delay(500);
  WriteLn(ElapsedTime:0:2, ' s');
 
  Delay(1000);
  WriteLn(ElapsedTime:0:2, ' s');
 
  ReadKey;
end.