QCM avec delphi

Version imprimable

06/01/2012, 17h12
daystar

QCM avec delphi

bsr

je pense a faire un qcm avec delphi j'ai qlq idées su sa forme et les composants et les fonctins que je doit l'utiliser mais j'ai besoin aussi de votre aide avant de faire l'application
-je pense a faire une base de donné qui contient les questions et la vrai réponce et celle de l'utilisateur je sais pas si je vais la stocker ds un tableau ou bien une table
- je pense a utiliser le composant group radio combobox
- une procedure qui permet un seul choix ds la question
_une fonction de la correction

mais je ss trop perturbué n'hisitez pas svp de me donnez vos suggestions

merci
06/01/2012, 17h33
Paul TOTH

c'est en forgeant qu'on devient forgeron !

commence à coder comme il te semble, si tu rencontres des problèmes énonce les ici nous réfléchirons avec toi à la meilleure solution.

salut

voici ma proposition
- créer une table qui contien trois champ : N de question,la vrai répence, la répense d'utilisateur
_ pour chaque question trois composant de radioboutton pour les choix
_ et je veux faire trois opérations
* l'initialisation du qcm
* la correction de qcm en donnant une note
* voir la correction
c'est ce que j'ai fait jusqu'à mnt a cause des erreurs que j'a fait mais j'arrive pas a les corriger

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
unit U_qcm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, ExtCtrls, DBCtrls, Grids,
  DBGrids, Mask;
 
type
  TF_qcm = class(TForm)
    Sortir: TBitBtn;
    Rd11: TRadioButton;
    Rd12: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Rd21: TRadioButton;
    Rd22: TRadioButton;
    Rd23: TRadioButton;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Table1Code: TStringField;
    Table1V_rep: TStringField;
    Table1Util: TStringField;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    Edit1: TEdit;
    Rd3: TRadioButton;
    procedure SortirClick(Sender: TObject);
    procedure ena(b:boolean);
    procedure Rd11Click(Sender: TObject);
    procedure Rd12Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Rd3Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  F_qcm: TF_qcm;
 
implementation
 
{$R *.dfm}
// procedure qui permet un sel choix parmi les 3 propositions
procedure TF_qcm.ena(b:boolean);
begin
Rd11.enabled:=b;
Rd12.enabled:=not b;
Rd3.enabled:=not b;
end;
 
procedure TF_qcm.SortirClick(Sender: TObject);
begin
F_qcm.Close;
end;
//pour une seul question
//choix n:=1
procedure TF_qcm.Rd11Click(Sender: TObject);
begin
ena(true);
table1.First;
table1.edit;
table1.FieldByName('util').asstring:='1'; //enregistrement du choix d'utilisateur
table1.Post;
end;
 
//choix :=2
procedure TF_qcm.Rd12Click(Sender: TObject);
begin
ena(true);
table1.First;
table1.edit;
table1.FieldByName('util').asstring:='2';
table1.Post;
end;
var i,s:integer;
 
//choix n:=3
procedure TF_qcm.Rd3Click(Sender: TObject);
begin
ena(true);
table1.First;
table1.edit;
table1.FieldByName('util').asstring:='3';
table1.Post;
end;
 
//code ce correction du qcm
 
