[silverlight]

شكرا لك علي جدول الأسكي

حسابات الاسكي نممكن تنفيذها باستخدام الكود التالي

مثلا للحرف الانجليزي A

كود :

       Dim chr As Char = "A"c
       Dim code As Integer = AscW(chr)
       Dim binary As String = String.Empty
       While code > AscW(Char.MinValue)
           Dim v As Integer = (code And 1)
           binary = v.ToString + binary
           code = code >> 1
       End While

و نفس الكود يمكن استخدامه مع الحروف العربية
مثلا للحرف العربي ب

PHP كود :

       Dim chr As Char = "ب"c
        Dim code As Integer = AscW(chr)
        Dim binary As String = String.Empty
        While code > AscW(Char.MinValue)
            Dim v As Integer = (code And 1)
            binary = v.ToString + binary
            code = code >> 1
        End While 


لكن ومن أجل بناء نظام ترميز من الصفر
نحتاج ان نقوم بعمل Pad لهذا البيناري تكست ونضع عدد معين من الأصفار علي يساره
وهذا لسهولة استرداد الحرف لاحقا بعد ترميزه

شكرا لمشاركتك اخي الفاضل