Sujet Précédent Sujet Suivant

VB conversion base 10 en base 2

Fermé
liguemagnus - 2 janv. 2009 à 15:09
 liguemagnus - 2 janv. 2009 à 18:02
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

Réponse 1 / 5
liguemagnus
2 janv. 2009 à 15:33
personne svp aider moi svp
2
Réponse 2 / 5
liguemagnus
2 janv. 2009 à 16:17
personne ne peut m'aider?
0
liguemagnus
2 janv. 2009 à 17:34
svp
0
bizu53 Messages postés 1274 Date d'inscription samedi 30 août 2008 Statut Membre Dernière intervention 21 juin 2015 860 > liguemagnus
2 janv. 2009 à 17:44
Je regarde :) jte dis dans quelques secondes
0
liguemagnus > bizu53 Messages postés 1274 Date d'inscription samedi 30 août 2008 Statut Membre Dernière intervention 21 juin 2015
2 janv. 2009 à 17:46
ok merci c'est super sympas
0
Réponse 3 / 5
bizu53 Messages postés 1274 Date d'inscription samedi 30 août 2008 Statut Membre Dernière intervention 21 juin 2015 860
2 janv. 2009 à 17:50
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é
0
bizu53 Messages postés 1274 Date d'inscription samedi 30 août 2008 Statut Membre Dernière intervention 21 juin 2015 860
2 janv. 2009 à 17:58
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
0
liguemagnus
2 janv. 2009 à 18:00
pour 2 sa me donne le binaire de 1 est 1

pour deux ya un décalage mais ou lol
0
Réponse 4 / 5
liguemagnus
2 janv. 2009 à 18:01
y marche yes mici bcp woooopi

mici mici
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
liguemagnus
2 janv. 2009 à 18:02
je sait pas mettre résolu

mais résolu mici
0