Problème de calcul sur champs : types incompatibles

Version imprimable

BONJOUR !! J ' AI UN PROBLÈME SUR UNE OPÉRATION DE CONVERTION
J 'AI UNE ERREUR D’INCOMPATIBILITÉ DE TYPE ENTRE INTEGER ET REEL

OPERATION =QTE*PB*DB/100+QTE*PP*DP/100
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 VAR QTEL:INTEGER; // ON SAISIE LE CHAMP QUANTITÉ QTEK, PB,PP, DB,DP:REAL; begin if key = #13 then begin QTEL:=DATA.SDETAILGPLQTELIVL.VALUE; // saisir une valeur interger à QTEL PB:=DATA.SITUATIONGPLPB.VALUE; //saisir une valeur en pourcentage à PB ex 40% PP:=DATA.SITUATIONGPLPP.VALUE; //saisir une valeur en pourcentage à PB ex 60% DB:=DATA.SITUATIONGPLDENSITEB.VALUE; // affecter une valeur fixe à DB =0.510 DP:=DATA.SITUATIONGPLDENSITEP.VALUE; // affecter une valeur fixe à DB =0.573 QTEK:=((QTEL*PB)*DB)/100+(((QTEL*PP)*DP)/100); // opération de calcule ShowMessage(FloatToStr(QTEK)); // pour teste que ça marche
quand j'essaie d'affecter le resultat à un champs j'ai des erreurs type incompatible integer et extend ou integer et Real ......

Code:

DATA.SDETAILGPLQTELIVK.Value:=QTEK;

pouvez vous m'aider a affecter le résultat de l'opération à un champ et le résultat et un nombre sans la virgule
merci !!!!

Bonjour,

pas la peine de "hurler" en majuscule et gras ça agresse les yeux de bon matin !
Trop de Majuscules tue la majuscule

j'ai pris pour habitude de toujours forcer le type plutôt qu'utiliser value

votre code deviendrai

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var QteL : integer;    
     QteK, PB,PP, DB,DP: Double;   // pourquoi Real ?
 
begin
if key = #13 then begin
QteL:=DATA.SDETAILGPLQTELIVL.asInteger; // saisir une valeur interger à QTEL
PB:=DATA.SITUATIONGPLPB.asFloat; //saisir une valeur en pourcentage à PB ex 40%
PP:=DATA.SITUATIONGPLPP.asFloat; //saisir une valeur en pourcentage à PB ex 60%
DB:=DATA.SITUATIONGPLDENSITEB.asFloat; // affecter une valeur fixe à DB  =0.510  
DP:=DATA.SITUATIONGPLDENSITEP.asFloat; // affecter une valeur fixe à DB  =0.573 
QTEK:=((QTEL*PB)*DB)/100+(((QTEL*PP)*DP)/100); // opération de calcule
ShowMessage(FloatToStr(QTEK)); // pour teste que ça marche
end;

17/12/2016, 10h53
netsoft

merci !!!
mais j'ai toujours le problème comment affecter le résultat à un champs de table ?
aussi le résultat de l'opération affiche 0 ???
17/12/2016, 11h52
gbegreg

Bonjour,

Citation:

Envoyé par netsoft

comment affecter le résultat à un champs de table ?

Il faut passer par une requête SQL UPDATE dans laquelle tu affectes le résultat calculé à la donnée censée recevoir la valeur.

Citation:

Envoyé par netsoft

le résultat de l'opération affiche 0 ?

As tu vérifié en debug les données que tu récupères et qui font partie du calcul ? Quelles valeurs ont elles ?
17/12/2016, 12h33
tourlourou

Citation:

quand j'essaie d'affecter le resultat à un champs j'ai des erreurs type incompatible integer et extend ou integer et Real... DATA.SDETAILGPLQTELIVK.Value:=QTEK;

C'est donc clair, QTEK est réel, et l'essai d'affectation vise un champ entier, non ?
17/12/2016, 14h19
netsoft

Citation:

Envoyé par tourlourou

C'est donc clair, QTEK est réel, et l'essai d'affectation vise un champ entier, non ?

oui QTEK est réel
en résumé je veut faire une opération de calcule de volume d'une citerne de gaz butane et propane mélangé à un % donné
EX:
QUANTITE CHARGER = 5000 Tonne
mélange butane = 40%
propane =60%
on sait que la densité du gaz butane et propane sont :
densité butane = 0.510
densité propane = 0.573

donc la formule que j'ai testé en excel est :
QTEK = QUANTITE CHARGER * 40% /100 *0.510 + QUANTITE CHARGER *60% -0.573/100

DANS DELPHIE RESULTAT EST 0 ??????
EST CE QUE VOUS POUVEZ M'AIDER

Re,

Citation:

Envoyé par netsoft

DANS DELPHIE RESULTAT EST 0 ??????
EST CE QUE VOUS POUVEZ M'AIDER

ce n'est certes pas Delphi le coupable mais votre programme
reprenons la ligne 7 de l'extrait

Code:

QTEL:=DATA.SDETAILGPLQTELIVL.VALUE; // saisir une valeur interger à QTEL

