VB6 Problème avec Variable Double... je croisRésolu

Question

Salut...

J'ai un petit probl&#232;me avec mes r&#233;sultats....

Je me suis fais un petit programme de conversion (ex. convertir X m&#232;tre qui me donne Y Pied)

Je rentre une donn&#233;e dans un textbox (ex 122,22) je s&#233;lectionne dans mon listbox M&#232;tre pour dire que 122,22 est en m&#232;tre et j'appuis sur Enter qui fais apparaitre dans diff&#233;rent textbox la valeur en pied anglais, en pied francais, en Cha&#238;ne, en arpent, en Perche etc...

Pour une raison que j'ignore les r&#233;sultat me donne dans certain texbox que 2 chiffres apr&#232;s la virgule et d'autre textbox j'ai une multitute de chiffre apr&#232;s la virgule. J'ai besoin d'avoir plus de 2 chiffre apr&#232;s la virgule... et je ne sais pas pourquoi il fait ca on dirait qu'il utilise la fonction Round mais je ne l'ai pas cod&#233;...

Si quelqu'un peut m'aider

Voici le code pour convertir des m&#232;tres en Pied Anglais

ElseIf cboLongueur.Text = "Pied Anglais" Then
    VarMetre = CDbl(Val(txtConversion.Text * 30.48)) / 100
    VarPiedFrancais = CDbl(Val(txtConversion * 0.9383064))
    VarChaine = CDbl(Val(txtConversion * 1.515151)) / 100
    VarArpent = CDbl(Val((txtConversion.Text * 30.48) / 100)) / 58.471308
    VarPerche = CDbl(Val((txtConversion.Text * 30.48) / 100)) / 5.8471308
    VarVerge = CDbl(Val((txtConversion.Text * 30.48) / 100)) / 0.9144
    
    txtPiedAnglais.BackColor = &HE0E0E0
    txtPiedAnglais.Text = ""
    
    txtMetre.Text = VarMetre
    txtPiedFrancais.Text = VarPiedFrancais
    txtChaine.Text = VarChaine
    txtArpent.Text = VarArpent
    txtPerche.Text = VarPerche
    txtVerge.Text = VarVerge

Merci d'avance

cs_jperre · Accepted Answer

Si c'est un problème de virgule flottante, il est possible d'utiliser le type Currency qui, lui est à virgule fixe.
A tester...

cs_jperre · Answer

Pourquoi ne pas utiliser la fonction Format pour afficher les résultats
Exemple TextBoxAffichage.Text=Format(VarMetre,"#0.00000") pour afficher les résultats avec 5 chiffres après la virgule. Si les décimales de droite sont à zéro, elles s'afficheront tout de même à cette valeur.

Je ne sais pas si celà répond à ton problème!...

cs_JeffC1977 · Answer

Salut merci pour ta r&#233;ponse mais cela ne r&#232;gle pas le probl&#232;me....

Si par exemple je veux convertir 122,22 m&#232;tre en pied 
Je fais 122,22 * 0,3048 = 37,252656

Mon programme tronque des chiffres apr&#232;s la virgule  donc il fais le calcul mais la r&#233;ponse est &#233;gale 37,25

Ainsi si je fais un Format ca me donne comme r&#233;ponse 37,2500

:(

Si tu as un autre id&#233;e... merci d'avance

Gobillot · Answer

n&#233;gatif c'est le Val() qui tronque



exemple:

Val("122,22")                --> 122

Val("122,22" * 0.3048) --> 37

Val("122,22" * 30.48)   --> 3725

Val("122,22") * 30.48   --> 3718.56



solutions:
- si tu garde le Val() il faut un point &#224; la place de la virgule

   il vaut mieux aussi avoir un point en sortie

   txtConversion = "122.22"

   VarMetre = Val(txtConversion.Text) * 30.48 / 100

   txtMetre.Text = Str$(VarMetre)



-   si tu garde la virgule, il faut pas utiliser Val()

   txtConversion = 122.22


   VarMetre = txtConversion.Text * 30.48 / 100


   txtMetre.Text = VarMetre




Daniel

VB6 Problème avec Variable Double... je crois

4 réponses

Discussions similaires