Code - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Retour à la liste des fonctions

Fonction : BinToDec
Retourne un nombre d'après une chaîne binaire donnée en paramêtre.
(Consulté 19502 fois.)

Public Function BinToDec(stNbBin As String) As Long
' Transforme un binaire en décimal (long)
Dim lgLen As Long, lgFor As Long
Dim dlResultat As Double, lgDeux As Double
Dim stTmp As String
lgLen = Len(stNbBin)
stTmp = StrReverse(stNbBin)
lgDeux = 1
' Prend les éléments de la chaîne un par un pour recomposer
' le nombre de départ
For lgFor = 1 To lgLen
dlResultat = dlResultat + CLng(Mid$(stTmp, lgFor, 1)) * lgDeux
' Multiplication par 2 (inverse de DecToBin qui divise par 2)
lgDeux = lgDeux * 2
Next lgFor
' Test pour les nombres négatifs (d'où l'emploi d'un "double"
' pour le calcul)
If dlResultat > 2147483647 Then
BinToDec = dlResultat - 4294967295#
Else
BinToDec = dlResultat
End If
End Function

Retour à la liste des fonctions