Problème basic, convertion decimal binaire
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
-
ContributeurBonjour,
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
!! -
ContributeurTout 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. -
ContributeurParfait, n'oublie pas de mettre résolu :-)
bye bye...
