Discussion :

[Miska59]

Bonjour,

je rentre une valeur en décimale que je convertir en hexadécimale.
exemple : 18985621 ça me donne en little endian hexadécimale : 95 B2 21 01
je voudrais en sortie ce me donne dans des textbox : &95 &b2 &21 &01

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        Dim value = reverse(Hex(TextBox1.Text))
        Dim raw As Byte() = New Byte((value.Length / 2) - 1) {}
        For i = 0 To raw.Length - 1
            raw(i) = value.Substring(i, 2)
        Next i
        TextBox2.Text = "&H" & raw(0) '&95
        TextBox3.Text = "&H" & raw(1) '&b2
        TextBox4.Text = "&H" & raw(2) '&21
        TextBox5.Text = "&H" & raw(4) '&01
    End Sub

il m'affiche une erreur : La conversion de la chaîne "5B" en type 'Byte' n'est pas valide.
pouvez-vous me dire comment corriger cela car je voudrais en sortie recuperer les offsets dans des textbox?
Merci de votre réponse,

[Phil Rob]

Bonjour,

Je crois que le problème vient de la fonction Reverse. J'en ai écrit une autre.

Vois la vidéo : https://www.dropbox.com/s/2461pl62gi...kaHEX.mp4?dl=0

Je joins le projet de la vidéo pour que tu puisses tester : ChaineHexaMiska59.zip .

[Miska59]

Bonjour Phil Rob,

merci de votre réponse,

j'avais oublier ajouter IndiceRaw dans raw. Encore 1 fois merci de votre aide.