'Exemple de l'utilisation: msgbox decbin(88)
Public Function DecBin(ByVal NombreDec As Integer) As Long Dim Binaire As String Dim Bin As String Dim i As Integer Do Bin = Bin & (NombreDec Mod 2) NombreDec = (Int(NombreDec / 2)) Loop Until NombreDec 1 Or NombreDec 0 If NombreDec = 0 Then Bin = Bin & "0" Else Bin = Bin & "1" End If If Len(Bin) < 8 Then Do While Len(Bin) < 8 Bin = Bin & "0" Loop End If For i = 8 To 1 Step -1 Binaire = Binaire & Mid$(Bin, i, 1) Next DecBin = Val(Binaire) End Function
J'utilise DECBIN
Forum > Visual Basic 6
Public Function deci_to_binaire(nombre As Integer) As String ou$ = "" If nombre = 0 Then deci_to_binaire = "0" Else While nombre > 1 ou$ = ou$ & Str(nombre Mod 2) nombre = nombre \ 2 ' attention : \ et non / (pour azvoir l'entier de la division Wend deci_to_binaire = "1" & ou$ End If End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf Len(Bin) < 8 Then Do While Len(Bin) < 8 Bin = Bin & "0" Loop End If