Convertit de décimal à n'importe quelle autre base : hexadécimal(16), binaire(2)
Je l'utilise pour convertir de décimal à hexadécimal quand je veux une couleur en particulier dans une page web
Source / Exemple :
Public Function ChangeBase(intNombre As Integer, intbase As Integer) As String
Dim strModulo As String 'nouveau chiffre
strModulo = ""
If intNombre >= intbase Then 'si le nombre est plus grand ou égal à la base
Do While intNombre >= intbase
Dim intmimi As Integer 'chavais pas comment appeler cette variable, LOL ;-)
intmimi = intNombre Mod intbase 'on fait un modulo
strModulo = fChange(intmimi) & strModulo
intNombre = Int(intNombre / intbase)
Loop
ChangeBase = fChange(intNombre) & strModulo
Else
ChangeBase = fChange(intNombre)
End If
End Function
'Fonction pour changer les nombres plus grand que 9 en lettres
Public Function fChange(Nbachanger As Integer) As String
Select Case Nbachanger
'Si vous voulez une base plus grande ajoutez un Case (base que vous voulez - 1)
Case 0
fChange = "0"
Case 1
fChange = "1"
Case 2
fChange = "2"
Case 3
fChange = "3"
Case 4
fChange = "4"
Case 5
fChange = "5"
Case 6
fChange = "6"
Case 7
fChange = "7"
Case 8
fChange = "8"
Case 9
fChange = "9"
Case 10
fChange = "A"
Case 11
fChange = "B"
Case 12
fChange = "C"
Case 13
fChange = "D"
Case 14
fChange = "E"
Case 15
fChange = "F"
End Select
End Function
Conclusion :
Bugs connus : aucun
Si vous voulez avoir une base plus grande que Hexadécimal (16) il vous suffit de rajouter des Case dans la fonction qui change les chiffres pour des lettres
Bientôt je publierai une version qui convertira de n'importe quelle base à décimal pour pouvoir finalement faire un soft de conversion de n'importe quelle à n'iimporte quelle base.
@+
Bonne prog ;-)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.