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

5/5 (21 avis)

Vue 22 206 fois - Téléchargée 1 618 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
ccgousset
22 déc. 2015 à 09:21
Encore toi l homme au chat ... Pas mal ton prog.
NHenry Messages postés 15083 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 19 septembre 2023 159
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 15083 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 19 septembre 2023 159
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
??????????????
S'inscrire maintenant

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.

Du même auteur (NHenry)