convertir 16,40 en binaire

Question

bonjour,
j'ai un programme qui convertit la chaine en binaire pour faire une recherche sur des fichier excel, bref ça marche sauf pour les nombres à virgules. je sais on peut paq le faire mais surement qu'un pro a trouvé l'astuce sue ce forum !! 
Pourriez vous m'aider ?

Merci par avance.

cs_LordBob · Answer

je crois qu'il est impossible de faire des convertion de chiffre decimaux et binaire... depuis le tps que j'en fait je n'ai jamais vu ca !!!
Bob...

"La chance accorde ses faveur aux esprits avertis..."

cs_LordBob · Answer

je crois qu'il est impossible de faire des convertion de chiffre decimaux et binaire... depuis le tps que j'en fait je n'ai jamais vu ca !!!
Bob...

"La chance accorde ses faveur aux esprits avertis..."

ephores · Answer

ça s'écrit bien d'une manière au niveau du programme ?
c'est le binaire de 16 & le binaire de 40 ?
question?

cs_LordBob · Answer

c'est impossible de convertir un chiffre decimal en binaire !!! mais je ne sais pas comment l'ordi (et le programme) fait pour s'y retrouver...
mais c'est une question interressante dont je voudrais bien connaitre la reponse...
Bob...

"La chance accorde ses faveur aux esprits avertis..."

ephores · Answer

Merci quand meme bob,
j'ai esayé de trouver la chane 16 en Bin suivie de la chaine 40 (bin) mais il ne trouve rien....
donc c'est pas là la réponse....
Pitié je cherche un savant cette technique me permetrais de gagner en temps monstre !!

Vb Lover · Answer

Je sais pas si je suis le savant que tu cherches, mais enfin voilà :

pour stocker des entiers, pas de problème pour l'ordi, il met tout en bits en basta.
pour les réels, c'est là qu'intervient la précision de ton type (single, double). Je ne sais plus exactement les détails, mais en gros ton nombre est décomposé en 2 parties, mais ce n'est pas la partie devant la virgule et celle derrière !
Ton nombre, c'est une mantisse et un exposant, avec une taille limitée et fixe. Bref, si tu veux 16.40 en binaire, c'est stocker comme 164 dans la mantisse et l'exposant peut-être -1, mais tout dépend de comment c'est mis en mémoire.

enfin, si tu veux mettre 16.4 en binaire, moi je mettrais :

10000.0110011001... :)

VB Lover

ephores · Answer

est - il possible de mettre une formule ? car c'est des montant que  je cherche , jamais les même .
En tous cas ce dois être toi le savant car " la mantisse " j'avais jamais vu ça !!!! 
Merci pour ton savoir !

voila mon bout de code desfois....

Private Sub Command2_Click()

Dim u As Boolean
u = False
Dim Ch As String * 1024
For i = 1 To NbOccurence
u = False
' Rtrim(chaine) enlève les espaces à droite
Open RTrim(ResultatRecherche.Chemin(i)) & ResultatRecherche.Fichiers(i).cFileName For Binary As #1
Get #1, , Ch
If InStr(LCase(Input(LOF(1), 1)), LCase(Text1)) Then u = TrueIf u True Then Text2 Text2 & vbCrLf & "trouvé dans " & ResultatRecherche.Fichiers(i).cFileName
Close #1
Next

ens sub

cs_CanisLupus · Answer

Salut, 
G vu un truc ici :
http://www.vbfrance.com/code.aspx?ID=22122
Pas eu le temps de tester profondément mais sa calc a l'air de convertir des réels (donc avec virgule). A voir.

Cordialement

CanisLupus

cs_CanisLupus · Answer

Sinon,
Si tu es un peu matheux, tu peux visionner ce truc en pdf :
http://cui.unige.ch/isi/cours/std01/1t-Types-primitifs.pdf
C pas mal expliqué, reste plus qu'à le traduire en fonction.
Si g le temps un jour et si c utile, je me pencherai là-dessus.

Cordialement

CanisLupus

ephores · Answer

Merci CanisLupus mais dans la calculette il remplace la virgule par un zero, si tu convertit un decimal à vigule et qu'ensuite tu reconvertit en decimal tu t'en appercevras.
Je vais essayer la deuxième soluce mais j'avoue partir perdant... c'est pas de mon niveau.
Merci CanisLupus de t'être donné autant de mal, si tu as d'autre info je suis preneur.

