Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Kz decimal a hexadécimal ou binaire ou n'importe quel autre base que vous voulez

0/5 (4 avis)

Vue 3 124 fois - Téléchargée 163 fois

Description

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 ;-)

Codes Sources

A voir également

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.