Problème basic, convertion decimal binaire
xoO
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, j'ai un soucis, j'essai de faire une convertisseur Décimal --> Binaire..., mais sa ne marche pas.
Quelqu'un pourrai t'il m'aider?? merci
Imports Microsoft.VisualBasic
Module Module1
Dim nb1 As Integer
Dim rest As Integer
Dim result As String
Sub Main()
result = " "
Console.Write("donner un chiffre : ")
nb1 = Console.ReadLine
Do While nb1 > 1
rest = nb1 Mod 2
nb1 = nb1 \ 2
result = nb1 & rest
Loop
Console.WriteLine(result)
Console.Write("fin")
Console.ReadKey()
End Sub
End Module
Quelqu'un pourrai t'il m'aider?? merci
Imports Microsoft.VisualBasic
Module Module1
Dim nb1 As Integer
Dim rest As Integer
Dim result As String
Sub Main()
result = " "
Console.Write("donner un chiffre : ")
nb1 = Console.ReadLine
Do While nb1 > 1
rest = nb1 Mod 2
nb1 = nb1 \ 2
result = nb1 & rest
Loop
Console.WriteLine(result)
Console.Write("fin")
Console.ReadKey()
End Sub
End Module
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
Bonjour,
result = result & rest n'est pas mieux ?
eric -
Bonjour,
Déjà beaucoup mieux , mais le resultat n'est pas encore là. Merci de ton aide
13 = 110101
!! -
Tout augmente que veux tu pffff
-
Sa y est, sa marche!!!
Do While nb1 > 0
rest = nb1 Mod 2
nb1 = nb1 \ 2
result = rest & result
Loop
continuer jusqu'a nb1 > 0
et bien sur result = rest & result
Aller je m'attaque à l'héxa!!
merci eriic. -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Parfait, n'oublie pas de mettre résolu :-)
bye bye...