ephores · Answer

please/.........

cs_CanisLupus · Answer

Allez, g un peu de temps et il parait que la météo va pas être bonne pour ce long WE.
Je vais essayer d'appliquer les algos du PDF. G déjà un truc que je pourrais peut-être adapter.
A moins que quelqu'un me devance....

@++

CanisLupus

ephores · Answer

OH mille merci CanisLupus !!!

cs_CanisLupus · Answer

Attend avant de dire merci, car autant j'arrive facile à traduire une chaine de 0 et 1 en nombre à virgule, autant pour faire l'inverse...... c pas gagné.
Va falloir que je me transforme en Indiana jones pour aller explorer des coins de mémoire où je ne suis pas allé depuis longtemps !

Bah, ça va me nettoyer un peu le cerveau, ça ne fera pas de mal.

Cordialement

CanisLupus

ephores · Answer

Je sais que tu peux le faire !
Je sais que ça dois pas être évident, si tu y arrive tu seras vraiment le best of the best ;-)

Merci même si tu n'y arrive pas ;-((((

cs_CanisLupus · Answer

<ephores> Je viens de mettre un source sur le site, dis moi si ça te convient.

http://www.vbfrance.com/code.aspx?ID=23026

Cordialement

CanisLupus

ephores · Answer

T'es un pro CHIEN LOUP !

par contre il me reste à resoudre un problème, peut être pourrais tu m'aider ????

dans ce bout de code :
***********************************************

Open RTrim(ResultatRecherche.Chemin(i)) & ResultatRecherche.Fichiers(i).cFileName For Binary As #1
Get #1, , Ch
If InStr(LCase(Input(LOF(1), 1)), LCase(Text1)) Then u = True

***********************************************

Il ouvre le fichier en binaire , et est sencé comparer les chaines en binaire, chose qu'il fait bien sauf quand c'est une décimale à virgule ça ne marche pas. Ton code me permettrais de traiter le contenue de ma textbox1 en le convertissant en binaire, mais il va REconvertir  si je laisse mon code ainsi.
En gros ma question : comment faire pour lui dire de chercher une chaine traité directement en binaire ( grace à ton code ) .

Merci encore, tu m'épates !

cs_CanisLupus · Answer

Ben, franchement, je ne sais pas.
Vu ton autre post, tu veux rechercher une chaine dans un fichier excel ? Je ne connais pas bien le format de codage excel mais je pense que c le même que partout ailleurs.
Ce que je t'ai indiqué, c une mainère normalisée de représenter un nombre (en virgule flottantee) en binaire. Maintenant, l'enregistrement dans un fichier ne se fait pas de la même façon. Il y a des histoires d'octet de poids faible  et d'octet de poids fort. Par ex :

16.40 est représenté comme suit :
0100000000110000011001100110011001100110011001100110011001100111

mais dans un fichier, ça peut être :
0011000001000000011001100110011001100110011001100110011101100110

Explication, tu prends 16 bits et tu intervertis les 8 premiers bits avec les 8 suivants et ainsi de suite.

C une piste, je n'ai plus le temps de vérifier.

A toi de continuer....

Cordialement

CanisLupus

ephores · Answer

Merci CanisLupus,
tu as fait beaucoup c'est gentil à toi, si je trouve une issue je la posterais à la suite.
En tous cas c'est un plaisir de voir des gens comme toi, près a aider leur prochain.

Merci encore et peut être à bientôt !

MANDIN Claude · Answer

Pour le Binaire
L'entier est divis&#233; par deux
la partie d&#233;cimale est multipli&#233;e par 2

Ex: 43,375 = 101011,011

Sojojo · Answer

salut euphores,
j'ai peut etre quelque chose qui peut etre utile, mais je sais pas. c trois fonctions pour un module. il y a la premiere qui te converti un decimal en binaire, la deuxieme qui premet de trouver une valeur floattante et la troisieme qui converti une valeur hex en dec . le probleme c que pour moi sa me sert a lire les param&#232;tres d'un variateur alors je ne pense pas que tout sera util, mais si ca peut t'aider quand meme.

