7 lignes pour convertir un binaire en décimal
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 728 fois - Téléchargée 43 fois
Contenu du snippet
un tout petit code pour un petit service
appeler la fonction en transmettant le valeur a convertir sous forme d'une String dans la variable "ChiffreBinaire" et récupérer la valeur dans "ConvertisseurBinToDec"
attention à la limite du type Long de "ConvertisseurBinToDec"
Source / Exemple :
Function ConvertisseurBinToDec(ChiffreBinaire As String) As Long Dim i As Integer For i = (Len(ChiffreBinaire) - 1) To 0 Step -1 ConvertisseurBinToDec = ConvertisseurBinToDec + (CInt(Right(ChiffreBinaire, 1)) * 2 ^ (29 - i)) ChiffreBinaire = Left(ChiffreBinaire, i) Next i End Function
Conclusion :
appeler la fonction en transmettant le valeur a convertir sous forme d'une String dans la variable "ChiffreBinaire" et récupérer la valeur dans "ConvertisseurBinToDec"
attention à la limite du type Long de "ConvertisseurBinToDec"
A voir également
- 7 lignes pour convertir un binaire en décimal
- Convertir un nombre binaire en décimal et inversement - Codes sources - C / C++ / C++.NET (Maths & Algorithmes)
- Python convertir binaire en decimal - Guide
- Convertir fichier binaire en texte - Forum - C / C++ / C++.NET
- Vb.net convert string to double decimal separator - Conseils pratiques - C# / .NET
- Tableau de conversion binaire octal décimal hexadécimal - Guide
Merci les gars, après avoir lu de nombreux exemple de conversion binaires-hexa-décimales dans tous les sens sur ce site, j'ai pu réaliser et surtout revoir mes conversions dans mes codes.
Bonne continuation
- Messages postés
-
962
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Membre
- Dernière intervention
- 2 août 2010
1En réutilisant tes noms de variables cela donnerait ceci :
Function ConvertirB2To10(ChiffreBinaire As string)
For i = 0 To Len(ChiffreBinaire ) - 1
ConvertirB2To10 = ConvertirB2To10 + Val(Mid(ChiffreBinaire , Len ChiffreBinaire ) - i, 1)) * 2 ^ i
Next i
Ce qui revient à la même chose ... mais en 3 lignes !!! :)
voici la version qui gère toutes les tailles de mot jusqu'à overflow du type de variable Long
Function ConvertisseurBinToDec(ChiffreBinaire As String) As Long
Dim Longueur As Integer
Dim i As Integer
Longueur = (Len(ChiffreBinaire) - 1)
For i = Longueur To 0 Step -1
ConvertisseurBinToDec = ConvertisseurBinToDec + (CInt(Right(ChiffreBinaire, 1)) * 2 ^ (Longueur - i))
ChiffreBinaire = Left(ChiffreBinaire, i)
Next i
End Function
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.