[wolf1120]

عندى قيمة بالهيكس اريد تحويلها الى  text



اريد تحويل القيمة هذي :   3330334C3930363032334D53



الى







303L906023MS


استعملت
Dim HexValue As String
Dim Value As Integer

HexValue = Text2
Value = Val("&H" & HexValue)

  Value = Text1

ممكن تعديل علا الدالة

[wolf1120]

ليس في VB NET اريد الكود في فيجول بسيك 6


استعملت TEXT1

TEXT2

COMMAND1

[a.ahmed]

PHP كود :

Private Sub Command1_Click()
    Text2.Text = HexToString(Text1.Text)
End Sub 


PHP كود :

Function HexToString(ByVal v As String) As String
    Dim r As String, i As Integer, c As String
    For i = 1 To Len(v) - 1 Step 2
        c = ChrW(Val("&h" & (Mid$(v, i, 2))))
        r = r & c
    Next
    HexToString = r
End Function 


PHP كود :

Function StringToHex(ByVal v As String) As String
    Dim r As String, i As Integer, h As String
    For i = 1 To Len(v)
        h = hex(AscW((Mid$(v, i, 1))))
        r = r & IIf(Len(h) = 1, "0", "") & h
    Next
    StringToHex = r
End Function 


[wolf1120]

Thank you Ahmed