منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة

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

أخواني الاعزاء في هذا الموقع المتميز اتمنى منكم مساعدتي

في حل هذة المشكلة التي واجهتني

وهي كتالي

لديا 2 تكست بوكس و 2 ازرار

اريد عند الضغط على الزر 1 ان يتم ترتيب محتويات التكست رقم 1 بشكل عشوائي او غير عسوائي اهم شي تغيير ذالك النص

بمعنى خلبطتها بأي طريقة معينة

ووضعة في التكست رقم 2

وعند الضغط على الزر رقم 2

يتم قراءة محتويات التكست رقم 2 والقدرة الى ارجاعة الى النص السابق الذي كان مكتوب في التكست رقم 1 ووضعة في التكست رقم 1

ولكم جزيل الشكر

ولمن لم يفهم السؤال

سأوحة ايضاً بطرقة أخرى

كتالي

اريد ان اقوم بتغيير

مثلاً الحرف رقم 3 الذي كان مكتوب في الجملة يتم نقلة الى رقم 7 او اي رقم اخر

وكذالك يتم تطبيق هذا الكود على جميع محتويات النص

ولكم جزيل الشكر اتمنى ان يكون السؤال واضح

هذه العملية تسمى "التشفير وفك التشفير"
Encryption and decryption
https://msdn.microsoft.com/en-us/library/ms172831.aspx

شكراً لك اخي العزيز على ردك
ولكني لا اريد استخدام تلك الطرق اريد طريقة بسيطة مفهومة اذا ممكن

مثلاُ قفز اول حرف في النص الى موقع اخر فقط

كود :

Private Function la5bet(ByVal str As String) As String

        Dim s As String = String.Empty

        Dim lst As New List(Of String)

        For Each t In str

            lst.Add(t)

        Next

        For a = lst.Count - 1 To 0 Step -1

            s &= lst.Item(a)

        Next

        Return s

    End Function

    Private Function arge3(ByVal str As String) As String

        Dim s As String = String.Empty

        Dim lst As New List(Of String)

        For Each t In str

            lst.Add(t)

        Next

        For a = lst.Count - 1 To 0 Step -1

            s &= lst.Item(a)

        Next

        Return s

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox2.Text = la5bet(TextBox1.Text)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox3.Text = arge3(TextBox2.Text)

    End Sub

الف شكر اخي العزيز
سعود
كود أكثر من رائع

ذكرني احد الاخوة الفضلاء بكود افضل

كود :

MsgBox(StrReverse("ABCDEFG"))

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد

سعود

محمد

سعود

محمد

سعود