VB conversion base 10 en base 2

[Fermé]
Signaler
-
 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
A voir également:

5 réponses

personne svp aider moi svp
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

personne ne peut m'aider?
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
832 > liguemagnus
Je regarde :) jte dis dans quelques secondes
>
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015

ok merci c'est super sympas
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
832
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é
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
832
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
pour 2 sa me donne le binaire de 1 est 1

pour deux ya un décalage mais ou lol
y marche yes mici bcp woooopi

mici mici
je sait pas mettre résolu

mais résolu mici