Conversion Caractères en hexadécimale Fermé

Question

Bonjours à tous,

je but depuis quelque temps sur un problème de conversion : je souhaite saisir 3 caractères hexa par une texbox, et ensuite fabriquer une adresse sur deux octets (msb,lsb).
le contrôle de saisie des caractères hexa fonctionne,(If IsNumeric("&H" & Text1.Text)), le but est mettre les deux caractères de droite dans l'octet de poids faible (LSB) et le caractère de gauche dans l' octet de poids fort(msb).
en finale le format sera au maximum de 'FFF', donc 2 octets.
Exemple en binaire : FFF = 00001111 11111111 - 1FF = 00010000 11111111 - 00F = 00000000 00001111.
j'ai pris ces exemples pour ne pas qu'il y est de confusion dans les différents codes.
Ce programme est destiné à lire et écrire dans les paramètres de pic (16F690).
Pour la partie paramètres, je n'ai pas eu de difficulté parce que les adresses ne sont pas saisies mais écrites sous forme : &h01  & &hFF, le tout est transmis par une liaison série.

je vous mets le programme d'essai en cours (c'est un peu le fouillis)

Merci d'avance de vous pencher sur ce petit problème ( petite précision, je suis un débutant de 71 ans)

  Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged

Dim Variable_ASCII As String
        Dim Pnt_Hexa As Byte
        Dim Hexa_Code As Byte
        'Dim Tab_Hexa() As Byte = {"0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F"}
        'Dim Tab_Hexa() As Byte = {"&H0,&H1,&H2,&H3,&H4,&H5,&H6,&H7,&H8,&H9,&HA,&HB,&HC,&HD,&HE,&HF"}
        'Saisie 3 caractères Hexa.

dim (Number As Byte) As String

If IsNumeric("&H" & Text1.Text) Then ' Vérifie si Caractère Hexa Ok.
            TextBox4.Text = Text1.Text
            Variable_ASCII = TextBox4.Text.Substring(Num_Car, 1) 'Saisie le caractère courant OK.
            Num_Car = Num_Car + 1
            If AscW(Variable_ASCII) >= 65 Then ' Fabrique un pointeur pour le tableau hexa.
                Pnt_Hexa = AscW(Variable_ASCII) - 54 ' si lettre.
            Else
                Pnt_Hexa = AscW(Variable_ASCII) - 48 ' Si chiffre.
            End If
            Hexa_Code = Convert.ToByte(TextBox4.Text)
            'Hexa_Code = (Tab_Hexa, 0, 2)
        End If
    End Sub

         EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

Utilisateur anonyme · Answer

Bonsoir

je ne suis pas sûr d'avoir compris

Dim hexa As String = "ABC"
			Dim debut As String = hexa.Substring(0, 1)
			Dim fin As String = hexa.Substring(1)

Dim poidsFort As String = Convert.ToString(Integer.Parse(debut, System.Globalization.NumberStyles.HexNumber), 2)
			Dim poidsFaible As String = Convert.ToString(Integer.Parse(fin, System.Globalization.NumberStyles 

Sinon, on a tous débuté un jour.
Ce qui est judicieux c'est de commencer par les bases, ce cours est bien
https://plasserre.developpez.com/cours/vb-net/

D'autre part, tu mélanges VB6 et VB.Net, c'est déconseillé, voir ce petit article
https://codes-sources.commentcamarche.net/faq/11151-pourquoi-mon-code-vb6-vba-ne-marche-pas-en-vb-net

yg_be · Answer

bonsoir, moi je ferais ainsi, si je voulais vraiment saisir 3 caractères hexa par une texbox, et ensuite fabriquer une adresse sur deux octets (msb,lsb):
- convertir les trois caractères  hexa en trois nombres (de 0 à 15): c1, c2, c3
- Dim resultat As Integer
Dim c1 As Integer, c2 As Integer, c3 As Integer
resultat = ((c1 * 16) + c2) * 16 + c3

Conversion Caractères en hexadécimale

2 réponses

Discussions similaires