Bonjour,

J´ai crée un petit quizz et j´aimerais comptabiliser les bonnes réponses.
Chaque question est contenu sur une seule feuille (Form) et a chaque bonne réponse, une variable "compteur" doit etre incrémenter.
Mais justement vu que les feuilles sont indépendantes, je ne sais pas comment créer le lien entre les Form pour au final avoir le nombre de bonnes réponses ( la variable "compteur" qui aurait la valeur 6 représenterait 6 bonnes réponses).
Et pour l´afficher j´ai essayer avec un Edit avec un passage de string a integer mais sans succés.
Merci

Salut,

"Mais justement vu que les feuilles sont indépendantes, je ne sais pas comment créer le lien entre les Form pour au final avoir le nombre de bonnes réponses ( la variable "compteur" qui aurait la valeur 6 représenterait 6 bonnes réponses)."

TMaForm = class (TForm)
private
FNbReponse : Integer;
public
property NbReponse : Integer read FNbReponse write FNbReponse
end;

Et dans le code :
Begin
...
...

MaFormeSuivante.NbReponse := FNbReponse;

...
...
End;

Comme je l´ai dit c´est la solution que j´utiliserai ,mais ce n´est en aucun cas LA solution.

Tu peux aussi passer par une variable globale ,mais je ne suis pas un adepte de ce genre de pratique.

"Et pour l´afficher j´ai essayer avec un Edit avec un passage de string a integer mais sans succés"

Pour ça :
Edit1.Text := IntToStr(Compteur);

Si il s´agit juste d´afficher je te conseil d´utiliser un label (en jouant sur les propriété tu peux lui donner la même tronche qu´un edit) dans ce cas ça devient :
Label1.Caption := IntToStr(Compteur);

De toute manière, au final, il faut stocker les question dans un fichier externe et ton programme les charge quand ils en a besoin en remplacant ce qui est écrit dans la form.

Ca permet de rajoutter facilement des questions.

Ok merci Sarafan
Mais ca n´affiche tjrs 0

Il faut le recopier dans chaque form la variable privé , public et le code MaFormeSuivante.NbReponse := FNbReponse; ??

J´ai tester quelques trucs:

Juste avant le

MaFormeSuivante.NbReponse := FNbReponse;

il faut rajouter FNbReponse:=FNbReponse+1;

Sinon le compteur compte rien lol

Par contre,

Il y a incrémentation du compteur de la page1 à la page2 lorsque on a trouvé la bonne réponse, ca c bon.
Mais apres, il faut obligatoirement que la derniere page, il y est une bonne réponse sinon le compteur compte seulement la derniere page (donc derniere bonne réponse) et donc la valeur du compteur vaut 1.

Alors qu´il devrait valoir 3 si 3 trois bonnes réponses , 2 si 2 bonnes réponses (que les bonnes reponses soient trouvé à la page1 et page2 ou page1 et page3 ou page2 et page3)

Pour résumer, il faut que la 10eme page sur 10 soit bonne (que l´utilisateur trouve la bonne réponse) pour que ca comptabilise le total.

Si par exemple il a trouvé toutes les bonnes réponses jusk´a la question 9 incluse (donc compteur=9) mais qu´il foire la 10eme, le compteur marquera 0 !

Sarafan , tu y piges qqch ? ! lol

(supposons qu´il y a 4 pages)
Aussi si je fais :

BR = bonne réponse

Page1 BR
Page2 BR
Page3 rien
Page4 BR

j´ai 1 à compteur

Page1 BR
Page2 rien
Page3 rien
Page4 rien

j´ai 0 à compteur

Page1 rien
Page2 BR
Page3 BR
Page4 BR

j´ai 3 à compteur

Il faut que ca se suive ET que la dernière question soit bonne :/

Tiens j´ai fais ça :
http://sarafan91.ifrance.com/QCM.zip

Je l´ai fait vite mais j´y ai mis des commentaires.
Si tu as des questions poses-les-moi ici.

J´ai utilisé delphi 5 pro.

Ok merci mais ton lien n´est pas valide :/
Erreur 404 !

Non, c bon je suis passé par ton site directement

Merci