rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Conversion hex/dec en vb

kamel_bxz, le samedi 16 février 2008 à 15:34:26
Bonjour,
je veux deux fonction de conversion en VB6
-conversion hexa/dec
-conversion hexa/bin
merci
Configuration: Windows Vista
Internet Explorer 7.0
Répondre à kamel_bxz  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Polux31, le samedi 16 février 2008 à 16:47:01
google est ton ami ... demande lui donc
Répondre à Polux31

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Ouneufe, le mercredi 14 mai 2008 à 14:36:00
Google renvoie à ta réponse surfaite, Pollux.
Répondre à Ouneufe

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Polux31, le mercredi 14 mai 2008 à 14:49:23
la boucle est bouclée ;o))
«Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau
Répondre à Polux31

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Celestus, le mardi 10 juin 2008 à 21:03:36
Polux31, tu es une merde.
Ce genre de réponses n'apportent rien et ne sont que le reflet de ta pitoyable intelligence.
Va mourir.


Voici les fonctions que j'utilise :

Function hexadecimal_en_decimal(chaine_hexa)
resultat = 0
For i = Len(chaine_hexa) To 1 Step -1 ' Depuis i = longueur chaine à i = 1
longueur = Mid(chaine_hexa, i, 1) ' renvoit le (1) caractère à partir de la position i de la chaine (on commence donc par la fin)
position = Instr("0123456789ABCDEF", UCase(longueur))-1 ' On prend milieu, on met en majuscule au cas où on aurait écrit abcdef au lieu de ABCDEF,
' On met dans position la position du 1er caractère de milieu dans 0123456789ABCDEF et on retire 1 => on a converti de l'hexa en dec
If position >= 0 Then
valeur = position * (16 ^ (Len(chaine_hexa)-i)) ' Formule de maths de conversion
resultat = resultat + valeur
Else
resultat = 0
i = 0 ' Fin de la boucle en cas d'erreur
End If
Next
hexadecimal_en_decimal = resultat
End Function

Function decimal_en_hexadecimal(chaine_dec)
Do While chaine_dec > 0
chaine_dec_tmp = Int(chaine_dec/16)
If chaine_dec - (chaine_dec_tmp * 16) = 10 Then
caractere_hexa = "A"
Else If chaine_dec - (chaine_dec_tmp * 16) = 11 Then
caractere_hexa = "B"
Else If chaine_dec - (chaine_dec_tmp * 16) = 12 Then
caractere_hexa = "C"
Else If chaine_dec - (chaine_dec_tmp * 16) = 13 Then
caractere_hexa = "D"
Else If chaine_dec - (chaine_dec_tmp * 16) = 14 Then
caractere_hexa = "E"
Else If chaine_dec - (chaine_dec_tmp * 16) = 15 Then
caractere_hexa = "F"
Else
caractere_hexa = chaine_dec - (chaine_dec_tmp * 16)
End If
End If
End If
End If
End If
End If
decimal_en_hexadecimal = caractere_hexa & decimal_en_hexadecimal
chaine_dec = chaine_dec_tmp
caractere_hexa = ""
Loop
End Function

wscript.echo "FFFF ça fait : " & hexadecimal_en_decimal("FFFF")
wscript.echo "65535 ça fait : " & decimal_en_hexadecimal("65535")
Répondre à Celestus

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Polux31, le mercredi 11 juin 2008 à 08:55:30
MDRRR x100 ... c'est fort ... trop fort ...

Un mois pour sortir une c********e ... c'est pas ce qui est demandé .... et pour info, toi qui est si intelligent, et comme c'est mon jour de bonté (aujourd'hui j'instruis les ânes ...) pour convertir de décimale en hex, la fonction hex() le fait très bien ...

Prend des notes, je répéterai pas ... ok ...

Pour Hexa/Bin :
Function CONVHEXABIN(ByVal str As String) As String
'conversion hexadecimal en binaire
LONGUEUR = Len(str): H = 1
While H < LONGUEUR + 1
RES = Mid(str, H, 1)
If RES = "0" Then RES1 = "0000"
If RES = "1" Then RES1 = "0001"
If RES = "2" Then RES1 = "0010"
If RES = "3" Then RES1 = "0011"
If RES = "4" Then RES1 = "0100"
If RES = "5" Then RES1 = "0101"
If RES = "6" Then RES1 = "0110"
If RES = "7" Then RES1 = "0111"
If RES = "8" Then RES1 = "1000"
If RES = "9" Then RES1 = "1001"
If RES = "A" Then RES1 = "1010"
If RES = "B" Then RES1 = "1011"
If RES = "C" Then RES1 = "1100"
If RES = "D" Then RES1 = "1101"
If RES = "E" Then RES1 = "1110"
If RES = "F" Then RES1 = "1111"
CONVHEXABIN =CONVHEXABIN  & RES1
H = H + 1
RES1 = ""
Wend
End Function


Bin/DEC
Function CONVBINDEC(ByVal Str Variant) As Variant
'conversion binaire en décimal
LONGUEUR = Len(str): H = 1
HH = Val(LONGUEUR)
RES2 = 2 ^ (LONGUEUR - 1)
While HH > 0
RES = Mid(str, H, 1)
If RES = "1" Then RES1 = RES1 + RES2
RES2 = RES2 / 2
HH = HH - 1
H = H + 1
Wend
CONVBINDEC = RES1
End Sub


Et comme tu es super intelligent, je te laisse trouver comment faire pour hexa/dec ... «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau
Répondre à Polux31
Logiciels pertinents trouvés dans les téléchargements
Télécharger VB Editor 2.0VB Editor - Décompileur de fichiers exécutables compilés avec Visual Basic 5 ou 6 Catégorie: Visual Basic
Licence: Freeware/gratuit
Télécharger Free Mp3 Wma Converter 2.0Free Mp3 Wma Converter - Free Mp3 Wma Converter permet de convertir tout vos fichiers Mp3 , Wma , Ogg , AAC , m4a , mp4 , Ape , flac, Wav : ...Catégorie: Conversion
Licence: Freeware/gratuit
Télécharger DVD Decoder Pack 1.0DVD Decoder Pack - DVD Decoder Pack for windows XP (DVDpack.msi) est un package permettant de doter Windows 2000, Windows XP ou Windows Vista...Catégorie: Codecs
Licence: Freeware/gratuit
Télécharger AMV Convert Tool 3.68AMV Convert Tool - Le package MP3 Player Utilities contient notamment un lecteur permettant de lire les fichiers au format AMV ainsi qu'un...Catégorie: Edition vidéo
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « conversion hex/dec en vb »