OVH Cloud OVH Cloud

De décimal en binaire ! !

10 réponses
Avatar
Christophe
Bonjour à tous,

Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
J'aimerai lire dans un autre objet text la valeur correspondante en Binaire.

Merci à vous de me donner....si possible.... le code correspondant.

--
Merci pour vos réponses ! ! !

10 réponses

Avatar
Patrice Henrio
le valeur en binaire c'est la valeur en hexadécimale dans laquelle chaque
nombre hexadécimal est remplacé par sa chaîne en binaire sur 4 bits.
0="0000"
1="0001"


A="1010"

F="1111"


"Christophe" a écrit dans le message
de news:
Bonjour à tous,

Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
J'aimerai lire dans un autre objet text la valeur correspondante en
Binaire.

Merci à vous de me donner....si possible.... le code correspondant.

--
Merci pour vos réponses ! ! !


Avatar
Guy DETIENNE
Salut ;O)

Sur le site VBFRANCE :

CONVERSION DÉCIMAL BINAIRE ET INVERSE
http://www.vbfrance.com/code.aspx?ID$574

BINDECHEX
http://www.vbfrance.com/code.aspx?IDƒ38

VALEUR BINAIRE SANS CALCULS
http://www.vbfrance.com/code.aspx?ID30

RECHERCHE SUR VBFRANCE AVEC LE MOT-CLE 'binaire'
http://www.vbfrance.com/gma/source/binaire


Guy


"Christophe" a écrit dans le message
de news:
Bonjour à tous,

Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
J'aimerai lire dans un autre objet text la valeur correspondante en


Binaire.

Merci à vous de me donner....si possible.... le code correspondant.

--
Merci pour vos réponses ! ! !


Avatar
Fred
Dans son message
Christophe nous dit :

Bonjour à tous,

Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
J'aimerai lire dans un autre objet text la valeur correspondante en
Binaire.

Merci à vous de me donner....si possible.... le code correspondant.



Bonjour,
tu peux utiliser la fonction suivante :

8<---------------------------
Function ToBin(ByVal v As Long) As String
Dim s As String
s = ""
Do
If v Mod 2 = 0 Then
s = "0" & s
Else
s = "1" & s
End If
v = v 2
Loop While v > 0
ToBin = s
End Function
8<--------------------------------

La proposition de Patrice Henrio permet de le faire sans calcul, uniquement
par manipulation de chaînes de caractères mais à condition de transformer
d'abord ta valeur décimale en chaîne hexadécimale avec la fonction Hex.
Ensuite, il s'agit de substituer chacun des caractères de cette chaîne
hexadécimale par les quatre chiffres binaires correspondants selon le
principe qu'il expose. "0" -> "0000", "1"->"0001", etc ...

--
Fred
Avatar
LE TROLL
Salut, testé, il y a peut être plus court, mais ça
marche ici:

Sub Form_Load()
Dim bin(8) As String
Dim i As Long
Dim nb As Byte
Dim a
'
For i = 1 To 8
bin(i) = "0"
Next i
a = InputBox("Saisie un nombre entre 0 et 255, puis
valider")
nb = CByte(a) ' accepte 0 à 255
'
If nb > 127 Then: bin(8) = "1": nb = nb - 128
If nb > 63 Then: bin(7) = "1": nb = nb - 64
If nb > 31 Then: bin(6) = "1": nb = nb - 32
If nb > 15 Then: bin(5) = "1": nb = nb - 16
If nb > 7 Then: bin(4) = "1": nb = nb - 8
If nb > 3 Then: bin(3) = "1": nb = nb - 4
If nb > 1 Then: bin(2) = "1": nb = nb - 2
If nb = 1 Then: bin(1) = "1"
a = ""
For i = 8 To 1 Step -1
a = a & bin(i)
Next i
MsgBox a
End Sub
---------------------

"Christophe" a écrit
dans le message de news:

Bonjour à tous,

Je rentre dans un objet text une valeur décimal....Jusque
là ca va ! !
J'aimerai lire dans un autre objet text la valeur
correspondante en Binaire.

Merci à vous de me donner....si possible.... le code
correspondant.

--
Merci pour vos réponses ! ! !


Avatar
LE TROLL
Remarquable ta démonstration kamarade :o)

