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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
PublicClass Form1
Public LeMessage() AsChar
PrivateSub ReadToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadToolStripMenuItem.Click
Try
Dim Donnees AsString = "4D0065006E0074"
'MsgBox(Donnees)
Dim outputStr AsNew List(OfString)()
i = 0
ReDim LeMessage(Donnees.Length + 1)
While i < Donnees.Length
outputStr.Add(Donnees(i).ToString() + Donnees(i + 1).ToString())
Dim res AsString = Donnees(i).ToString() + Donnees(i + 1).ToString()
'On récupère la valeur décimal (Val) de l'hexa (&H)
Dim res1 AsInteger = Val("&H" & res)
'On la converti en ASCII
'MsgBox(Convert.ToChar(res1))
LeMessage(i) = Convert.ToChar(res1)
'MsgBox("RESULTAT : " & LeMessage(i).ToString)
i = i + 2
EndWhile
Dim final AsString = String.Join(" ", (DirectCast(outputStr.ToArray(), String())))
'MsgBox(final)
dim tHex AsString = ""
Dim TabStr() AsString = final.Split(" ")
ForEach str AsStringIn TabStr
Dim ress AsInteger = Val("&H" & str)
'MsgBox("Valeur décimal : " & ress)
Dim thecar AsChar = Convert.ToChar(ress)
'MsgBox("Valeur ASCII : " & thecar)
tHex = tHex & thecar.ToString
Next
MsgBox(tHex)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur")
EndTry
EndSub
|
Partager