Conversion Binaire-> hexadécimale et décimale -> hexadécimale

Bonjour ,

Je reviens avec mes conversions ; j'avais déjà posté pour une conversion hexadécimale ou décimale en binaire ; mais la :

Je cherche un code qui me permet de convertir une valeur BINAIRE en valeur décimale ou hexadécimale ;

et aussi un code pour convertir une valeur décimale en hexadécimale .

Je vise peut-être un peut haut non ?

Ce programme : HexaToDecimal me servira cet année en electro ( dialogue entre automates et/ou machines )

Merci
Je cherche aussi de mon côté .

Cordialement ,
Le réparateur de PC

re ,
J'ai trouvé ça ( très long ):

Code:

# Namespace convertion
#
# ''' <summary>
# ''' classe regroupant tout ce qui concerne le passage du décimal au binaire ou l'inverse
# ''' </summary>
# Public Class decimal_binaire
# ''' <summary>
# ''' renvoie le chiffre binaire correspondant a l'entier passé en paramètre
# ''' </summary>
# ''' <param name="dec">dec est le chiffre décimal (base 10) que l'on veut convertir</param>
# ''' <returns>retourne le chiffre binaire</returns>
# Public Shared Function convDecBin(dec As Integer) As String
#
#
# Dim res As String = ""
# Dim div As Integer
# Dim i As Integer
#
#
# Do
#
# div = 0
# i = dec
#
# While i <> 1 AndAlso i <> 0
# i -= 2
# div += 1
# End While
#
# res = Convert.ToString(dec - (2 * div)) + res
# dec = div
#
# Loop While dec <> 0
#
# Return res
# End Function
#
# ''' <summary>
# ''' convertit un nombre binaire en décimal
# ''' </summary>
# ''' <param name="binar">nombre binaire à convertir</param>
# ''' <returns>le nombre décimal convertit</returns>
# Public Shared Function convBinDec(binar As String) As Integer
# Dim taille As Integer = binar.Length
# Dim puissance As Integer = taille - 1
# Dim soustotal As Integer
# Dim total As Integer = 0
#
# If binar = "1" Then
# total = 1
# Else
# If binar = "0" Then
# total = 0
# Else
#
#
# Dim i As Integer = 0
# While i < taille
# If (puissance >= 0) AndAlso (binar(i) = "1"C) Then
#
# soustotal = maths.puissance(2, puissance)
#
#
# puissance -= 1
# total += soustotal
#
#
# Else
# puissance -= 1
# End If
#
# System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
# End While
# End If
#
#
# End If
# Return total
# End Function
# End Class
#
# ''' <summary>
# ''' classe regroupant tout ce qui concerne le passage du binaire à l'hexadécimal ou l'inverse
# ''' </summary>
# Public Class binaire_hexadecimal
#
# ''' <summary>
# ''' convertit un nombre binaire en hexadécimal
# ''' </summary>
# ''' <param name="binar">nombre binaire</param>
# ''' <returns>nombre hexadécimal</returns>
# Public Shared Function convBinHex(binar As String) As String
# Dim hexa As String = ""
# Dim taille As Integer = binar.Length
# Dim nb As Integer
# Dim bin As String
# Dim dec As Integer
# Dim j As Integer = 0
# Dim zero As Integer = taille Mod 4
#
# If zero > 0 Then
# Dim k As Integer = 1
# While k <= (4 - zero)
# binar = "0" + binar
# System.Math.Max(System.Threading.Interlocked.Increment(k),k - 1)
# End While
# End If
# If taille > 4 Then
# nb = (taille / 4) + 1
# Else
# nb = 1
# End If
#
# Dim i As Integer = 1
# While i <= nb
# bin = ""
# bin += binar.Substring(j, 4)
# j += 4
#
# dec = decimal_binaire.convBinDec(bin)
# Select Case dec
# Case 10
# hexa &= "A"
#
# Case 11
# hexa &= "B"
#
# Case 12
# hexa &= "C"
#
# Case 13
# hexa &= "D"
#
# Case 14
# hexa &= "E"
#
# Case 15
# hexa &= "F"
#
# Case Else
# hexa += dec
# End Select
# System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
# End While
#
# Return hexa
# End Function
#
# ''' <summary>
# ''' convertit un nombre Hexadécimal en binaire
# ''' </summary>
# ''' <param name="Hex">nombre Hexadécimal</param>
# ''' <returns>nombre binaire</returns>
# Public Shared Function convHexBin(Hex As String) As String
# Dim hexa As String
# Dim bin As String
# Dim binaire As String = ""
# Dim taille As Integer = Hex.Length
#
# Dim i As Integer = 0
# While i < taille
# hexa = Convert.ToString(Hex(i))
#
# bin = ""
# Select Case hexa
# Case "A"
# bin += decimal_binaire.convDecBin(10)
#
# Case "B"
# bin += decimal_binaire.convDecBin(11)
#
# Case "C"
# bin += decimal_binaire.convDecBin(12)
#
# Case "D"
# bin += decimal_binaire.convDecBin(13)
#
# Case "E"
# bin += decimal_binaire.convDecBin(14)
#
# Case "F"
# bin += decimal_binaire.convDecBin(15)
#
# Case Else
# bin += decimal_binaire.convDecBin(Convert.ToInt32(hexa))
# End Select
# If bin.Length < 4 Then
# Dim j As Integer = bin.Length
# While j < 4
# bin = "0" + bin
# System.Math.Max(System.Threading.Interlocked.Increment(j),j - 1)
# End While
# End If
# bin &= " "
# binaire += bin
# System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
# End While
#
# Return binaire
# End Function
# End Class
#
# ''' <summary>
# ''' classe regroupant tout ce qui concerne le passage du décimal à l'hexadécimal ou l'inverse
# ''' </summary>
# Public Class decimal_hexadecimal
#
# ''' <summary>
# ''' convertit un chiffre décimal en Hexadécimal
# ''' </summary>
# ''' <param name="dec">décimal à convertir</param>
# ''' <returns>nombre Hexadécimal</returns>
# Public Shared Function convDecHex(dec As Integer) As String
# Return binaire_hexadecimal.convBinHex(decimal_binaire.convDecBin(dec))
# End Function
#
#
# ''' <summary>
# ''' convertit un nombre Hexadécimal en décimal
# ''' </summary>
# ''' <param name="hex">hexadécimal à convertir</param>
# ''' <returns>nombre décimal</returns>
# Public Shared Function convHexDec(hex As String) As Integer
# Return decimal_binaire.convBinDec(binaire_hexadecimal.convHexBin(hex).Replace(" ", ""))
# End Function
#
# End Class
# End Namespace

