CONVERTION DÉCIMAL, BINAIRE, HEXADÉCIMAL, BCD, OCTAL BINAIRE RÉFLÉCHI

Signaler
Messages postés
14825
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 octobre 2021
-
 ccgousset -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6989-convertion-decimal-binaire-hexadecimal-bcd-octal-binaire-reflechi

Encore toi l homme au chat ... Pas mal ton prog.
Messages postés
14825
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 octobre 2021
157
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
14825
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
20 octobre 2021
157
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.
Afficher les 21 commentaires