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 : DecToBin
Renvoie une chaîne représentant sous forme binaire le nombre donné en paramêtre.
(Consulté 18575 fois.)

Public Function DecToBin(lgNbDec As Long, lgBase As Long) As String
' Transforme un décimal en binaire
' La fonction complète avec des 0 (ou des 1 si négatif) en fonction de lgBase
' Retourne le résultat sous forme de chaîne
Dim stResultat As String
Dim
lgDec As Long, lgK As Long
' lgK à 1 permet de traiter les nombres négatifs
If lgNbDec < 0 Then lgK = 1 Else lgK = 0
' Dans tous les cas on travaille sur un nombre positif
lgDec = Abs(lgNbDec)
stResultat = ""
Do While lgDec <> 0
' Suivant le reste de la division par deux, on construit notre résultat
  stResultat = (lgDec + lgK) Mod 2 & stResultat
' Le calcul se fait suivant le principe de la division par 2 (décalage d'un bit)
 
  lgDec = lgDec \ 2
Loop
' On retourne une chaîne de la longueur voulue (suivant la base donnée)
DecToBin = Right$(String$(lgBase, CStr(lgK)) & stResultat, lgBase)
End Function

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