et ça ( plus court !! )

Code:

Dim DblNombre As Double
Dim strNombre As String
Dim intNombre As Integer
Dim sngNombre As Single
strNombre="060"

DblNombre = CDbl(strNombre) ' pour convertir Nombre en 2 Decimal
intNombre = CInt(strNombre) ' pour convertir en Integer
sngNombre = CSng(strNombre) 'pour convertir en Single

Range("A1")=DblNombre 'ou = intNombre, CsngNombre

et ça aussi :

Code:

Public Function FromBin(ByVal Number As String) As Integer
    Dim pos As Integer = 1, l As Integer = Number.Length
    Dim Result As Integer, Current As Byte
    Do
        Current = Conversion.Int(Mid(Number, pos, 1))
        Result += (Current * 2 ^ (l - pos))
        pos += 1
    Loop While pos <= l
    Return Result
End Function
Public Function ToBin(ByVal Number As Integer) As String
    Dim Rest As Integer, Result As String = ""
    Do
        Rest = Number Mod 2
        Number = Number \ 2
        Result = Rest.ToString() & Result
    Loop While Number > 0
    Return Result
End Function


Si ces codes sont BON , COMMENT les utiliser ???????

OUPS , désolé j'ai posté au movaise endroi !!!!!!!!!!!!!

Merci ,
Cordialement ,
Le réparateur de PC

re ,

J'ai essayé les 3 codes mais aucun ne fonctionne !

Pouvez-vous me dire si je peut utiliser ces codes là en inversant l'ordre des variable :
https://forumvelersoftware.bbactif.com/debutants-f5/convertir-une-valeur-hexadecimale-en-binaire-t210.htm

Merci !

N'hésitez PAS a me dire si ce sujet est doublon avec le lien ci dessus !!!!!!

Cordialement ,
Le réparateur de PC

re ,

PERSONNE ??????????????????????????????????

SVP !!!!

cordialement ,
Le réparateur de PC