Convertisseur deci bin??
Résolu
minusm
Messages postés
1
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
15 mai 2006
-
15 mai 2006 à 20:18
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
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
1 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
30 mai 2006 à 09:25
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/
@+
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/
@+