Problème de convertion (asc, hex, &h) sous vb.net [Résolu]

Signaler
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
-
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
-
Bonsoir,

je cherche a convertir la lettre D afin d'obtenir la valeur 68.
Par quoi est remplacé le &h du VB6 ?
Par quoi est remplacé le Asc du VB6 ?

Voici mon code:
Dim rt As Byte
Dim rtVal As Integer
rt Conversion.Hex(Asc("D")) 'rt 44
rtVal = ????(rt)
'rtVal = 68 ^^

7 réponses

Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Je partage mes quelques progrès en la matière ^^

    Class StringHex
        Shared Property rtInteger As Int32
        Shared Property rtHexadecimal As String
        Shared Function ConvertEx(ByVal value As Object) As Object
            Try
                Dim rt As Object
                Select Case Convert.GetTypeCode(value)
                    Case TypeCode.String 'PSEUDO HEX to INT32
                        rtHexadecimal = value.ToString
                        rt = "&h" & CType(value, String)
                        rt = CByte(rt)
                        rtInteger = CType(rt, Int32)
                    Case TypeCode.Int32 'INT32 to HEX
                        rtInteger = CType(value, Int32)
                        rt = String.Format("{0:X}", value).ToUpper
                        rtHexadecimal = rt.ToString
                    Case Else
                        rt = Nothing
                End Select
                Return rt

            Catch ex As Exception
                MessageBox.Show(ex.Message, _
                                "Erreur Hexadecimal()", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            Return Nothing
        End Function
    End Class
    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim HEX_OBJ(1) As Object
        Dim HEX_BYTE(1) As Byte
        Dim HEX_INT(1) As Integer
        Dim ResultatXOR As Integer
        Dim InfoHex As String

        'Demonstration de conversion HEX vers Object, byte et integer
        'ID 0
        HEX_OBJ(0) = StringHex.ConvertEx("6B")
        HEX_BYTE(0) = CByte(StringHex.ConvertEx("6B"))
        HEX_INT(0) = CInt(StringHex.ConvertEx("6B"))
        'ID 1
        HEX_OBJ(1) = StringHex.ConvertEx("31")
        HEX_BYTE(1) = CByte(StringHex.ConvertEx("31"))
        HEX_INT(1) = CInt(StringHex.ConvertEx("31"))

        'L'hexa sert d'information visuelle , rien de plus, nous allons donc travailler sur du Integer
        ResultatXOR = HEX_INT(0) Xor HEX_INT(1)

        'Convertion du int en hex
        InfoHex = CStr(StringHex.ConvertEx(ResultatXOR))

        'Convertion uniquement a la sortie
        'Hexadecimal sert qu'a titre d'information de lecture
        MessageBox.Show("ENTRAINEMENT: " & StringHex.rtInteger & _
        Environment.NewLine & _
        "INDICATIF: " & InfoHex)
    End Sub
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Mégalol

Dim tDec As Decimal
tDec = CType(44, Decimal)
'tDec = 44D
Messages postés
540
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
1 février 2013
1
eh ben:
Convert.ToInt32("D"c)

devrait faire l'affaire..
Ce qui compte,ce n'est pas ce qu'on a mais plutôt ce que l'on fait avec ce qu'on a...

Visual Basic .Net is the best
and vb6.0
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
merci ^^
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Qui veut essayer de faire: 6B xor 31 ^^
Sur ma calculatrice sa fait 5A
Dans .net il me dis que 6B n'est pas un byte !
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
36
Tu veux probablement faire : &h6B xor &h31



[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Pour donner des idées avec ID 0 et ID 1 ^^

8 bytes :)
ID 0 à ID 7 = AH ou AL

16 bytes :)
ID 0 à ID 15 = AX

32 bytes :)
ID 0 à ID 29 = EAX