Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : BinToDec
Retourne un nombre d'après une chaîne binaire donnée en paramêtre.
(Consulté 18663 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

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr