VB6 Variable ???Résolu

Question

Salut je fais un petit calcul math&#233;matique avec des texbox...

Je crois eu j'ai un probl&#232;me de varaible... car ce ne fonctionne pas...

Voici le code...

Private Sub cmdCalculer_Click()


Dim Variable1 As Double
Dim Variable2 As Double


If cboLongueur1.Text = "M&#232;tre" Then
    txtReponse2.Visible = True
End If


If cboLongueur1.Text "Pied Anglais" And cboLongueur2.Text "M&#232;tre" Then
    Variable1 = (txtConversion.Text * 30.48) / 100
    txtReponse1.Text = Variable1ElseIf cboLongueur1.Text "Pied Anglais" And cboLongueur2.Text "Pied Fran&#231;ais" Then
    Variable1 = (txtConversion * 0.9383064)
    txtReponse1.Text = Variable1ElseIf cboLongueur1.Text "Pied Anglais" And cboLongueur2.Text "Cha&#238;ne" Then
    Variable1 = (txtConversion * 1.515151) / 100
    txtReponse1.Text = Variable1ElseIf cboLongueur1.Text "Pied Anglais" And cboLongueur2.Text "Arpent" Then
    Variable1 = ((txtConversion.Text * 30.48) / 100) / txtConversion.Text
    txtReponse1.Text = Variable1
End If
End Sub

Tout fonctionne bien sauf l&#224; o&#249; le code est en Gras... Ca me donne comme r&#233;ponse 0,3048 et ca devrait me donner 0,5212...

Merci d'avance

cs_JeffC1977 · Accepted Answer

Rebonjour...

Oublier ce message du Forum.. 
1. Je me suis planter dans l'exemple que je voulais donn&#233;... c'est vraiment pas la bonne h&#233;h&#233;h&#233;h&#233;

2. j'ai fini par trouver la solution...

merci quand m&#234;me :P

cs_casy · Answer

Revoie ta formule, elle est certainement fausse : 

((txtConversion.Text * 30.48) / 100) / txtConversion.Text donne en fait (txtConversion.Text * 30.48) / (100 * txtConversion.Text) et donc avec les simplifications math&#233;matiques (30.48 / 100) c'est donc normal que tu trouve 0.3048 

<hr size="2" width="100%">

VB6 Variable ???

2 réponses

Discussions similaires