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

5/5 (21 avis)

Vue 21 967 fois - Téléchargée 1 591 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.
NHenry
Messages postés
14941
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 juin 2022
161
9 nov. 2008 à 23:25
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)
arkaye
Messages postés
7
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
18 novembre 2008

9 nov. 2008 à 23:08
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()
NHenry
Messages postés
14941
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 juin 2022
161
8 nov. 2008 à 21:50
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.
arkaye
Messages postés
7
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
18 novembre 2008

8 nov. 2008 à 20:02
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.