Soyez le premier à donner votre avis sur cette source.
Vue 3 553 fois - Téléchargée 321 fois
//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.
10 nov. 2005 à 23:15
9 avril 2002 à 00:51
7 avril 2002 à 16:08
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.
@+
¥
7 avril 2002 à 03:44
++
PyroBruno [T-H]
7 avril 2002 à 03:43
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]
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.