Quizz avec resulat final en variable =-

Soyez le premier à donner votre avis sur cette source.

Vue 3 553 fois - Téléchargée 321 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
romit Messages postés 160 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 30 juin 2011
10 nov. 2005 à 23:15
PyroBruno lache le
PyroBruno Messages postés 51 Date d'inscription mardi 26 mars 2002 Statut Membre Dernière intervention 17 décembre 2005
9 avril 2002 à 00:51
Tu déclare la variable mais tu ne l'initialise pas grand !
cs_manta Messages postés 2 Date d'inscription jeudi 21 mars 2002 Statut Membre Dernière intervention 7 avril 2002
7 avril 2002 à 16:08
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.
@+

¥
PyroBruno Messages postés 51 Date d'inscription mardi 26 mars 2002 Statut Membre Dernière intervention 17 décembre 2005
7 avril 2002 à 03:44
Enfin j'ai rien a dire pcq je suis po un pro nonplus (loin de la meme)
++
PyroBruno [T-H]
PyroBruno Messages postés 51 Date d'inscription mardi 26 mars 2002 Statut Membre Dernière intervention 17 décembre 2005
7 avril 2002 à 03:43
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.