[Résolu] Transformer une valeur en binaire

Version imprimable

22/07/2013, 18h37
guda

[Résolu] Transformer une valeur en binaire

Bonjour,

je suis plutôt novice en développement (VB.NEt 2012)

Depuis une interface je récupère une valeur, par exemple 25.
Elle représente l'état de 5 bits :
valeur num : 16 8 4 2 1
valeurs bits : 1 1 0 0 1

je doit donc réussir à savoir que le premier bit=1, le 2eme=1, le troisième = 0 ....

Y'a t'il une méthode pour cela ?

Merci pour votre aide

Dan

[Solutionné]

Je me réponds.
J'ai trouvé un code en C# que j'ai accommodé pour VB.NET

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
''' <summary>renvoie le chiffre binaire correspondant a l'entier passé en paramètre </summary>
        ''' <param name="valeur">Chiffre (base 10) que l'on veut convertir</param>
        '''<returns>retourne le chiffre binaire du type 11011</returns> 
        Public Function convert_int_to_Bin(ByVal valeur As Integer) As String
            Dim resultat_binaire As String = ""
            Dim div As Integer = 0
            Dim i As Integer = valeur
 
            Do While (valeur <> 0)
                div = 0
                i = valeur
                Do While (i <> 1 AndAlso i <> 0)
                    i -= 2
                    div += 1
                Loop
                resultat_binaire = Convert.ToString(valeur - (2 * div)) + resultat_binaire
                valeur = div
            Loop
 
            Return resultat_binaire
        End Function

Bonjour,

Et une petite fonction de ce style ? (traite les entiers positifs)

Code:

1
2
3
4
5
6
7
8
    Function EntierToBinaire(ByVal Entier As Integer) As String
        Dim sb As New System.Text.StringBuilder()
        While Entier > 0
            If Entier Mod 2 > 0 Then sb.Insert(0, "1") Else sb.Insert(0, "0")
            Entier = Entier \ 2
        End While
        Return sb.ToString
    End Function

Pensez au bouton résolu ;)

J'ai trouvé ça

Code:

1
2
3
4
 
For i As Integer = 0 To 15
    Debug.WriteLine(Convert.ToString(i, 2).PadLeft(4, "0"c))
Next