procedure TF_qcm.BitBtn2Click(Sender: TObject);
begin
s:=0;
table1.First;
for i:=1 to 2 do
begin
if(((table1.FieldByName('V_rep').asstring=strtoint(table1.FieldByName('util').asstring))) then
begin
s:=s+1;
table1.Next;
end;
end;
end;
 
end.

les erreurs :
1/ 106 :for loop control variable must be simple locale variable
2/108 ')' but then found.

09/01/2012, 04h45
Paul TOTH
la variable "i" doit être déclarée localement en ligne 102 avant le begin
Code:

1 2 3 var i : Integer;
la seconde erreur t'indique qu'il manque une parenthèse fermante, vérifie ta condition if tu verras qu'il y a 6 '(' et 5 ')'
09/01/2012, 14h41
Ziginou

Citation:

je pense a faire un qcm avec delphi j'ai qlq idées su sa forme et les composants et les fonctins que je doit l'utiliser mais j'ai besoin aussi de votre aide avant de faire l'application
-je pense a faire une base de donné qui contient les questions et la vrai réponce et celle de l'utilisateur je sais pas si je vais la stocker ds un tableau ou bien une table

Pour moi, la réponse de l'utilisateur n'a pas à être entrée en base, vu que c'est l'appli qui va dire vrai ou faux...
Par contre, s'il y a besoin de donner un historique complet, des réponses, 15j après avoir joué, là, le stockage de la réponse s'impose...

Citation:

- je pense a utiliser le composant group radio combobox

Ca se tient...

Citation:

- une procedure qui permet un seul choix ds la question

Faut voir...

Citation:

_une fonction de la correction

Ca démarre bien...
10/01/2012, 15h18
daystar

j'ai cree 3 table
table de question (code question, vrai repence);
table d'utilistaeur (code utilisateur, nom utilisateur);(pr l'historique)
table repense (code question,code_utilisateur,repence utilisateur)

j'ai utilisé aussi le composant radiocombobox pour chaque question, mais le probleme se pose quand je fait le choix pr une question en cliquant sur un radio button et quand je passe pr l'autre question la répense de la première question se disparait
10/01/2012, 16h06
ShaiLeTroll

l'orthographe correcte c'est "réponse"
Utilise le correcteur orthographique de ton navigateur ou utilise google !

Ce systeme de QCM me fait penser au sujet Créer un jeu d'aventure textuel

RadioComboBox ? ça n'est pas !
C'est soit plusieurs TRadioButton soit un TRadioGroup !

Quel est la cinématique ?
Tes Boutons sont fixes ou créés à la volée ?
les Questions se suivent ou tu fais une nouvelle page par question ?

Vu le comportement, tu as du mettre toutes les réponses en dur, plusieurs solutions, regrouper les TRadioButton d'une question dans un TPanel, on en revient à faire un TRadioGroup !

c'est écrit dans l'aide du TRadioButton

Citation:

Utilisez TRadioButton pour ajouter un bouton radio à une fiche. Les boutons radio proposent à l'utilisateur un ensemble d'options mutuellement exclusives, c'est-à-dire qu'un seul bouton radio d'un groupe peut être sélectionné à la fois à un moment donné. Quand l'utilisateur sélectionne un bouton radio, le bouton radio précédemment sélectionné devient désélectionné. Les boutons radio sont fréquemment regroupés dans une boîte groupe de boutons radio (TGroupBox). Commencez par ajouter la boîte groupe à la fiche, puis choisissez les boutons radio dans la palette des composants et placez-les dans la boîte groupe. Vous pouvez aussi ajouter un TRadioGroup, un groupe qui comporte déjà des boutons radio, afin de ne pas obtenir les boutons à partir de la palette d'outils.

Par défaut, tous les boutons radio placés dans le même contrôle fenêtré conteneur (comme TRadioGroup ou TPanel) appartiennent au même groupe. Par exemple, deux boutons radio d'une fiche ne peuvent être sélectionnés simultanément que s'ils appartiennent à des conteneurs différents, par exemple deux boîtes groupe
10/01/2012, 17h57
daystar

et bien je vais etre prudente pour l'horthographe a partir de maintenant

j'ai voulu dire Radiogroup à la place de "radiocombobox " parceque j'étais entaraine de penser au propriété itemindex et items ( si je peux prendre chaque ligne de TradioGroup comme un référence pour un composant Tradioboutton ) je croit que les choses seront plus facile

je vais mettre tous les questions dans une page

j'utilise 2 Radiogroup combox mais le choix d'un Tradioboutton déselectione tous les autres Tradioboutton meme des autres Tradiogroup