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
A voir également:
- Algorithme conversion base 10 en base 2
- Base de registre - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Clé d'activation windows 10 - Guide
- Restauration systeme windows 10 - Guide
- Windows 10 ne démarre plus - Guide
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é
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é :
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