Discussion :

[care]

Bonjour

voila mon problème
j'ai une table dans laquelle je rentre des notes donc dans access j'ai spécifié pour les champs : numérique ==> réel double.

il se peut qu'un éleves soit absent pour une épreuve du brevet, donc je veut maqué dans la case de l'éleve "abs"

et bien sur quand je veut enregistrer ==> problème "abs n'est pas un numérique"
c'est normal.

bref je ne peut pas l'aisser a cet éleves un 0 ca le pénaliseré.

comment je peut faire ??

merci d'avance.

[Cl@udius]

Salut

Je voies 2 solutions pour gérer les abscences des élèves.

1° Cas:
Tu n'entres pas sa note !! (La solution la plus bête ! )

2° Cas:
Tu entres par exemple une note négative (ex: -1). -1 précisant que l'élève était absent à l'épreuve.
Et lors de tes calculs de moyenne tu ne tiens compte uniquement des notes positives ou nulles.

Voilà pour une première approche.

@+ Claudius

[care]

Je pensse que je vais utiliser la 2 éme solution car si on ne met pas de note et bien la aussi on obtien une erreur comme quoi "" n'est pas un caractère valable.

[Cl@udius]

Re,

Quand je disais que tu n'entres pas sa note, je voulais simplement dire que tu ne créais pas d'enregistrement pour cet élève.

@+

[Rayek]

Re,

Quand je disais que tu n'entres pas sa note, je voulais simplement dire que tu ne créais pas d'enregistrement pour cet élève.

@+

C'est aps une bonne idée car on ne voit pas qu'il a loupé le controle.

Je pense que rajouter un champ 'Absent : boolean' qu'on met a vrai pour dire qu'il a ete absent.
Après pour le calcul de la moyenne, il suffit de faire une requete qui exclue dans le calcul les enregistrements avec le champ absent à vrai.

[Cl@udius]

Salut,

C'est aps une bonne idée car on ne voit pas qu'il a loupé le controle.

D'accord avec toi, c'est pour ca que je la qualifiais de la solution la plus bête.

Je pense que rajouter un champ 'Absent : boolean' qu'on met a vrai pour dire qu'il a ete absent.
Après pour le calcul de la moyenne, il suffit de faire une requete qui exclue dans le calcul les enregistrements avec le champ absent à vrai.

C'est effectivement la solution que j'aurais employée. C'est d'ailleurs ce qu'il devrait faire si il peut ajouter un champ à sa table.

@+ Claudius

[care]

bon voila il y a eut un petit changement
quand je disé que ces champs étaient des numériques quand je fesais une requête pour obtenir ces champs par defaut il me les met a 0.

j'en ai parler au prof qui ma demandé le programme il me dit que si la valeur par defaut est 0 c'est une source d'erreur.

donc au final ce n'est pas plus mal je dit que mes champs vont recevoir du texte et comme ca mon histoir d'absent est réglé je peut enregistrer abs dans mon champ.

probléme casiment réglé... et la un ptit probléme

je fait le calcul des points de mes 3 notes je l'affiche dans une colonne et aprés je fait la moyenne donc /3 et je met dans une autre colonne.

mais quand j'ai abs dans une case je ne veut pas qu'il face de calcul je veut que ca marque dans ma colonne total et moyenne ==> abs

mais je ces pas pourquoi il a l'aire de faire quand même le calcul et m'affiche l'erreur : abs n'est pas une valeur entiere flotante .
il plante a ce moment mes il m'affiche quand même abs dans les 2 colonne que je souhéte mais ne continu pas les ligne suivante.

help me pls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
procedure TForm1.Button2Click(Sender: TObject);
var i :integer;
j : integer ;
cal1,cal2,cal3,resul : double;
begin
For i:=1 to televe.RowCount-1 do
begin
  for j:=5 to televe.ColCount-3 do
  begin
    if televe.Cells[j,i] = 'abs' then
  begin
  televe.Cells[9,i]:= 'abs';
  televe.Cells[11,i] := 'abs';
  end
  else
    if televe.Cells[j,i] <> 'abs' then
    begin
cal1 := StrToFloat(televe.Cells[5,i]);
cal2 := StrToFloat(televe.Cells[6,i]);
cal3 := StrToFloat(televe.Cells[7,i]);
resul := cal1+cal2+cal3;
televe.Cells[9,i]:=  Format('%2.2f', [resul]);
televe.Cells[11,i] := Format('%2.2f', [resul/3]);
 
televe.Cells[5,i] := Format('%2.2f', [cal1]);
televe.Cells[6,i] := Format('%2.2f', [cal2]);
televe.Cells[7,i] := Format('%2.2f', [cal3]);
   end;
   end;
  end;
end;

[Cl@udius]

Les colonnes 5, 6 et 7 sont les 3 notes de tes élèves ?
Une ou plusieurs de ces notes peut contenir 'abs' ?

C'est ca ?

[care]

oui les colonne 5 , 6 , 7 sont les notes des 3 matières

toutes peuvent recevoir abs
tout comme 1 seul ou 2 .

[Cl@udius]

Alors essaye plutot ceci:

J'ai utilise TryStrToFloat qui tente de convertir un string en float qui renvoie False en cas d'échec.
Tu dois également compter le nombre de notes pour calculer la moyenne.

Un conseil n'hésites pas à utiliser des constantes pour repérer tes colonnes.
C'est plus simple d'utilisation et surtout pour maintenir ton code si une nouvelle colonne était insérée dans ton stringGrid.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i :integer;
  cal1,cal2,cal3,resul: double;
  NbNotes: Integer;
const
  COL_N1 = 5;
  COL_N2 = 6;
  COL_N3 = 7;
  COL_TOT = 9;
  COL_MOY = 11;
begin
  with TEleve do
  begin
    for i := 1 to RowCount-1 do
    begin
      // Nombre de notes de l'élève
      NbNotes := 0; cal1 := 0; cal2 := 0; cal3 := 0;
      if TryStrToFloat(Cells[COL_N1, i], cal1) then Inc(NbNotes);
      if TryStrToFloat(Cells[COL_N2, i], cal2) then Inc(NbNotes);
      if TryStrToFloat(Cells[COL_N3, i], cal3) then Inc(NbNotes);
 
      // Si NbNotes = 0 alors élève 'absent'
      if (NbNotes = 0) then
        begin
          Cells[COL_TOT,i]:= 'abs';
          Cells[COL_MOY,i] := 'abs';
        end
      else
        begin
          resul := cal1+cal2+cal3;
          Cells[COL_TOT,i]:=  Format('%2.2f', [resul]);
          Cells[COL_MOY,i] := Format('%2.2f', [resul/NbNotes]);
        end;
    end;
  end;
end;

@+

[care]

haaaaaa ca fait plaisir merci beaucoup de me donner des réponsses comme ca

il ne me reste plus qu gérer les ceut qui ont la même moyenne et mon programme sera fini ^^