Discussion :

[lollipop69]

Bonjour,

Etant débutant en VB, je rencontre un petit soucis au niveau d'un cast à faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
  Dim valeurhexa(100) As String
            Dim reshexa As Integer
            Dim ihexa As Integer
 
            valeurhexa = Split(valeurdep.Text, " ")
            For ihexa = 0 To UBound(valeurhexa, 1)
 
                Select Case valeurhexa(ihexa)
                    Case "A"
                        reshexa = reshexa + ((10 * 16) ^ ihexa)
                    Case "B"
                        reshexa = reshexa + ((11 * 16) ^ ihexa)
                    Case "C"
                        reshexa = reshexa + ((12 * 16) ^ ihexa)
                    Case "D"
                        reshexa = reshexa + ((13 * 16) ^ ihexa)
                    Case "E"
                        reshexa = reshexa + ((14 * 16) ^ ihexa)
                    Case "F"
                        reshexa = reshexa + ((15 * 16) ^ ihexa)
                End Select
                reshexa = reshexa + ((valeurhexa(ihexa) * 16) ^ ihexa)
            Next
            txtbox_value_hexa.Text = reshexa

Comme vous le devinerai, il s'agit de convertir hexa / décimal, et il faudrait faire un cast pour que valeurhexa() soit converti en entier, pour que l'opération puisse se faire.

Merci de vos éclairsissements

[SfJ5Rpw8]

B'soir.

si ton nombre hexadécimal comporte 100 caractères ...

Code :

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

Dim valeurhexa(100) As String

j'ai pas de solution immédiate pour toi....

par contre si c'est tu traite des entiers de 16 bits :

Code :

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

 Dim ihexa As Integer

Tu peu faire cela avec val :

Code :

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

1
2
3
4
5
6
 
Private Sub Command1_Click()
stHexa = "AB"
iHexa = Val("&h" & stHexa)
MsgBox iHexa & " = " & Hex(iHexa)
End Sub