Subtract une valeur hexa

Bonjour, j'arrive pas à voir en subtract une valeur hexadécimal avec textbox3.lines.

exemple : 1b - 1 = 1a

voici le code :

Code:

---

1 2 3 4 5 6 7 8 9

Dim subtract As Integer = 0 Dim result As Integer = 0 For Each Line As String In TextBox3.Lines If Integer.TryParse(Line, Globalization.NumberStyles.HexNumber, Nothing, subtract) Then result -= subtract End If Next TextBox4.Text = Hex(result) End If

---

dans mon textbox3, j'ai ajouter : 1b
1

est le résulta l'affiche dans textbox4.
Pouvez-vous me dire comment puis je corriger cela car obtient une autre valeur : FFFFFFE4?
Merci d'avance.

Tu as deux problèmes.

Le premier est que tu commences à soustraire à partir de 0.
Ton algo fait 0-27-1 et trouve donc -28.

Le deuxième est que la conversion effectuée par Hex() considère que l'entier que tu lui passe n'est pas signé.
Pour une valeur négative, il faut donc faire "-" & Hex(Math.Abs(result)) ou encore $"-{Math.Abs(result):X}"