الزر الاخر بما انك لم تطلبه تجاهلت الخطا وهو دمج الحروف بعد التحويل من الارقام الى الحروف

(01-11-20, 06:48 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
اذا انت مصمم على الفكرة هذي فقد اجهز مثال ان فهمتك بشكل صحيح.
اما لو احببت اي فكرة بالموضوع
#14

او اذا مستعجل على التجربة نفس الفكرة
صفحة تشفير و فك تشفير الحروف العربية بشكل مباشر

اعني نفس الفكرة  نعمل قائمتين من الحروف
ا ب ت ث ج ح خ
والاخرى العكس بكود يعكس القائمة الاولى
اكيد انك  فهمت فكرتي.

---

على السريع فكرة حسب المطلوب توجد قائمة بالحروف وقائمة بالارقام

PHP كود :

Public Class Form1
    Dim lst1 As String = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي"
    Dim lst2() As String = "0;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".Split(";")
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim txt As String = ""
        txt = TextBox1.Text
        TextBox1.Clear()
        Dim n As String = ""
        For Each h As String In txt
            If lst1.Contains(h) Then
                n &= lst2(lst1.IndexOf(h)) & " "
            Else
                n &= h
            End If
        Next
        TextBox1.Text = n
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim txt As String = ""
        txt = TextBox1.Text
        TextBox1.Clear()
        Dim n As String = ""
        For Each h As String In txt.Split(" ")
            If lst2.Contains(h) Then
                n &= lst1(lst2(h))
            Else
                n &= h
            End If
        Next
        TextBox1.Text = n
    End Sub
End Class 


الزر الاخر بما انك لم تطلبه تجاهلت الخطا وهو دمج الحروف بعد التحويل من الارقام الى الحروف

(02-11-20, 12:21 AM)سعود كتب : كود جمع الارقام:

PHP كود :

    Dim nu As Integer = 0
        For Each h As String In TextBox1.Text.Split(" ")
            If IsNumeric(h) Then
                nu += Val(h)
            End If
        Next
        t.Text = nu