Faire des calculs et choix du type de variables

Bonjour,

Je me permet d'ouvrir un nouveau post concernant un problème de type de variable sur XE2.

Voici le bout de code que j'aimerais faire fonctionner:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TCalcVEDebb.Button1Click(Sender: TObject);   const N4=3600; // secondes N5=100; //mm en m   var N1: integer; // Largeur en mm N2: integer; // Hauteur en mm N3: integer; // Débit   Resultat:integer; // Vitesse en m/s   begin N1:=StrToInt(EDLar.Text); N2:=StrToInt(EDHaut.Text); N3:=StrToInt(EDDeBR.Text);   Resultat:=N3/N4/(N1/N5)/(N2/N5) ; // calcul du résultat Label5.Caption:=Resultat;//affichage du résultat dans un label -->chiffre à virgule end;

---

L'erreur à la compilation est la suivante:
E2010 Types incompatibles : 'Integer' et 'Extended':calim2:

J'ai essayé de changer le type des variables mais j'arrive à rien, c'est pour cette raison que je recherche des informations clairs à ce sujet.

Par la suite, j'aimerais que l'utilisateur à ne saisir que des chiffres dans mes trois Tedit.
Le résultat dans le Label5 devrait afficher la valeur calculée à deux chiffres après la virgule.Mais je ne sais pas comment paramétrer ça.

