Discussion :

[IMPRO]

bonjour ,
voila je veux faire un programme qui fait un test , les but des ces tests est de répondre a des question dans un temps de 30 sec et de mettre la réponse dans un emplacement réservé . il ya 30 question
mais j ai un problème avec le temps limité(30 sec) , alors j ai utilisé la commande DELAY
voila le code de la partie ou j ai le problème
( les question et les reposes sont dans un tableau )
-----------------------------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
cpt:=0;
 
for i := 1 to 30  do
 begin
   writeln(t[i].question);
   delay(3000);
   readln(reponse);
   if (reponse=t[i].reponse) then cpt:=cpt+1;
   clrscr;
 end;
write('le resultat de ce test est : ',cpt);
readln;
end.

---------------------------------------
mais sa marche pas , il passe + de 30 sec sans répondre mais la question elle change pas parce que il y a le READLN(reponse) ,
comment faire ??? :s
merci de m aider .

[Tux++]

bonjour,

si tu veux qu'après les 30 secondes, la question change, tu ne dois pas procéder de la sorte.

tu dois démarrer un compteur entre l'affichage de la question et la saisie au clavier de la réponse et si ce compteur dépasse 30secondes, tu passes à la question suivante

[IMPRO]

salut
justement c'est ça le problème !
1- comment déclencher le compteur en parallèle avec la l'attente de lecture, donc si l'utilisateur saisie une réponse le compteur dois s'arrêter !!

bon j'ai utilise la fonction predefinie DELAY avant la lecture mais la il ya un probleme car pour effectuer la lecture l'utilisateur doit d'abord attendre 30sec et le deuxieme probleme, quand delay ecoule ses 30sec il va passer a l'instruction readln pour recuperer la reponse, donc il ne va pas passer a la question suivante tant qu'il ne y a pas de reponse !!
comment faire pour mettre readln en parallèle avec delay, est ce que la fonction delay retourne une valeur pour tester avec ??

[droggo]

Gae,

Delay n'est pas adapte "dans dans ce cas, car mettant un delai (bizare ?) de durée fixée, ne dépendant pas du temps écoulé pour obtenir la réponse.

Il faut lire l'heure au moment où on pose la question, et attendre la réponse avec un délai maximum (Delay n'est pas adapté)

[IMPRO]

j'ai pas compris ce qu'il faut faire

[bs.box]

Comme "droggo" a indiqué,
il faut avoir premièrement le temps de début,
plus tu t'ajoute un teste dans la boucle FOR ;
puis,
Tu ne peut pas imposé readln; comme ça..
regardez un peut cet algorithme..

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
cpt:=0;
 
for i := 1 to 30  do
 begin
   writeln(t[i].question);
   repeat
   // Ici vous devez savoir comment avoir le temps; Consulter la FAQ !!
   // Puis faite vous que la condition (30 seconde écoulés) soit 
   // "TempsEcoule".
   // KeyPressed; est une fonction qui teste si une touche à été préssée
   // ou pas!!
   // donc, c'est à ces deux facteur que tu doit te travailler..
   until (TempsEcoule)or(KeyPressed);
   readln(reponse);
   if (reponse=t[i].reponse) then cpt:=cpt+1;
   clrscr;
 end;
write('le resultat de ce test est : ',cpt);
readln;
end.

Bon Courage..