تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة
#1
بسم الله الرحمن الرحيم 
أخواني الاعزاء في هذا الموقع المتميز اتمنى منكم مساعدتي 
في حل هذة المشكلة التي واجهتني 

وهي كتالي 

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

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

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

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


ولمن لم يفهم السؤال 
سأوحة ايضاً بطرقة أخرى 
كتالي 

اريد ان اقوم بتغيير 
مثلاً الحرف رقم 3 الذي كان مكتوب في الجملة يتم نقلة الى رقم 7  او اي رقم اخر 
وكذالك يتم تطبيق هذا الكود على جميع محتويات النص 

ولكم جزيل الشكر اتمنى ان يكون السؤال واضح 
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:
#2
هذه العملية تسمى "التشفير وفك التشفير"
Encryption and decryption
https://msdn.microsoft.com/en-us/library/ms172831.aspx
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
شكراً لك اخي العزيز على ردك
ولكني لا اريد استخدام تلك الطرق اريد طريقة بسيطة مفهومة اذا ممكن

مثلاُ قفز اول حرف في النص الى موقع اخر فقط
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:
#4
كود :
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
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
الف شكر اخي العزيز
سعود
كود أكثر من رائع
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة: سعود
#6
ذكرني احد الاخوة الفضلاء بكود افضل
كود :
MsgBox(StrReverse("ABCDEFG"))
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار حول الكومبو بوكس المتألق9 2 75 أمس, 06:04 PM
آخر رد: مساعدة
  [VB.NET] سؤال بخصوص ALTER TABLE dubai.eig 5 107 25-02-17, 09:35 PM
آخر رد: مساعدة
  سؤال حول حماية المشروع Mohamed20 1 74 24-02-17, 12:59 PM
آخر رد: Master Hacker
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 5 138 23-02-17, 09:44 PM
آخر رد: فارس احمد السيد
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 48 20-02-17, 02:54 AM
آخر رد: ناصر شير
  [VB.NET] سؤال عن vb.net 2010 ناصر شير 5 91 20-02-17, 02:40 AM
آخر رد: ناصر شير
  سؤال حول تخزين الملفات abudawoodd 7 113 17-02-17, 11:59 PM
آخر رد: abudawoodd
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 56 14-02-17, 07:23 PM
آخر رد: dubai.eig
  [VB.NET] المشروع جاهز ولكن بحاجة لتعديل بسيط 3asfa~mdmra 2 149 14-02-17, 01:00 AM
آخر رد: 3asfa~mdmra
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 49 12-02-17, 06:19 PM
آخر رد: مساعدة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم