A voir également:
- Algorithme conversion base 10 en base 2
- Clé windows 10 gratuit - Guide
- Windows 10 gratuit - Guide
- Base de registre windows 10 - Guide
- Mon pc s'allume mais ne démarre pas windows 10 - Guide
- Windows 10 iso - Guide
5 réponses
personne ne peut m'aider?
bizu53
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
859
>
liguemagnus
2 janv. 2009 à 17:44
2 janv. 2009 à 17:44
Je regarde :) jte dis dans quelques secondes
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
2 janv. 2009 à 17:46
ok merci c'est super sympas
bizu53
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
859
2 janv. 2009 à 17:50
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é
au lieu de :
nb = n - (2 ^ n)
il me semble que ce n'est que ça, je viens de le voir, pas encore testé
bizu53
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
859
2 janv. 2009 à 17:58
2 janv. 2009 à 17:58
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