Quizz avec resulat final en variable =-

Télécharger le projet
Commenter

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 !!!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.