VB6 Calcul simple qui ne fonctionne pas. ???

Question

Salut.. J'ai un petit probl&#232;me b&#234;te...

Tout les calcul suivant fonctionne tr&#232;s sauf le dernier (VarMile)

Mon programme est un petit logiciel pour faire la conversion de longueur..
Je rentre la valeur 100 dans mon textbox et j'ai le r&#233;sultat en Pied, chaine, etc...

Le bug est que ma Variable VarMile devrait me donner comme r&#233;sults la valeur 0.062137119 et ca me donne plut&#244;t le r&#233;sultat suivant: 6.2137119 ??????

Pourquoi ????

Dim VarMetre As Double
Dim VarPiedAnglais As Double
Dim VarPiedFrancais As Double
Dim VarChaine As Double
Dim VarArpent As Double
Dim VarMile As Double

If cboLongueur.Text = "M&#232;tre" Then
    VarPiedAnglais = txtConversion.Text / 0.3048
    VarPiedFrancais = txtConversion.Text / 0.3248406
    VarChaine = txtConversion.Text / 20.1168
    VarArpent = txtConversion.Text / 58.471308
    VarMile = txtConversion.Text / 1609.344

merci d'avance

cs_Jack · Answer

Salut
-1- Il vaut mieux convertir explicitement les valeurs des chaines contenues dans les TextBox :
VarPiedAnglais =   CDbl( txtConversion.Text) / 0.3048
-2- Une TexBox pouvant contenir des caract&#232;res non num&#233;riques, il est judicieux d'ajouter un Val qui transformera la chaine en 0 au lieu de g&#233;n&#233;rer une erreur de code :
VarPiedAnglais  = CDbl(Val(txtConversion.Text)) / 0.3048
-3- Bizarrement, VB reconnait mal le format des valeurs num&#233;riques fixes comme ton 0.3048
Comme tu travailles en double, ajoute un # apr&#232;s ton chiffre :
VarPiedAnglais = CDbl(Val(txtConversion.Text)) / 0.3048#

Ca devrait fonctionner.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

jrivet · Answer

Salut,

Est tu sur que que le resultat ne serait pas plutot 6.2137119E-2

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_JeffC1977 · Answer

Bonjour &#224; vous 2....

Effectivement Julien tu a la bonne r&#233;ponse....  enfin ca me donne 6.2137119E-2
mais ca ne doit pas me donner ce la... h&#233;h&#233;h&#233;h&#233;

Jack j'ai essay&#233; ce que tu m'a sugg&#233;r&#233; mais ca ne fonctionne pas plus...

Encore une fois toute les r&#233;ponses sont bonnes &#224; l'exeption de ma variable VarMile...

alors voici les modifications du code...

If cboLongueur.Text = "M&#232;tre" Then
    VarPiedAnglais = CDbl(Val(txtConversion.Text)) / 0.3048
    VarPiedFrancais = CDbl(Val(txtConversion.Text)) / 0.3248406
    VarChaine = CDbl(Val(txtConversion.Text)) / 20.1168
    VarArpent = CDbl(Val(txtConversion.Text)) / 58.471308
    VarMile = CDbl(Val(txtConversion.Text)) / 1609.344

Mes variables sont toutjours des Double....

P.S. j'ai mis un # apr&#232;s mes chiffres mais aussit&#244;t que je change de ligne le "#" s'efface

merci d'avance

Gobillot · Answer

jrivet a raison, ton r&#233;sultat est bon

c'est au moment de l'affichage que tu choisis le nombre de d&#233;cimales que tu veux

MsgBox Round(VarMile, 9)


Daniel

cs_JeffC1977 · Answer

Rebonjour...

Bien il y a quelque chose que je ne saisi pas...

VarMile = CDbl(Val(txtConversion.Text)) / 1609.344

Si je fais sur ma calculatrice

100 (txtConversion) / 1609.344 ca me donne 0,062137119

Dans monprogramme ce donne la R&#233;ponse &#224; jrivet

J'ai besoin d'explication.. enfin d'&#234;tre plus &#233;clair&#233;

merci encore

Gobillot · Answer

bonne question !

pourquoi &#231;a affiche parfois en format scientifique et parfois en format normal ?

   6,21371192237334E-02

   &#233;quivallent &#224;:

   0.0621371192237334



15 chiffres significatifs, mais 16 chiffres apr&#232;s la virgule

je pense qu'&#224; partir de 16 chiffres d&#233;cimaux ce sera un Format scientifique

 MsgBox Round(VarMile, 15)  --> normal

 MsgBox Round(VarMile, 16)  --> scientifique



je te rassures les 2 sont &#233;gaux:

6,21371192237334E-02 = 6,21371192237334 * 10-2

Daniel

Gobillot · Answer

dan l'exemple:

    VarMile =  Val(txtConversion.Text) / 1609.344



si txtConversion.Text <=160  --> format scientifique

si txtConversion.Text >=161  --> format normal



pour du Single c'est &#224; partir de 8 d&#233;cimales



et sur ta calculatrice (pour 8 chiffres) essayes de taper:

6.2137119    EXP    2  -   =


Daniel

cs_JeffC1977 · Answer

Rebonjour....

Et bine c'est bien de savoir que les 2 valeurs sont &#233;gales... mais le probl&#232;me c'est que je doit absolument avoir la valeur normal et non scientifique...

Le Bug c'est que je fais un prog. de conversion.... si c'est la valeur scientifique qui aparait.....   et bien sa donne &#224; premi&#232;re vue un erreur pour l'utilisateur... :(

J'ai pos&#233; une question plsutot dans la journ&#233;e &#224; propos de la conversion de degr&#233; d&#233;ciamux en Degr&#233; Minute Seconde....

Et bien j'ai le m&#234;me probl&#232;me....

Degres = Int(txtVertical) 'le Int arrondie la valeur (enl&#232;ve les d&#233;cimaux)
    dbConvert = (dbConvert - Degres)
    dbConvert = dbConvert * 100
    dbConvert = Int(dbConvert)
    dbConvert = dbConvert / 60
    Minutes = Int(dbConvert) 'le Int arrondie la valeur (enl&#232;ve les d&#233;cimaux)
    dbConvert = dbConvert - Minutes
    dbConvert = (dbConvert * 100) / 60

   Lorsque je divisi 1 par 60 ca me donne 1,66666666667E-02 et je devrais avoir  0,0166666666667
Le probl&#232;me est que m&#234;me si je divise par 100 ca m'indique la m&#234;me r&#233;ponse... :(

Comment faire pour solutionner ce probl&#232;me ????

Merci d'avance

Gobillot · Answer

ne m&#233;langeons pas tout.



1) pour la conversion, tu affiches bien le r&#233;sultat quelque part, non ?

  VarMile = Val(txtConversion.Text) / 1609.344

VarMile c'est un Double cod&#233; en binaire, donc il y a pas de format scientifique pour l'instant,

ensuite tu l'affiches avec le nombre de d&#233;cimales voulues (jusqu'&#224; 15 maximum)

txtResultat = Round(VarMile, 8)



2) pour l'autre probl&#232;me, je penses que &#231;'est plut&#244;t des multiplications:
0.019722222 * 60 =    1.183333333

0.183333333 * 60 =  11

--->  0&#176; 1' 11"


Daniel

VB6 Calcul simple qui ne fonctionne pas. ???

9 réponses

Discussions similaires