Discussion :

[lex001]

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 :

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

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

[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 :

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

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 :

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

VAR tempo_msg : word;

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

Code :

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

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.

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

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

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

[darrylsite]

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 :

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

1
2
3
 
while (keyPressed) do
  readkey;

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

[krachik]

Bonjour

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

Cordialement

[lex001]

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 :

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