Soyez le premier à donner votre avis sur cette source.
Snippet vu 40 839 fois - Téléchargée 37 fois
'Passez ces lignes de code dans un module : '-------------------------------------------------------- Function conv_dec_bin(dec As Long) As String 'Déclaration des variables Dim dec2 As Long Dim Result As String 'Début du test Do While dec > 0 'Tant que la variable << dec >> est superieur à 0 dec2 = Int(dec / 2) 'La variable << dec >> reçoit reçoit la parti entiere de << dec/2 >> conv_dec_bin = dec - (dec2 * 2) & conv_dec_bin ' le resultat de la fonction << conv_dec_bin >> reçoit le resultat de << dec - (dec2 * 2) >> dec = dec2 ' la Variable << dec >> reçoit la valeur de la variable << dec2 >> Loop ' Fin du test End Function Function conv_dec_oct(dec As Long) As String 'Déclaration des variables Dim dec2 As Long Dim Result As String 'Début du test Do While dec > 0 'Tant que la variable << dec >> est superieur à 0 dec2 = Int(dec / 8) 'La variable << dec >> reçoit reçoit la parti entiere de << dec/8 >> conv_dec_oct = dec - (dec2 * 8) & conv_dec_oct 'le resultat de la fonction << conv_dec_bin >> reçoit le resultat de << dec - (dec2 * 8) >> dec = dec2 'la Variable << dec >> reçoit la valeur de la variable << dec2 >> Loop 'Fin du test End Function Function conv_dec_hex(dec As Long) As String 'Déclaration des variables Dim dec2 As Long 'dec2 : Valeur intermedaire (dec/16) Dim Hexa As String 'Hexa : Caractere de Base 16 (1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, E, F) 'Initialisation des variables Hexa = "" 'Initialisation du Test Do While dec > 0 'Tanque dec > 0 dec2 = Int(dec / 16) 'dec2 reçoit If dec - (dec2 * 16) = 10 Then ' Si dec - (dec2 * 16) = 10 Hexa = "A" 'Hexa reçoit le caractere "A" ElseIf dec - (dec2 * 16) = 11 Then 'Si dec - (dec2 * 16) = 11 Hexa = "B" 'Hexa reçoit le caractere "B" ElseIf dec - (dec2 * 16) = 12 Then 'Si dec - (dec2 * 16) = 12 Hexa = "C" 'Hexa reçoit le caractere "C" ElseIf dec - (dec2 * 16) = 13 Then 'Si dec - (dec2 * 16) = 13 Hexa = "D" 'Hexa reçoit le caractere "D" ElseIf dec - (dec2 * 16) = 14 Then 'Si dec - (dec2 * 16) = 14 Hexa = "E" 'Hexa reçoit le caractere "E" ElseIf dec - (dec2 * 16) = 15 Then 'Si dec - (dec2 * 16) = 15 Hexa = "F" 'Hexa reçoit le caractere "F" Else: Hexa = dec - (dec2 * 16) 'Sinon Hexa reçoit dec - (dec2 * 16) End If ' Fin de la boucle Si conv_dec_hex = Hexa & conv_dec_hex 'conv_dec_hex reçoit la valeur de la variable Hexa ajouté à la Valeur deja presente dans Result dec = dec2 'dec reçoit la valeur de la variable dec2 Hexa = "" ' Mise à 0 de la varible Hexa Loop End Function 'Appel de la fonction : '--------------------------- 'Convertir Decimal en Hexadécimal : 'conv_dec_hex([valeur_a_convertir]) 'Convertir Decimal en Binaire : 'conv_dec_bin([valeur_a_convertir]) 'Convertir Decimal en Octale : 'conv_dec_oct([valeur_a_convertir])
http://www.vbfrance.com/code.aspx?ID=18999
merci d'avance
Voila comment j'y aie repondu
@++ nairolf
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.