NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 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és7Date d'inscriptionmercredi 5 novembre 2008StatutMembreDernière intervention18 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és15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 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és7Date d'inscriptionmercredi 5 novembre 2008StatutMembreDernière intervention18 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
??????????????
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 8 nov. 2008 à 18:24
La convertion décimal -> BCD et très simple, tu prend chaque chiffre et tu le converti comme si tu passais de l'hexa en binaire :
arkaye
Messages postés7Date d'inscriptionmercredi 5 novembre 2008StatutMembreDernière intervention18 novembre 2008 8 nov. 2008 à 00:22
Dim s As String
Dim x, n As Integer
x = Console.In.ReadLine()
s = ""
Do
n = x mod 2
x = x \ 2
s = n & s
Loop Until x = 0
Console.Out.WriteLine(s)
Console.In.Read()
salut l'ami ce programme convertie du décimal vers binaire tu px le modifier pour qu'il converti au BCD
c'est urgent ou demain je perd mon poste
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 8 nov. 2008 à 00:00
J'ai trouvé une version du programme qui dormais dans mes dossiers, je ne suis pas sûr de son intégrité.
Tu peux profiter de la mise à jour afin de traduire.
arkaye
Messages postés7Date d'inscriptionmercredi 5 novembre 2008StatutMembreDernière intervention18 novembre 2008 7 nov. 2008 à 23:36
slt l'ami c'est urgent
j'ai besoin vraimment de ce programme en vb.net
plz svp fais moi cette tradiction en vb.net
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 7 nov. 2008 à 19:29
Bonjour, Arkaye,
Je ne peux te garantir une réponse dans les - de 24/48h, car c'est très vieux (le codage me fait peur :s ).
Précise moi si tu veux quand même que j'essaye.
Cordialement.
Nicolas.
arkaye
Messages postés7Date d'inscriptionmercredi 5 novembre 2008StatutMembreDernière intervention18 novembre 2008 7 nov. 2008 à 17:29
j'utilise le VB.net (2008)
j'arrive pas a calculer vs pouvez me l'envoier comme console svp
j'att ta reponse si c'etais pas ds ce jour ne me l'envois pas
merci
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 3 sept. 2007 à 17:13
Non, tu prend chaque chiffre décimal et tu le convertit indépendamment :
81(10)=1000 0001(BCD)
8(10)=1000
1(10)=0001
cheMoor
Messages postés20Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention13 mai 2009 3 sept. 2007 à 11:24
Excuse moi, je pense qu'il faut d'abord le mettre en Hexadécimal:
car 81(10)=0101 0001
et 81(16)=1000 0001
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 3 sept. 2007 à 08:17
Pour convertir un nombre en BCD, il faut d'abord le mettre en décimal, puis prendre chaque chiffre et le convertir seul.
exemple :
0x51 81 (10) 1000 0001
cheMoor
Messages postés20Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention13 mai 2009 1 sept. 2007 à 16:03
salut merci pour le reponse:
si j'ai bien compris le BCD s'applique sur les digits.
le caractère '0' son code ASCII= 0x30
le caractère '1' son code ASCII= 0x31
le caractère '2' son code ASCII= 0x32
le caractère '3' son code ASCII= 0x33
le caractère '4' son code ASCII= 0x34
..
le caractère '9' son code ASCII= 0x39
Donc les deux octets "55"= 0x35;0x35 la présentation en BCD sera 55 qui nous donne le caractère='U'.
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 31 août 2007 à 17:32
Exemple :
123456789 (10)
donne
0001 0010 0011 ... 1001
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 31 août 2007 à 17:31
Binaire codé Décimal : simplement les valeurs Hexa de 0 à 9 sans le reste, c'est surtout pour les afficheurs 7 seguements (ceux tout simple).
cheMoor
Messages postés20Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention13 mai 2009 31 août 2007 à 17:28
Bravo,
j'ai une question :
c'est koi BCD?
Constant93
Messages postés38Date d'inscriptionsamedi 22 janvier 2005StatutMembreDernière intervention 4 août 2007 9 juin 2007 à 00:05
Bravo.
Tiens, ton commentaire !
non, je blague
10/10, c'est ce qu'il me fallait !
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 8 mai 2004 à 16:12
Bon la note OK, mais les commentaires !!!!!!
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 15 janv. 2004 à 12:51
22 déc. 2015 à 09:21
9 nov. 2008 à 23:25
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)
9 nov. 2008 à 23:08
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()
8 nov. 2008 à 21:50
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.
8 nov. 2008 à 20:02
???????????
comment on vas prendre chaque nombre seul
et on entre un nombre se compose de plusieur chifres
??????????????
8 nov. 2008 à 18:24
9876543210(10) -> 1001 1000 0111 0110 0101 0100 0011 0010 0001 0000 (BCD)
Comme
9876543210(16) -> 1001 1000 0111 0110 0101 0100 0011 0010 0001 0000 (2)
C'est un traitement de chaine simple.
8 nov. 2008 à 00:22
Dim x, n As Integer
x = Console.In.ReadLine()
s = ""
Do
n = x mod 2
x = x \ 2
s = n & s
Loop Until x = 0
Console.Out.WriteLine(s)
Console.In.Read()
salut l'ami ce programme convertie du décimal vers binaire tu px le modifier pour qu'il converti au BCD
c'est urgent ou demain je perd mon poste
8 nov. 2008 à 00:00
Tu peux profiter de la mise à jour afin de traduire.
7 nov. 2008 à 23:36
j'ai besoin vraimment de ce programme en vb.net
plz svp fais moi cette tradiction en vb.net
7 nov. 2008 à 19:29
Je ne peux te garantir une réponse dans les - de 24/48h, car c'est très vieux (le codage me fait peur :s ).
Précise moi si tu veux quand même que j'essaye.
Cordialement.
Nicolas.
7 nov. 2008 à 17:29
j'arrive pas a calculer vs pouvez me l'envoier comme console svp
j'att ta reponse si c'etais pas ds ce jour ne me l'envois pas
merci
3 sept. 2007 à 17:13
81(10)=1000 0001(BCD)
8(10)=1000
1(10)=0001
3 sept. 2007 à 11:24
car 81(10)=0101 0001
et 81(16)=1000 0001
3 sept. 2007 à 08:17
exemple :
0x51 81 (10) 1000 0001
1 sept. 2007 à 16:03
si j'ai bien compris le BCD s'applique sur les digits.
le caractère '0' son code ASCII= 0x30
le caractère '1' son code ASCII= 0x31
le caractère '2' son code ASCII= 0x32
le caractère '3' son code ASCII= 0x33
le caractère '4' son code ASCII= 0x34
..
le caractère '9' son code ASCII= 0x39
Donc les deux octets "55"= 0x35;0x35 la présentation en BCD sera 55 qui nous donne le caractère='U'.
31 août 2007 à 17:32
123456789 (10)
donne
0001 0010 0011 ... 1001
31 août 2007 à 17:31
31 août 2007 à 17:28
j'ai une question :
c'est koi BCD?
9 juin 2007 à 00:05
Tiens, ton commentaire !
non, je blague
10/10, c'est ce qu'il me fallait !
8 mai 2004 à 16:12
15 janv. 2004 à 12:51