منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مشكله في تحويل الهكس الى العربيه او العكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكله في تحويل الهكس الى العربيه او العكس (/showthread.php?tid=10853)

مشكله في تحويل الهكس الى العربيه او العكس - qadar elzaman - 04-12-14

  • بسم الله الرحمن الرحيم





  • عملت برنامج بسيط  hex to string  والعكس



  • البرنامج في مشكله هيا ان كتبت  كلمه عربي و اردت تحويلها الى الهكس يظهر لي 3f  متكرره 



  • وان اردت ارجاعها تظهر لي علامات سؤال...





  • المهم اريد كود او حل للمشكله





  • ملاحظه::: اريد مبدأ عمل مثل هذا الموقع (http://chxo.com/scripts/hex2string.php) في البرنامج


RE: مشكله في تحويل الهكس الى العربيه او العكس - sooriaty03 - 05-12-14

السلام عليكم ورحمة الله وبركاته

تفضل أخي هذا هو الكود ولكن ستحتاج إلى مربعي نص وزرين


PHP كود :
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Byte() = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)
        For Each V As Byte In x
            TextBox2.Text &= Hex(V) & " "
        Next
        TextBox2.Text = TextBox2.Text.Trim
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim HexArray As String() = TextBox2.Text.Split(" ")
        Dim X() As Byte = (From HexString In HexArray Select CByte("&H" & HexString)).ToArray
        MsgBox(System.Text.Encoding.UTF8.GetString(X))
    End Sub
End Class 


لاحظ أنني قمت باختيار الترميز UTF-8 وذلك لحل أي مشكلة بسبب اختلاف اللغة...


بالتوفيق

RE: مشكله في تحويل الهكس الى العربيه او العكس - qadar elzaman - 05-12-14

يسلمو هالادين,,,


الله يبارك فيك,,