conversion donnees de type double en binaire

Question

Bonjour 

j'ai un probleme de conversion de données de type double en binaire 
les division par deux successif ne donne pas le resultat escompte

merci de me renseigné

cs_casy · Answer

C'est à dire ?

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

tfares · Answer

conversion d un chiffre en double ne donne pas le binaire attendu
exemple 5,44452E+39 devrait donner une chaine de 132 caracteres avec le premier caracteres a un 
mais cela donne autre chose

cs_casy · Answer

Le problème est Comment tu fais ta conversion ????

Le nombre Double n'est pas enregistré tel quel en mémoire. Il est enregistré sous un format décrit par la norme internationnale IEEE754 et est défini comme ceci.

- Codé sur 64 bits
- 52 bits de poid faible représentant la mantisse (x.xxx.....)
- 11 bits suivants représentant l'exposant décalé de 1023 (2^(11-1)-1)
- 1 bit de signe
Plusieurs variations existent

5.44452E+39 sera représenté en mémoire (selon les variations) par (en Hexa) : &H7260000000084DC4

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

tfares · Answer

voici le source  de ma conversion
-------------------------------------------------------- 

Sub Calculbin(nombre As Double, resultatbin())
Dim divident, reste As Double
Dim dividentINT, DIVIDENTFIX As Double

Dim indic As Integer
ReDim resultatbin(200)
For indic = 1 To 200
    resultatbin(indic) = Empty
Next indic
indic = 0
    Do Until DIVIDENTFIX = 1
        divident = nombre / 2
        DIVIDENTFIX = Fix(divident)
        resultatbin(indic) = Fix(nombre - (DIVIDENTFIX * 2))
  If resultatbin(indic) = 1 Then
    Debug.Print "debut ";
        
    Debug.Print "indic "; indic; "--"; "resultatbin(indic) "; resultatbin(indic); "--"
     Debug.Print "Nombre "; nombre; "--"
     Debug.Print "divident     "; divident; "--"
    Debug.Print "dividentfix "; DIVIDENTFIX; "--"
   End If
        nombre = DIVIDENTFIX
        indic = indic + 1

    Loop
        resultatbin(indic) = divident
ReDim Preserve resultatbin(indic)
'Resultatbin = resultat
'For indic = 1 To UBound(resultat)
'Resultatbin(indic) = resultat(indic)
'
'Next indic

End Sub
--------------------------------------------------------

Conversion donnees de type double en binaire

4 réponses

Votre réponse

Discussions similaires