Introduire un délai de réponse

Version imprimable

27/02/2009, 21h45
lex001

Introduire un délai de réponse
Salut tout le monde.

Svp j'aimerais savoir s'il existe une fonction pour gérer le temps sur Turbo Pascal.
Ex : j'aimerais laisser un délai de 30 secondes pour répondre à la question 1; après ce délai, passer à la question 2.
Code:

1 2 3 writeln('Le system solair compte combien de planetes?');{question 1} readln(reponse); writeln('Sur quelle planete y trouve t'on la vie?');{question2}
Une personne a une idée ???
Merci
28/02/2009, 01h40
DUGUERPF

Salut lex001 !

Toujours dans ton projet de quizz ?

Bon, la fonction est trés simple, il s'agit de DELAY.

Cela s'écrit ainsi :

Code:

delay(1000);

Normalement, la variable entre parenthèse s'exprime en millisecondes, ce qui fait que 1000 donne un délai de 1s, 2000, 2s, etc...

Toutefois, TP7 étant une vieille machine, il s'avère que cette fonction est dépendante de la vitesse du processeur et par conséquent, 1000 sur nos ordinateurs d'aujourd'hui ne fera pas 1s.

Perso, j'ai résolu le pb en créant un fichier extérieur rassemblant toutes les options sélectionnées par le joueur dont une pour régler le délai d'affichage d'un message

Code:

VAR tempo_msg : word;

et un autre pour régler le délai d'attente entre deux clics de souris

Code:

VAR tempo_souri : word;

. Ainsi, chacun est libre de paramétrer le temps d'affichage.

Sur mon ordi, la variable tempo_msg doit être de 2000 environ pour tenir 1 seconde.

Une fois régler ton pb de QUIZZ, tu devrais penser à inclure cette possibilité de régler le délai d'attente.
28/02/2009, 11h31
Alcatîz

Bonjour,

Je ne suis pas sûr que Delay corresponde à l'attente de lex001. ;) Si on insère un Delay après avoir posé la question, cela va entraîner que l'utilisateur devra attendre x millisecondes avant de pouvoir répondre.

Pour laisser un délai de x millisecondes à l'utilisateur pour répondre, il faudrait plutôt programmer un timer. La difficulté vient cependant du fait qu'il faut interrompre proprement l'utilisateur s'il est en train de répondre, ce qui exclut de lire les réponses avec ReadLn. La solution la plus élégante serait donc de réécrire un ReadLn incluant un timer interne. ;)
28/02/2009, 13h22
darrylsite

la solution proposée par Alcatîz me parait etre la mieux adaptée. en peut y arriver en utiliser la fonction readkey qui lit une touche à la volée, et la fonction getTime de l'unité dos.
28/02/2009, 19h34
DUGUERPF

Carrément ! Je viens de relire l'énoncé du problème et effectivement, DELAY n'est pas adapté. Comme quoi, quand on a un exercice, il convient toujours de bien lire l'énoncé et comprendre ce qu'on demande...

Je suis d'accord qu'une boucle renvoyant gettime et comparant les résultats est la meilleure solution. Elle se finirait selon le motif arrivant le premier :
- soit le temps est écoulé (valeur entre le premier gettime - à conserver dans une variable - et le dernier dépasse le temps alloué);
- soit le clavier est activé. Mais si on utilise readkey, il ne faut pas oublier d'intégrer la saisie au reste du texte (car readkey renverra dans la variable la première touche frappée).
28/02/2009, 19h46
darrylsite
Citation:

Envoyé par DUGUERPF

Mais si on utilise readkey, il ne faut pas oublier d'intégrer la saisie au reste du texte (car readkey renverra dans la variable la première touche frappée).

readkey renvoie biensur un caractere. Il faut dans la boucle verifié si une touche est appuyé, de recuperer ce caractere et de le concatener avec les valeurs precedemment lues, ou arreter la boucle si un la touche "Entrée" a ete appuyée par exemple.

On peut aussi vider le buffer avant la lecture d'une nouvelle chaine avec :
Code:

1 2 3 while (keyPressed) do readkey;
01/03/2009, 11h55
DUGUERPF

Totalement d'accord. Je voulais justement pointer du doigt qu'il ne faudrait pas oublier de concatener le reste de la saisie avec le premier caractère pour avoir la réponse.
01/03/2009, 19h22
krachik

Bonjour

Je crois que tu auras un début de réponse dans cette discussion ;)
:fleche: http://www.developpez.net/forums/d55...robleme-delay/

Cordialement

Merci

Merci a tous .Avec vous explications et ce lien
http://www.developpez.net/forums/d55...probleme-delay/

j'a reussi a trouver ce que je cherchais.

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 time_;
uses dos,crt;
var c:char;
s,m,h,hund:word;
time,tem,lon : integer
text:string;
 
begin
gettime(h,m,s,hund);
time:=(h*20*60+(m*60)+s;
tem:=time+10;
      repeat
gettime(h,m,s,hund);
time:=(h*20*60+(m*60)+s;
       if keypressed then begin
C:=readkey; 
       if c=#8 then begin lon:=length(text);
delete(text,lon,1);
clrscr;writeln(text) end 
       else begin text:=text+c;
clrcr;
writeln(text); end;end;
         until (c=#13)or(c=#17)or (time>=tem);
readln
end.

:yaisse2: