Conversion binaireRésolu

Question

Bonjour,

Question VB et non VBA.

Savez-vous s'il existe une fonction qui permette de convertir un entier (ou autre ?) en binaire.

Par exemple je tape 2 et il me retourne 10 (ou 0010)

Merci pour toute suggestion.

~~~ NuNu ~~~

Renfield · Accepted Answer

Voici une petite fonction....


Function DecToBin(ByVal Dec) As String
    Do        DecToBin DecToBin & IIf((Dec Mod 2) 0, "0", "1")
        Dec = Dec \ 2
    Loop Until (Dec = 0)

    DecToBin = StrReverse(DecToBin)
End Function

cs_NuNu · Answer

Merci,

Entre temps j'ai trouvé ce bout de code sur internet (http://support.microsoft.com/default.aspx?scid=kb;fr;466157)

Function baseconv(InputNum, BaseNum)
    Dim quotient, remainder As Single
    Dim answer As String
    quotient = InputNum
    remainder = InputNum
    answer = ""
    Do While quotient <> 0
        remainder = quotient Mod BaseNum
        quotient = Int(quotient / BaseNum)
        answer = remainder & answer
    Loop
    baseconv = Val(answer)
End Function

A+++

~~~ NuNu ~~~

cs_rene38 · Answer

Bonjour
Une autre solution :

Private Function dec_bin(ByVal dec As Long) As String
  Do     dec_bin ("1" And dec Mod 2 1) & dec_bin
     dec = dec \ 2
  Loop Until dec = 0
End Function

cs_NuNu · Answer

Merci c'est nickel.

~~~ NuNu ~~~

Conversion binaire

4 réponses

Discussions similaires