Quizz avec resulat final en variable =-

Soyez le premier à donner votre avis sur cette source.

Vue 3 465 fois - Téléchargée 316 fois

Description

Enfin un petit quizz, cela permet aux débutants d'apprendre les variables tout en faisant apparaitre des petits messages...
Amusez-vous bien et si qq1 a une petite modif, ou un truc a faire en + dites le moi !

Source / Exemple :


//Prog crée par MaNtA

unit Quizz1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  Tformquizz1 = class(TForm)
    Label1: TLabel;
    question1: TLabel;
    questionsuiv: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label2: TLabel;
    Label3: TLabel;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Label4: TLabel;
    Label5: TLabel;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    Label6: TLabel;
    Label7: TLabel;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    pointfinal: TLabel;
    Label9: TLabel;
    Button1: TButton;

    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formquizz1: Tformquizz1;
  points : Integer; //declaration du variable points

implementation

{$R *.dfm}
procedure Tformquizz1.CheckBox1Click(Sender: TObject);
begin
ShowMessage('Mauvaise réponse : 66')   //si l'on clique sur 62, un message apparait
end;                            

procedure Tformquizz1.CheckBox2Click(Sender: TObject);
begin
points:= points + 1;   //on ajoute 1 au variable points
ShowMessage('Bonne réponse')
end;

procedure Tformquizz1.CheckBox3Click(Sender: TObject);
begin
ShowMessage('Mauvaise réponse : 66')
end;

procedure Tformquizz1.CheckBox4Click(Sender: TObject);
begin
ShowMessage('Mauvaise réponse : Robert Guérin')
end;

procedure Tformquizz1.CheckBox5Click(Sender: TObject);
begin
ShowMessage('Mauvaise réponse : Robert Guérin')

end;

procedure Tformquizz1.CheckBox6Click(Sender: TObject);
begin
points:= points + 1;
ShowMessage('Bonne réponse')
end;

procedure Tformquizz1.CheckBox7Click(Sender: TObject);
begin
points:= points + 1;
ShowMessage('Bonne réponse')
end;

procedure Tformquizz1.CheckBox8Click(Sender: TObject);
begin
ShowMessage('Mauvaise réponse : Burkina Faso')
end;

procedure Tformquizz1.CheckBox9Click(Sender: TObject);
begin
ShowMessage('Mauvaise réponse : Burkina Faso')
end;

procedure Tformquizz1.CheckBox10Click(Sender: TObject);
begin
points:= points + 1;
ShowMessage('Bonne réponse')
end;

procedure Tformquizz1.CheckBox11Click(Sender: TObject);
begin
 ShowMessage('Mauvaise réponse : 1932')
end;

procedure Tformquizz1.CheckBox12Click(Sender: TObject);
begin
 ShowMessage('Mauvaise réponse : 1932')
end;

procedure Tformquizz1.Button1Click(Sender: TObject);
begin
pointfinal.Caption:= inttostr(points);  //Le caption pointfinal = nombre de points marquées

end;                                               
end.

Conclusion :


Merci a tous !!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011

PyroBruno lache le
Messages postés
51
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2005

Tu déclare la variable mais tu ne l'initialise pas grand !
Messages postés
2
Date d'inscription
jeudi 21 mars 2002
Statut
Membre
Dernière intervention
7 avril 2002

Ho Ho Ho... Doucement comme tu me parles Bruno, je suis pas ton copain.
Et de une je l'initialise la variable cherche bien ...
Et de deux que tu ne me crois pas parceque tu dis que je n'ai pas crée la source je m'en fous d'accord !
Prends la source, ajoute tous ce qu'il faut sur la form et compile la tu verras si ca marche pas !
Bon maintenant va créer tes progs et lache-moi.
@+

¥
Messages postés
51
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2005

Enfin j'ai rien a dire pcq je suis po un pro nonplus (loin de la meme)
++
PyroBruno [T-H]
Messages postés
51
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
17 décembre 2005

Tu n'a pas initialiser la variable point ! si tu ajoute 1 a une variable non innitialisée sa vas planter ! meme que le compilateur vas pas l'accepter ! se qui veux dire que tu n'a pas executer la source et que tu n'a meme pas pu la compiler ! j'ai pas tester l'exe mais je suis sur qu'il est pas de toi et que tu le comprend pas se code.
Et puis sans les question (ou les caption de Label) on peux rien fair puisque la source est vide :-/.
Sans vouloir te vexer.
A+ et bonne continuation (...)
PyroBruno [T-H]
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.