Convertion décimal, binaire, hexadécimal, bcd, octal binaire réfléchi

Soyez le premier à donner votre avis sur cette source.

Vue 21 625 fois - Téléchargée 1 561 fois

Description

Permet de convertir les différentes unités.
Dans tous les sens :
-Binaire, décimal, Hexadécimal, BCD, octal et binaire réfléchis.

Conclusion :


Ne mettez pas de trop grand nombre, sinon il vous affichera n'importe quoi

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Encore toi l homme au chat ... Pas mal ton prog.
Messages postés
14757
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
14 janvier 2021
151
Dim nb, n, v As Integer
Console.Out.WriteLine("Entrer un nombre:")
nb = Console.In.ReadLine()
'Console.Out.WriteLine("Entrer la puissance du nombre:")
'n = Console.In.ReadLine()
Do
'n = n / 10
Select Case nb Mod 10
Case 0 : Console.Out.Write(" 0000")
Case 1 : Console.Out.Write(" 0001")
Case 2 : Console.Out.Write(" 0010")
Case 3 : Console.Out.Write(" 0011")
Case 4 : Console.Out.Write(" 0100")
Case 5 : Console.Out.Write(" 0101")
Case 6 : Console.Out.Write(" 0110")
Case 7 : Console.Out.Write(" 0111")
Case 8 : Console.Out.Write(" 1000")
Case 9 : Console.Out.Write(" 1001")
End Select
nb = nb \ 10
Loop Until nb = 0

Console.In.Readkey()

Je ne comprend pas l'utilité de n, mais bon.
Lundi, je serais à l'écoute sur le Cah #programmation (chat), j'y suis ce soir (-> approx minuit)
Messages postés
7
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
18 novembre 2008

slt l'ami
j'ais ecrit ce programme qui permet de converti de décimal vers BCD mais le problème : je vx qu il me donne les reponse sur la meme ligne .si tu es la je souhaite savoir une reponse svp
Dim nb, n, v As Integer
Console.Out.WriteLine("Entrer un nombre:")
nb = Console.In.ReadLine()
Console.Out.WriteLine("Entrer la puissance du nombre:")
n = Console.In.ReadLine()
Do
v = nb Mod 10
nb = nb \ 10
n = n / 10
Select Case v
Case 0 : Console.Out.WriteLine(" 0000")
Case 1 : Console.Out.WriteLine(" 0001")
Case 2 : Console.Out.WriteLine(" 0010")
Case 3 : Console.Out.WriteLine(" 0011")
Case 4 : Console.Out.WriteLine(" 0100")
Case 5 : Console.Out.WriteLine(" 0101")
Case 6 : Console.Out.WriteLine(" 0110")
Case 7 : Console.Out.WriteLine(" 0111")
Case 8 : Console.Out.WriteLine(" 1000")
Case 9 : Console.Out.WriteLine(" 1001")
End Select
Loop Until nb = 0

Console.In.Read()
Messages postés
14757
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
14 janvier 2021
151
Bon, je vais t'aider un peu plus :

dim lNbDec as string 'Nombre à traduire en décimal
dim lNbBCD as string 'Nombre traduit en BCD

lnbdec=lnbdec.toupper

for i as integer=0 to lnbdec.length
select case lnbdec.substring(i,1)
case "0" : lnbbcd+=" 0000"
case "1" : lnbbcd+=" 0001"
case "2" : lnbbcd+=" 0010"
.....
case "E" : lnbbcd+=" 1110"
case "F" : lnbbcd+=" 1111"
case else : lnbbcd+=" ?"
end select
next

Et voilà, ton nombre est traduit.
Messages postés
7
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
18 novembre 2008

Rien compri l'ami
???????????
comment on vas prendre chaque nombre seul
et on entre un nombre se compose de plusieur chifres
??????????????
Afficher les 21 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.