Tu te souviens d'hier, une sorte de vase de Soisson
(j'ai pas dit "poisson" ???

Tu aurais dû continuer le cours, le poids fort, le poids
faible, le quartet, l'octet, le mot, le double mot, le
codage négatif...
Le codage hexadécimal, passer de décimal en hexadécimal pour
transposer en binaire, tu as même oublié qu'on pouvait
passer par l'alphanumérique, le sexagésimal et l'octal avant
d'aller au binaire, remarquable, je suis aveuglé d'un tel
savoir, c'est pas étonnant que je ne comprends rien a tes
réponses, t'as pas le cerveau qui chauffe dès fois, sinon
mets un peu de glaçons, si si, des glaçons froids hein...

En attendant, si MicroSoft avait eu la bonté de faire
une fonction "DecBin" et "BinDec", ce serait mieux, comme un
"modif" pour les fichier, bonjour chez toi kamarade, et
n'oublies pas de manger de la truie et de boire du rouge,
pour soutenir nos paysans :o)
-------------------


"Patrice Henrio" a écrit dans
le message de news:
%23o$
le valeur en binaire c'est la valeur en hexadécimale dans
laquelle chaque nombre hexadécimal est remplacé par sa
chaîne en binaire sur 4 bits.
0="0000"
1="0001"


A="1010"

F="1111"


"Christophe" a
écrit dans le message de news:

Bonjour à tous,

Je rentre dans un objet text une valeur décimal....Jusque
là ca va ! !
J'aimerai lire dans un autre objet text la valeur
correspondante en Binaire.

Merci à vous de me donner....si possible.... le code
correspondant.

--
Merci pour vos réponses ! ! !






Avatar
Jean-Marc
"Fred" a écrit dans le message de
news:
Dans son message
Christophe nous dit :

> Bonjour à tous,
>
> Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
> J'aimerai lire dans un autre objet text la valeur correspondante en
> Binaire.
>
> Merci à vous de me donner....si possible.... le code correspondant.

Bonjour,
tu peux utiliser la fonction suivante :

8<---------------------------
Function ToBin(ByVal v As Long) As String
Dim s As String
s = ""
Do
If v Mod 2 = 0 Then
s = "0" & s
Else
s = "1" & s
End If
v = v 2
Loop While v > 0
ToBin = s
End Function
8<--------------------------------

La proposition de Patrice Henrio permet de le faire sans calcul,


uniquement
par manipulation de chaînes de caractères mais à condition de transformer
d'abord ta valeur décimale en chaîne hexadécimale avec la fonction Hex.
Ensuite, il s'agit de substituer chacun des caractères de cette chaîne
hexadécimale par les quatre chiffres binaires correspondants selon le
principe qu'il expose. "0" -> "0000", "1"->"0001", etc ...



J'ai justement posté une petite fonction dans ce sens il y a qq jours.
Je la redonne si ça peut aider:

Private Function cvrt_bin(n As Integer) As String
Dim s As String
Dim s_bin As String
Dim i As Integer
Dim v As Integer
Dim c As String
Dim t_bin(15) As String


t_bin(0) = "0000"
t_bin(1) = "0001"
t_bin(2) = "0010"
t_bin(3) = "0011"
t_bin(4) = "0100"
t_bin(5) = "0101"
t_bin(6) = "0110"
t_bin(7) = "0111"
t_bin(8) = "1000"
t_bin(9) = "1001"
t_bin(10) = "1010"
t_bin(11) = "1011"
t_bin(12) = "1100"
t_bin(13) = "1101"
t_bin(14) = "1110"
t_bin(15) = "1111"
s = Hex$(n)
For i = 1 To Len(s)
c = Mid$(s, i, 1)
If c >= "A" Then
v = 10 + Asc(c) - 65
Else
v = c
End If
s_bin = s_bin & t_bin(v)
Next i
cvrt_bin = s_bin
End Function



--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
Guy DETIENNE
Salut ;O)

