Bug d'algo incompréhensible !Résolu

Question

Violent Ken

Salut &#224; toi, &#212; grande communaut&#233; de d&#233;veloppeurs !
Plus s&#233;rieusement, j'ai un probl&#232;me tout simple, mais je ne trouve pas la r&#233;ponse; le voil&#224; :

J'ai ce petit bout de code :

(N est un Double que l'utilisateur donne, et Fac un Double =0)
Fac = 0
While Int(N) < N
    Fac = Fac + 1
    N = 10 * N
    DoEvents
Wend

Voici ce que c'est cens&#233; faire : on donne N (qui est un nombre d&#233;cimal) et la boucle nous le multiplie par 10 jusqu'&#224; ce qu'il soit entier.
exemple : si N=1.05, on aura N qui deviendra 105 et Fac=2.
Pas trop dur, n'est ce pas  !
MAIS, pour N=1.12, ma boucle me donne N=1.12E+16 et Fac=16 ! Pourquoi donc ???
Pour N=20.451, le r&#233;sultat est le bon, mais pour N=1.12, pas moyen  ?? 

J'ai donc trouv&#233; le stratag&#232;me de faire :

While Len(Str$(Int(N))) < Len(Str$(N))

au mieux du While existant.
Ca marche d&#233;sormais, mais ou est le bug dans la pr&#233;c&#233;dente boucle ??
Si vous trouvez pas, c'est pas grave, mais quand m&#234;me, c'est incompr&#233;hensible et j'aimerais bien conna&#238;tre le raison de ce bug ! Est ce vb6.exe qui foire ??
@+

cs_CanisLupus · Accepted Answer

Salut, effectivement, le double en vb6 est tr&#232;s impr&#233;cis apr&#232;s un certain nombre de d&#233;cimales (je crois que 14 c'est le max, &#224; voir). Certaines valeurs comme 1.12 (et d'autres) prennent un 1 en 15&#232;me d&#233;cimale et plus. Le pourquoi ? pb de processeur, de conversion, ... ?

Pour ton prob, essaie cette solution :

While Int(N) < Round(N, 8)
  Fac = Fac + 1
  N = 10 * Round(N, 8)
  DoEvents
Wend

J'ai mis Round(N, 8) mais tu peux mettre moins ou plus (mais pas plus de 14), &#231;a d&#233;pend de la pr&#233;cision que tu veux obtenir. Je te laisse tester.

Je sais bien que le round... se r&#233;p&#232;te mais autrement &#231;a plante quand m&#234;me car le double remet ses d&#233;cimales parasites &#224; chaque calcul.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Neo.balastik · Answer

Salut ;O)

En utilisant le type de donn&#233;es Currency, ca passe.   Maintenant, je n'explique pas pourquoi ce ne va pas avec Double.

Guy

violent_ken · Answer

Violent Ken

Effectivement, le fait que Fac aille jusqu'&#224; 16 indique la limite du type de donn&#233;es. MAIS
1) pourquoi &#231;&#224; marche pas avec Double ???
2) pourquoi &#231;&#224; marche avec 1.05 ; 1.65152 et pas 1.12 ???

Quand m&#234;me bizarre tout &#231;&#224; ...
@+

PCPT · Answer

salut,
&#233;trange en effet. While (Int(N) + 0.01) < N faisable...
++
PCPT    [AFCK]

violent_ken · Answer

Violent Ken

Fac=0
While Len(Str$(Int(N))) < Len(Str$(N))
    Fac = Fac + 1
    N = 10 * N
    DoEvents
Wend

Cette petite boucle marche aussi; quand les longueurs des cha&#238;nes sont identiques, cela signifie que la virgule a disparu.
Quant &#224; la solution avec le round, &#231;&#224; marche aussi (8 est convenable), merci !
@+

Bug d'algo incompréhensible !

5 réponses

Discussions similaires