Conversion binaire en décimalRésolu

Question

Bonjour tout le monde.
J'ai un soucis avec l'un de mes codes, je n'arrive pas a trouvé pourquoi ca ne fonctionne pas.
J'ai donc un textbox(txtBinaire) ou j'entre un mot binaire de 8 bits.
J'ai un bouton qui va vérifié si la longueur est bien de 8 et qu'il n'y a que des 0 et des 1.
Mais voila, c'est au niveau de la conversion, je connais le binaire donc je sais la méthode pour convertir en décimal, mais je n'arrive pas a l'adapter pour mon prog.
voila le code :
[code]
public function Conversion()

Convert= vbNull
For i = 0 To 7
     Convert= Convert + (Val(Mid(txtBinaire, 8 - i, 1)) * (2 ^ i))
Next i

end function
[code]

Si quelqu'un sais ou j'ai fais une erreur, merci de me le dire :)

AigleNoir  ?-)

cs_CanisLupus · Accepted Answer

Exact Gobillot

Sauf que je dirais mieux dans ce cas :

On colle cette fonction dans un module et on l'appelle par :

ex : msgbox conversion(txtBinaire)
ou
TaVariableByte=conversion(txtBinaire)

Public Function Conversion(s as string) As Byte
Dim convert As Byte
Dim i As Integer
convert = 0
For i = 0 To 7
convert = convert + (Val(Mid(s, 8 - i, 1)) * (2 ^ i))
Next i
Conversion = convert
End Function


Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

cs_CanisLupus · Answer

Salut,
Initialise ta variable convert à 0 plutôt que vbnull et ça devrait marcher.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des galnds

Gobillot · Answer

faut définir tes zones

Public Function Conversion() As Byte
    Dim convert As Byte
    Dim i       As Integer
    convert = 0
    For i = 0 To 7
        convert = convert + (Val(Mid(Txtbinaire, 8 - i, 1)) * (2 ^ i))
        Next i
    Conversion = convert
End Function

DDelec24 · Answer

Je vous remerci tout deux de m'avoir aidé.
Bon j'ai pris la dernière réponse comme "accepté" soit pas jalous Gobillot  :-p 

Encore merci, tout ca a cause d'erreur de déclaration...

CIaOo

AigleNoir  ?-)

Vb Lover · Answer

ça n'a rien à voir, mais dans la question initiale, il y a 2 fois la même faute de "é" à la place de "er", ainsi que "a" à la place de "à", ...
Je sais que pour la plupart de développeurs, ça n'est pas important, mais c'est la base du français tout de même ! (d'ailleurs, on est tenu de vérifier son orthographe et sa grammaire sur ce site, c'est ce que veut le webmaster).

Donc si vous pourriez essayé de faire un effors !!!  :big) 

Les bugs, c'est terrible, il y en a même dans les commentaires !

VB Lover

cs_CanisLupus · Answer

MDR Vb Lover, et c ki ortograf et sa grand-mère ?  8-) 

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

DDelec24 · Answer

Salut
je suis d'accord avec toi Vb lover, moi non plus je n'aime pas sur mon forum ou mon site voir des fautes.
Mais un accent sur le "à" c'est pas très grave qu'a meme (j'ai oublié j'accent circonflèxe ^^)
Je n'écrit pas en texto, c'est largement lisible à mon gout
donc faudrais pas tourné a la paranoïa pour deux fautes d'inattention!

Amicalement,

AigleNoir  ?-)

Gobillot · Answer

Vb Lover >
Donc si vous pourriez essayé de faire un effors !!! 

Je suppose qu'il sagit de fautes de frappe. Ca peut arriver à tout le monde. Surtout que beaucoup de gens ici sont pas français !
Néanmoins je suis d'accord avec toi, certains exagèrent un peu.

Cordialement.
Daniel