Ta démonstration ne donne pas de solution de conversion en binaire que l'on
parle du décimal ou de l'hexadécimal...

Guy



"Patrice Henrio" a écrit dans le message de
news:%23o$
le valeur en binaire c'est la valeur en hexadécimale dans laquelle chaque
nombre hexadécimal est remplacé par sa chaîne en binaire sur 4 bits.
0="0000"
1="0001"


A="1010"

F="1111"


"Christophe" a écrit dans le


message
de news:
> Bonjour à tous,
>
> Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
> J'aimerai lire dans un autre objet text la valeur correspondante en
> Binaire.
>
> Merci à vous de me donner....si possible.... le code correspondant.
>
> --
> Merci pour vos réponses ! ! !




Avatar
Pierre Alexis [MVS]
Christophe a écrit :

Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
J'aimerai lire dans un autre objet text la valeur correspondante en Binaire.

Merci à vous de me donner....si possible.... le code correspondant.



Fonction de conversion générique valable pour toutes les bases :

http://faq.vb.free.fr/index.php?question‰

--
Pierre ALEXIS
Most Valuable Student (MVS)
Courriel & messenger :
Homepage : http://student.ulb.ac.be/~palexis/
Avatar
LE TROLL
T'as intérêt à passer plus de temps, parce que tu ne fous
pas grand chose (mea culpa) :o)
-----------

"Patrice Henrio" a écrit dans
le message de news:
%
Non bien sûr mais je ne savais quel était le niveau du
demandeur et je pensais qu'il savait écrire un nombre en
hexa en vb (je crois qu'il y a une fonction qui le fait
automatiquement) ensuite il suffit seulement de modifier
une chaîne de caractères.
De toutes façons, maintenant la solution a été donnée de
plusieurs manières.
La prochaine fois j'essaierai de passer plus de temps sur
la réponse.
salut.
"Guy DETIENNE" a écrit dans le
message de news:
Salut ;O)

Ta démonstration ne donne pas de solution de conversion
en binaire que l'on
parle du décimal ou de l'hexadécimal...

Guy



"Patrice Henrio" a écrit
dans le message de
news:%23o$
le valeur en binaire c'est la valeur en hexadécimale
dans laquelle chaque
nombre hexadécimal est remplacé par sa chaîne en binaire
sur 4 bits.
0="0000"
1="0001"


A="1010"

F="1111"


"Christophe" a
écrit dans le


message
de news:

> Bonjour à tous,
>
> Je rentre dans un objet text une valeur
> décimal....Jusque là ca va ! !
> J'aimerai lire dans un autre objet text la valeur
> correspondante en
> Binaire.
>
> Merci à vous de me donner....si possible.... le code
> correspondant.
>
> --
> Merci pour vos réponses ! ! !












Avatar
Patrice Henrio
Non bien sûr mais je ne savais quel était le niveau du demandeur et je
pensais qu'il savait écrire un nombre en hexa en vb (je crois qu'il y a une
fonction qui le fait automatiquement) ensuite il suffit seulement de
modifier une chaîne de caractères.
De toutes façons, maintenant la solution a été donnée de plusieurs manières.
La prochaine fois j'essaierai de passer plus de temps sur la réponse.
salut.
"Guy DETIENNE" a écrit dans le message de news:

Salut ;O)

Ta démonstration ne donne pas de solution de conversion en binaire que
l'on
parle du décimal ou de l'hexadécimal...

Guy



"Patrice Henrio" a écrit dans le message de
news:%23o$
le valeur en binaire c'est la valeur en hexadécimale dans laquelle chaque
nombre hexadécimal est remplacé par sa chaîne en binaire sur 4 bits.
0="0000"
1="0001"


A="1010"

F="1111"


"Christophe" a écrit dans le


message
de news:
> Bonjour à tous,
>
> Je rentre dans un objet text une valeur décimal....Jusque là ca va ! !
> J'aimerai lire dans un autre objet text la valeur correspondante en
> Binaire.
>
> Merci à vous de me donner....si possible.... le code correspondant.
>
> --
> Merci pour vos réponses ! ! !