déjà le commentaire ? saisir alors que si j'essaye de décoder vous avez deux tables SDETAIL,SITUATION déclarées dans un DataModule (Data)
Donc première chose facilement vérifiable : les tables sont-elles ouvertes et positionnées sur le bon enregistrement ? Bien sur si les tables sont vides .....
l'enregistrement est-il posté ?

Avec l'IDE il est très facile aussi de mettre un point d'arrêt à cette même ligne pour ensuite vérifier les valeurs en pas à pas

Citation:

mais j'ai toujours le problème comment affecter le résultat à un champs de table ?

déjà il serait incongru puisqu'il s'agit d'un champ calculé de stocker cette valeur alors qu'un SQL (et donc le SGBD) peut faire ce calcul

détailler les différentes valeurs, comme dans le code donné c'est bien mais inutile
Code:

1 2 3 4 5 6 with Data do begin QTEK:=(SDetail.FieldByName('GPLQTELIVL').asInteger*Situation.FieldByName('GPLPB').asFloat*Situation.FieldByName('GPLDENSITEB').asFloat/100)+ (SDetail.FieldByName('GPLQTELIVL').asInteger*Situation.FieldByName('GPLPP').asFloat*Situation.FieldByName('GPLDENSITEP').asFloat)/100); ..... end;
En SQL cela donnerai (j'extrapole la jointure en estimant que la table SITUATION ne contient qu'une seule ligne)

Code:

SELECT (D.GPLQTELIVL*S.GPLPB*S.GPLDENSITEB/100)+ (D.GPLQTELIVL*S.GPLPP*S.GPLDENSITEP/100) AS QTEK FROM SDETAIL S JOIN SITUATION ON 1=1

N.B. S'il faut la partie entiere ou arrondir le SGBD à certainement une fonction adéquate

Citation:

donc la formule que j'ai testé en excel est :
QTEK = QUANTITE CHARGER * 40% /100 *0.510 + QUANTITE CHARGER *60% -0.573/100

pardon mais ce n'est pas la même formule , j'y vois un "-" qui n'y est pas dans le programme

Citation:

en résumé je veut faire une opération de calcul

c'est ce qui est fait

Citation:

quand j'essaie d'affecter le resultat à un champs j'ai des erreurs type incompatible integer et extend ou integer et Real ......

Code:

DATA.SDETAILGPLQTELIVK.Value:=QTEK;

Il s'agit ici, d'autre chose que ke calcul : stocker* une valeur réelle dans une colonne de la table SDETAIL, reste encore à savoir quelle est le format de cette colonne (integer ou numeric) si une erreur est levée c'est très certainement que la colonne est un entier. La question ici est donc comment aller vous arrondir : Entier le plus proche (ROUND) ou simplement partie entière de la valeur calculée (TRUNC ou INT)

17/12/2016, 18h53
netsoft

merci SergioMaster de t'a réponse claire et détaillé
pour le"-" faute de frappe
merci beaucoup
une dernière question d'un débutant qu'est ce que tu me conseil pour arrondir le chiffre
EX : dans le résultat de l’opération = 2739,54782241583 pour arrivé à 2740
18/12/2016, 08h23
SergioMaster

Bonjour,

il s'agit d'un arrondi (round)
18/12/2016, 09h37
tourlourou

Dans Delphi, on peut aussi utiliser Ceil() pour arrondir à l'entier supérieur.

Concernant la partie mathématique (physique), je suis surpris qu'en multipliant une masse par une densité (en fait, une masse volumique), on obtienne un volume. J'aurais plus volontiers utilisé une division.
18/12/2016, 22h49
paulfr

Bonjour,

je vous signale que du point de vue mathématique votre formule est erronée, il manque des parenthèses.
Et dans votre code elles doivent englober les diviseurs 100.
Du point de vue physique votre calcul est bizarre comme le souligne "tourlourou".
19/12/2016, 09h14
SergioMaster

Citation:

Envoyé par tourlourou

Concernant la partie mathématique (physique), je suis surpris qu'en multipliant une masse par une densité (en fait, une masse volumique), on obtienne un volume. J'aurais plus volontiers utilisé une division.

Personnellement, je ne me suis pas attaché à la formule, juste au code , à mon avis, il y a un choix de nom de colonnes qui peut prêter à confusion et c'est peut être ce qui rend la formule "bizarre"
19/12/2016, 09h30
tourlourou

C'est plutôt dans la partie explications que le manque de rigueur physique est patent. L'essentiel est que la formule de netsoft lui fournisse le résultat attendu. Reste que pour communiquer, utiliser des mots dans un autre sens que le leur prête à ne pas bien se comprendre...
21/12/2016, 23h01
netsoft

merci pour les réponse et vos participation , j'ai trouvé la solution grâce a vous :D

Citation:

Envoyé par tourlourou

C'est plutôt dans la partie explications que le manque de rigueur physique est patent. L'essentiel est que la formule de netsoft lui fournisse le résultat attendu. Reste que pour communiquer, utiliser des mots dans un autre sens que le leur prête à ne pas bien se comprendre...