Problème basic, convertion decimal binaire
xoO
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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
A voir également:
- Problème basic, convertion decimal binaire
- Binaire - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual basic - Télécharger - Langages
- File renamer basic - Télécharger - Gestion de fichiers
- Visual basic editor - Télécharger - Langages
5 réponses
Bonjour,
Déjà beaucoup mieux , mais le resultat n'est pas encore là. Merci de ton aide
13 = 110101
!!
Déjà beaucoup mieux , mais le resultat n'est pas encore là. Merci de ton aide
13 = 110101
!!
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.
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