Introduire un délai de réponse dans un Quizz

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 !

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:

---

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.

---