'*******************************************
'Fonction: toBi
'   Passe un nombre decimal en une valeur binaire.
'*******************************************
Function toBi(ByVal Valeur)
        Dim bValeur()   'Valeur en Binaire
        Dim ValeurMarque
        Dim i, j
        Dim MSBnr


        ValeurMarque = Valeur


        i = 1
        Do
                If Valeur > (2 ^ i) - 1 Then
                        i = i + 1
                Else
                        MSBnr = i
                        Exit Do
                End If
        Loop Until i >= 64
        
        If i >= 64 Then
                MsgBox "ERREUR: Zone D&#233;pass&#233;e"
        End If


        ReDim bValeur(MSBnr - 1)


        For i = MSBnr - 1 To 0 Step -1
                If Valeur / 2 ^ i > 1 Then
                        bValeur(i) = 1
                        Valeur = Valeur - 2 ^ i
                ElseIf Valeur / 2 ^ i = 1 Then
                                bValeur(i) = 1
                                For j = i - 1 To 0 Step -1
                                bValeur(j) = 0
                                Next
                                Exit For
                Else
                        bValeur(i) = 0
                End If
        Next


        toBi = bValeur


End Function


'*******************************************
'Fonction: CalcFloat
'  Calcul la valeur du le t&#233;l&#233;gramme r&#233;ponse
'  pour la mettre en valeur flottante.
'*******************************************
Function CalcFloat(ByVal AntwDW)


        Dim Vorz, Mant, Expo
        Dim Dvorz, Dmant, Dexpo
        Dim MantBi, i, j
        Dim Mantlaenge
        Dim interm2
        Vorz = Fix(AntwDW / 2 ^ 31)                       'Filtre le signe
        Expo = Fix((AntwDW - Vorz * 2 ^ 31) / 2 ^ 23)     'Filtre l'exposant
        Mant = AntwDW - Vorz * 2 ^ 31 - Expo * 2 ^ 23     'Filtre une mantisse


        Dvorz = (-1) ^ Vorz
        Dexpo = 2 ^ (Expo - 127)


        MantBi = toBi(Mant)
        If UBound(MantBi) < 22 Then
                Mantlaenge = UBound(MantBi)
                ReDim Preserve MantBi(22)
                For i = 22 To Mantlaenge + 1 Step -1
                MantBi(i) = 0
                Next
        End If


        Dmant = 1
        j = 1
        For i = 22 To 0 Step -1
                Dmant = Dmant + MantBi(i) * 1 / (2 ^ j)
                j = j + 1
        Next


        interm2 = Dvorz * Dexpo * Dmant        CalcFloat Round(interm2, 4) 'Round Renvoie un nombre arrondi &#224; un nombre sp&#233;cifi&#233; de positions d&#233;cimales


End Function



'*******************************************
'Function: HtoD
' Passe en une valeur Hexad&#233;cimale en une valeur decimale
'*******************************************
Function HtoD(Zahl)


  Dim arZahl As String
  Dim lenZahl
  Dim Ergebnis
  Dim chiffre As Double
  Dim i
  Trim (Zahl)
  lenZahl = Len(Zahl)
  For i = 0 To lenZahl - 1
      arZahl = Mid(Zahl, lenZahl - i, 1)
      If arZahl "0" Then chiffre 0 * 16 ^ iIf arZahl "1" Then chiffre 1 * 16 ^ iIf arZahl "2" Then chiffre 2 * 16 ^ iIf arZahl "3" Then chiffre 3 * 16 ^ iIf arZahl "4" Then chiffre 4 * 16 ^ iIf arZahl "5" Then chiffre 5 * 16 ^ iIf arZahl "6" Then chiffre 6 * 16 ^ iIf arZahl "7" Then chiffre 7 * 16 ^ iIf arZahl "8" Then chiffre 8 * 16 ^ iIf arZahl "9" Then chiffre 9 * 16 ^ iIf arZahl "A" Or arZahl "a" Then chiffre = 10 * 16 ^ iIf arZahl "B" Or arZahl "b" Then chiffre = 10 * 16 ^ iIf arZahl "C" Or arZahl "c" Then chiffre = 10 * 16 ^ iIf arZahl "D" Or arZahl "d" Then chiffre = 10 * 16 ^ iIf arZahl "E" Or arZahl "e" Then chiffre = 10 * 16 ^ iIf arZahl "F" Or arZahl "f" Then chiffre = 10 * 16 ^ i'



   Ergebnis = Ergebnis + chiffre
  Next


  HtoD = CDbl(Ergebnis)'


End Function

Convertir 16,40 en binaire

21 réponses

Discussions similaires