Convertisseur deci bin?? [Résolu]

Messages postés
1
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
15 mai 2006
- - Dernière réponse : claudelo
Messages postés
1
Date d'inscription
jeudi 25 mai 2006
Statut
Membre
Dernière intervention
30 mai 2006
- 30 mai 2006 à 09:25
Je cherche a savoir s'il y a une fction qui convertis les decimal en
binaire comme celle qui existe pour les decimaux vers les hexas (par
hex(nbr_deci) fct de visual studio.NET ??

C juste pr simplifier un code ki me semble bien trop tiré par les cheveux ....
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
1
Date d'inscription
jeudi 25 mai 2006
Statut
Membre
Dernière intervention
30 mai 2006
3
Merci
Public
Function DecToBin(DeciValue AsLong, Optional NoOfBits AsInteger = 8) _
AsString
'********************************************************************************
'* Name : DecToBin
'* Date : 2003
'* Author : Alex Etchells
'*********************************************************************************
Dim i AsInteger
'make sure there are enough bits to contain the number
DoWhile DeciValue > (2 ^ NoOfBits) - 1
NoOfBits = NoOfBits + 8
Loop
DecToBin = vbNullString
'build the string
For i = 0 To (NoOfBits - 1)
DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
Next i
EndFunction

Ce n'est pas une fonction intégrée mais bon ça peut servir
Ca n'est pas de moi et c'est en VB6:
Je l'ai trouvé ici :
http://www.developerfusion.co.uk/show/5430/

@+

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 133 internautes nous ont dit merci ce mois-ci

Commenter la réponse de claudelo