Ps: J'ai travaillé il y a de ça quelques années sur un programme en visual basic 6 que j'utilisais pour mon travail. Le parc informatique à ''subit'' une MAJ sur windows 7 et mon programme en VB6 ne se lance plus, sauf sur une machine virtuel XP, pas vraiment pratique.
Je cherche donc à comprendre par de petit bout de code (comme celui faisant l'objet de ce post) comment fonctionne Delphi. D'une fois que je serait plus au clair, je compte ''convertir mon code en VB6 vers Delphi qui tourne très bien sur des system en 32 et 64 bits.

D'avance merci pour votre aide et vos conseils.

Bonjour

Tu essayes de stocker le résultat d'un calcul qui peut être un réel dans une variable de type Entier (Integer).

Il faut donc que tu modifies le type de ta variable Resultat

Code:

---

Resultat:float; // Vitesse en m/s

---

Après pour l'affichage dans le label il faut convertir le type float en string

Code:

---

Label5.Caption:=floattostr(Resultat);//affichage du résultat dans un label -->chiffre à virgule

---

Pour ta deuxième question sur la saisie uniquement de numériques dans ton TEdit, une petite recherche dasn la FAQ te permettra de trouver cet exemple

Code:

---

1 2 3 4 5 6 7 8

procedure TMyForm.MyEditKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0; if Key = DecimalSeparator then if Pos(DecimalSeparator, MyEdit.Text) <> 0 then Key := #0; end;

---

Un dernier conseil : la lecture des différents tuto disponibles sur le site :
Ici par exemple

Il y a plusieurs façons de convertir une valeur flottante en chaîne de caractères :

• FloatToStr (sans arrondi)
• FormatFloat (avec arrondi)
• Format (%f avec arrondi)

Sous XE2, il y a la propriété NumbersOnly pour limiter la saisie à un nombre entier (mais ne supporte pas les types à virgule).

sinon, la division entière se note "div" en Pascal, "/" c'est forcément réel. Tu peux aussi ne conserver que la valeur arrondie (cf Round et Trunc)

Alors j'ai essayé de remplacer mon code:

Code:

---

Resultat: float; // Vitesse en m/s

---

Mais j'ai une nouvelle erreur:

[DCC Erreur] CalcVEDeb.pas(55): E2003 Identificateur non déclaré : 'float'

J'ai acheté le livre "Delphi 7 studio'' de Monsieur Olivier Dahan et Paul Toth, mais ce n'est tout de même pas facile d'apprendre.
J'essaie d'étudier les codes et de parcourir les différents tutos disponible sur le site, mais en général je tombe toujours sur un os...
C'est pour ces raisons que je passe par le forum lorsque j'ai vraiment de la peine à saisir les subtilités de la programmation sur Delphi XE2.

Merci encore pour vos informations.

Citation:

---

Envoyé par Boule2Bois

Alors j'ai essayé de remplacer mon code:

Code:

---

Resultat: float; // Vitesse en m/s

---

Mais j'ai une nouvelle erreur:

[DCC Erreur] CalcVEDeb.pas(55): E2003 Identificateur non déclaré : 'float'

---

La réponse de Fxg est un peu rapide (en pseudo-code ?) : il te précise qu'il faut utiliser une variable de type nombre à virgule flottante : single, double, extended ...

Code:

---

1 2 3

// en fait : écris plutôt comme ça : var Resultat : double; // Vitesse en m/s

---

:lahola:

Citation:

---

Envoyé par Boule2Bois

J'ai acheté le livre "Delphi 7 studio'' de Monsieur Olivier Dahan et Paul Toth

---

:lahola:

Citation:

---

Envoyé par Fxg

Un dernier conseil : la lecture des différents tuto disponibles sur le site :
Ici par exemple

---

C'est en forgeant, que l'on devient forgeron ... il ne te reste plus qu'à lire ...

Citation:

---

Envoyé par Boule2Bois

Code:

---

1 2 3 4 5 6

procedure TCalcVEDebb.Button1Click(Sender: TObject);   const N4=3600; // secondes N5=100; //mm en m

---

---

Es-tu sûr de ta conversion mm -> m : facteur 1000 ?

Koa,

Citation:

---

Envoyé par archonte

Es-tu sûr de ta conversion mm -> m : facteur 1000 ?

---

Aïe, ça fait mal.

Mais, au moins aussi important, il faut utiliser des noms explicites, ça facilite la lecture (et donc la maintenance), et ça évite les commentaires.

D'accord, en lisant, je vois le commentaire indiquant que N5 permet de convertir des mm en m, mais quelques lignes plus loin, je ne m'en souviendrai pas forcément, d'autant plus qu'il y a une autre constante ayant un nom très proche.
Donc, l'appeler - par exemple, ce n'est pas forcément le nom que j'utiliserais - mm_Dans_m permettra de savoir ce que ça signifie, sans avoir à revenir à la définition pour comprendre le code.

Citation:

---

Envoyé par Boule2Bois

Alors j'ai essayé de remplacer mon code:

Code:

---

Resultat: float; // Vitesse en m/s

---

Mais j'ai une nouvelle erreur:

[DCC Erreur] CalcVEDeb.pas(55): E2003 Identificateur non déclaré : 'float'

---

float c'est en C, en Pascal c'est Single.

Citation:

---

Envoyé par Boule2Bois

J'ai acheté le livre "Delphi 7 studio'' de Monsieur Olivier Dahan et Paul Toth, mais ce n'est tout de même pas facile d'apprendre.
J'essaie d'étudier les codes et de parcourir les différents tutos disponible sur le site, mais en général je tombe toujours sur un os...
C'est pour ces raisons que je passe par le forum lorsque j'ai vraiment de la peine à saisir les subtilités de la programmation sur Delphi XE2.

Merci encore pour vos informations.

---

"Delphi 7 Studio" n'est pas un livre d'initiation...les premiers chapitres ont pour vocation d'expliquer le langage Pascal aux développeur C/C++ ou VB en particulier histoire d'avoir des repères. Mais de façon général il demande un bon niveau au départ.

Pour débuter, il vaut sûrement mieux un "Tout en Poche" par exemple.

Pour progresser, perfectionner des connaissances établies et découvrir ou approfondir moult domaines, "Delphi 7 Studio" est de premier choix.

Citation:

---

Envoyé par archonte

La réponse de Fxg est un peu rapide (en pseudo-code ?) : il te précise qu'il faut utiliser une variable de type nombre à virgule flottante : single, double, extended ...

Code:

---

1 2 3

// en fait : écris plutôt comme ça : var Resultat : double; // Vitesse en m/s

---

---

Non pas de pseudo-code mais pseudo tête en l'air, je suis en phase d'aprentissage du C

Bonsoir,

Citation:

---

Envoyé par archonte
Es-tu sûr de ta conversion mm -> m : facteur 1000 ?

---

J'ai effectivement oublié un zéro, merci pour cette remarque. A vrai dire je me concentre principalement sur le problème de compilation du code, mais c'est toujours ça de moins à corriger encore merci.

Malgré toutes vos suggestions, mon code ne fonction toujours pas, j'ai essayé de modifier le type de variable en double, extended, single, etc... J'ai toujours un message me disant ''Type incompatible'' c'est assez décourageant. A croire que c'est le type qui programme qui n'eat pas compatible avec Delphi.

Je vais allé lire les tutos proposés par Fxg en attendant de pouvoir passer à la librairie pour un livre partant de mon niveau...

Pour le livre de Paul Toth et Olivier Dahan, je pensais qu'il était possible d'apprendre la programmation, mais en le lisant, même à plusieurs reprises pour certain passage, je n'arrive à rien. A part ça joli bouquin qui doit être très utile lorsque les bases sont acquises.

Je laisse de coté ce problème de calcul, possible que d'ici quelque mois j'arriverais à faire quelque chose avec ça, mais ça me parait bien compliqué pour un simple calcul. Visual basic est nettement plus simple à comprendre, bien qu'il m'ait fallut plus de 2 ans de travail pour le logiciel que j'ai programmé et qui ne tourne malheureusement pas sur windows7 en 64 bits.

Encore merci pour vos conseils et d'avoir pris le temps de me répondre.

Bonjour !

Citation:

---

Envoyé par Boule2Bois

Malgré toutes vos suggestions, mon code ne fonctionne toujours pas, j'ai essayé de modifier le type de variable en double, extended, single, etc... J'ai toujours un message me disant ''Type incompatible'' c'est assez décourageant. A croire que c'est le type qui programme qui n'est pas compatible avec Delphi.

---

Mais si, ça marche :

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

program Project1;   {$APPTYPE CONSOLE}   {$R *.res}   uses System.SysUtils;   const N4=3600; // secondes N5=100; // mm en m   var N1: integer; // Largeur en mm N2: integer; // Hauteur en mm N3: integer; // Débit Resultat: single; // Vitesse en m/s   begin N1:=StrToInt('30'); N2:=StrToInt('20'); N3:=StrToInt('15');   Resultat := N3/N4/(N1/N5)/(N2/N5) ; // calcul du résultat   writeLn(Resultat); // affichage du résultat readLn; end.

---

En revanche, si je peux donner mon avis, je trouve que l'expression N3/N4/(N1/N5)/(N2/N5) n'est pas très claire. Mais c'est peut-être moi qui ne sais pas la lire. :)

Passer à Delphi avec des connaissances en VB n'a rien d'insurmontable.

A une époque où je ne connaissais pas Delphi, mais avais un peu utilisé le Basic et le Pascal, j'ai acheté un livre sur VB6 pour apprendre et évaluer. Ce que j'y ai appris (sans avoir VB sur un PC) m'a ensuite servi à démarrer plus vite en D6.

Je plussoie les suggestions de choisir des noms (de variables notamment) plus évocateurs, qui faciliteront la lecture et la correction du code. Le Pascal a naturellement une grande qualité de lisibilité dont il faut profiter au maximum.

Citation:

---

Envoyé par Boule2Bois

Bonsoir,


J'ai effectivement oublié un zéro, merci pour cette remarque. A vrai dire je me concentre principalement sur le problème de compilation du code, mais c'est toujours ça de moins à corriger encore merci.

Malgré toutes vos suggestions, mon code ne fonction toujours pas, j'ai essayé de modifier le type de variable en double, extended, single, etc... J'ai toujours un message me disant ''Type incompatible'' c'est assez décourageant. A croire que c'est le type qui programme qui n'eat pas compatible avec Delphi.

Je vais allé lire les tutos proposés par Fxg en attendant de pouvoir passer à la librairie pour un livre partant de mon niveau...

Pour le livre de Paul Toth et Olivier Dahan, je pensais qu'il était possible d'apprendre la programmation, mais en le lisant, même à plusieurs reprises pour certain passage, je n'arrive à rien. A part ça joli bouquin qui doit être très utile lorsque les bases sont acquises.

Je laisse de coté ce problème de calcul, possible que d'ici quelque mois j'arriverais à faire quelque chose avec ça, mais ça me parait bien compliqué pour un simple calcul. Visual basic est nettement plus simple à comprendre, bien qu'il m'ait fallut plus de 2 ans de travail pour le logiciel que j'ai programmé et qui ne tourne malheureusement pas sur windows7 en 64 bits.

Encore merci pour vos conseils et d'avoir pris le temps de me répondre.

---

une des grosses différences entre VB et Delphi, c'est que sous VB on n'est pas obligé de déclarer ses variables et leur type est flexible. Sous Delphi, tout ce que tu utilises doit être explicitement déclaré et il y a un typage fort qui fait qu'un Entier ne peux pas être égal à un Réel.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var a: Integer; // Entier b: Single; // Réel c: string; // chaîne begin a := 1; // ok b := a; // ok car on augmente la précision a := b; // non, il faut convertir par Round(b) ou Trunc(b) c := a; // non, ça n'a pas de sens en Pascal c := IntToStr(a); // oui c := FloatToStr(b); // oui a := c; // non, là encore ça n'a pas de sens en Pascal a := StrToInt(c); // oui, et éventuellement ça déclenche une exception b := StrToInt(c); // oui, comme pour b := a b := StrToFloat(c); // oui end;

---

les mêmes règles s'appliquent aux opérations

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var a, b: Integer; c, d: Single; e, f: string; begin a := a + b; // ok a := c + d; // impossible e := a + f; // impossible e := e + 'a'; // ok f := IntToStr(a) + FloatToStr(c) + e; // ok end;

---

on distinguera donc sans ambiguïté : 1 + 2 = 3 de '1' + '2' = '12', l'opération 1 + '2' est elle interdite.

Bonjour,

Pour comprendre l'expression il faut savoir que le DEBIT est en m3/h (enfin je l'espére) il le divise par 3600 pour avoir un débit en m3/s, puis il divise par une surface en m2( longueur/1000 x largeur/1000) pour obtenir la vitesse en
m/s.
PL