Discussion :

[Lamantin]

Bonjour à tous,
Je suis en train de créer un quizz à l'aide d'un libellé "Question" relié à ma base de données "Question", dans lequel s'affiche une question au hasard (à l'aide de InitHasard) et de 4 libellés "Réponse" dans lesquels s'affichent 3 mauvaises réponses et une bonne. Et j'ai qq questions à ce propos :

- Comment faire pour que la même question ne soit pas posée 2 fois ?
- Comment faire pour que la bonne réponse ne soit pas affichée à chaque fois dans le même libellé ?
Merci de vos réponses
A bientôt

[michel.souris]

Comment faire pour que la même question ne soit pas posée 2 fois ?

Si tu stockes les réponses... tu peux facilement savoir quelle question a déjà été posée.
Sinon je te propose de faire un tableau de booléen (dimensionner en fonction du nb de question).

Comment faire pour que la bonne réponse ne soit pas affichée à chaque fois dans le même libellé ?

Si tu sélectionne tes réponses via une requête SQL il suffit de faire un ORBER BY RANDOM()
Sinon je sais pas...

[laurent30s]

- Comment faire pour que la même question ne soit pas posée 2 fois ?
- Comment faire pour que la bonne réponse ne soit pas affichée à chaque fois dans le même libellé ?

Il s'agit de la même problématique dans les 2 cas

Tu peux tirer au hasard une question ou réponse et à chaque tirage vérifier que la question ou réponse n'a pas déjà était tiré.
Dans les derniers tirage il risque d'y avoir de nombreux cycle avant de tomber sur ceux qui n'ont pas déjà était tiré.

Tu peux sortir de la liste des possibles les questions ou réponses tirés au sort.
Ainsi on ne peut pas tiré 2 fois la même. Ça oblige à tenir 2 listes...

Sinon la méthode que je préfère, plutôt que de tirer au sort, il suffit de mélanger...

Petite procédure qui crée un ordre aléatoire

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
PROCEDURE Melange(nValMini est un entier,nValMaxi est un entier)
 
nMini est un entier = nValMini
nMaxi est un entier = nValMaxi
tabListe est un tableau d'entier
 
i,j,t sont des entiers
 
// Rempli la liste
POUR i = nMini A nMaxi
	Ajoute(tabListe,i)
FIN
 
// Fait des permutations pour mélanger
POUR i = nMini A nMaxi
	j = Hasard(i,nMaxi)
	// permute
	tabListe[i] <=> tabListe[j]
FIN
 
RENVOYER tabListe

Exemple d'utilisation mélange au hasard les valeurs de 1 à 10 et affiche le résultat dans une table

Code :

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

1
2
3
4
5
6
7
8
9
tabListe est un tableau d'entier
 
tabListe = Melange(1,10)
 
TableSupprimeTout(TABLE_SansNom8)
 
POUR i = 1 A 10
	TableAjouteLigne(TABLE_SansNom8,tabListe[i])
FIN