Discussion :

[NABIL74]

bonsoir,
j'ai une table et je veux faire un calcul de la moyenne.
j'ai les champs "devoir1", "Devoir2" et "devoir3".
moyenne:=(Devoir1+Devoir2+Devoir3)/3.
j'ai testé :

Code :

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

1
2
3
4
5
6
7
8
TNotes.first;
while not TNotes.Eof do begin
TNotes.FieldByName('Moy').AsFloat:=(TNotes.FieldByName('Devoir1').AsFloat+
TNotes.FieldByName('Devoir2').AsFloat+
TNotes.FieldByName('Devoir3').AsFloat)/3;
TNotes.Post;
TNotes.next;
end;

-------------------------------
mais cette boucle ne calcule que 2 enregistrements seulement!
je voudrais faire une boucle allant du 1er enregistrement jusqu'au dernier pour
calculer la moyenne.tout ça en cliquant sur un boutton.
merci d'avance.

[Aka Guymelef]

Bonsoir,

il ne manquerait pas un Edit sur ton DataSet dans ton code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
TNotes.first;
while not TNotes.Eof do 
begin
TNotes.Edit;
TNotes.FieldByName('Moy').AsFloat:=(TNotes.FieldByName('Devoir1').AsFloat+
TNotes.FieldByName('Devoir2').AsFloat+
TNotes.FieldByName('Devoir3').AsFloat)/3;
TNotes.Post;
TNotes.next;
end;

[rec82]

salut nabil74.
essayé d'enlevé le next ,je pense que la boucle while se charge de basculer entre les enregistrements.
cordialemment.

[Aka Guymelef]

salut nabil74.
essayé d'enlevé le next ,je pense que la boucle while se charge de basculer entre les enregistrements.
cordialemment.

Euh non pas du tout Si on enlèves le Next alors on bouclera éternellement sur le premier enregistrement. EOF ne fait pas passer à la ligne suivante, c'est juste un indicateur pour savoir si l'on est arrivé en fin de jeu d'enregistrement.

[NABIL74]

merci Aka Guymelef oui il manque un "Edit" .j'ai essayé mais la boucle ne parcourt pas toute la table ç ça le problème?

[rec82]

salut aka.
tous mes excuses
cordialement.

[Aka Guymelef]

Comment sais-tu que tu n'as pas parcouru toute la table ?

Comment est récupéré TNotes, es-tu qu'il s'agit d'une copie complète de la table ?

[NABIL74]

j'ai vidé la table ensuite j'ai testé la boucle:

Code :

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

1
2
3
4
5
6
7
8
9
10
TNotes.first;
while not TNotes.Eof do 
begin
TNotes.Edit;
TNotes.FieldByName('Moy').AsFloat:=(TNotes.FieldByName('Devoir1').AsFloat+
TNotes.FieldByName('Devoir2').AsFloat+
TNotes.FieldByName('Devoir3').AsFloat)/3;
TNotes.Post;
TNotes.next;
end;

et ça marche!waw!!!
merci beaucoup pour ton aide Aka Guymelef.
j'ai appris beaucoup sur developpez.com.merci à toute l'équipe et bon courage