VB conversion base 10 en base 2
liguemagnus
-
liguemagnus -
liguemagnus -
Bonjour,
voila j'ai un petit soucie j'ai créer un vb pour me permettre la conversion d'un entier positif de base 10 en base 2 sa fait un petit moment que je cherche mais je n'arrive pas a trouver mon erreur pouvais vous m'aider svp
voila mon code merci d'avance a ceux qui me répondrons
Sub main()
Dim nb As Integer
Dim n As Integer
Dim b As String
nb = InputBox("saisir nb")
n = 0
While nb > 2 ^ n
n = n + 1
Wend
While n >= 0
If nb >= 2 ^ n Then
b = b + "1"
n = n - 1
nb = n - (2 ^ n)
Else
b = b + "0"
n = n - 1
End If
n = n - 1
Wend
MsgBox ("le binaire de " & nb & "est de : " & b)
End Sub
voila j'ai un petit soucie j'ai créer un vb pour me permettre la conversion d'un entier positif de base 10 en base 2 sa fait un petit moment que je cherche mais je n'arrive pas a trouver mon erreur pouvais vous m'aider svp
voila mon code merci d'avance a ceux qui me répondrons
Sub main()
Dim nb As Integer
Dim n As Integer
Dim b As String
nb = InputBox("saisir nb")
n = 0
While nb > 2 ^ n
n = n + 1
Wend
While n >= 0
If nb >= 2 ^ n Then
b = b + "1"
n = n - 1
nb = n - (2 ^ n)
Else
b = b + "0"
n = n - 1
End If
n = n - 1
Wend
MsgBox ("le binaire de " & nb & "est de : " & b)
End Sub
Configuration: Windows XP Firefox 3.0.1
5 réponses
-
-
-
nb = nb - (2 ^ n)
au lieu de :
nb = n - (2 ^ n)
il me semble que ce n'est que ça, je viens de le voir, pas encore testé-
Il y a aussi tes n-1 qui cafouillent un peu ^^
Voilà rectifié :
Sub main() Dim nb As Integer Dim n As Integer Dim b As String nb = InputBox("saisir nb") n = 0 While nb > 2 ^ n n = n + 1 Wend While n >= 0 If nb >= 2 ^ n Then b = b + "1" nb = nb - (2 ^ n) Else b = b + "0" End If n = n - 1 Wend MsgBox ("le binaire de " & nb & "est de : " & b) End Sub -
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
