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

Retour à la liste des fonctions