+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=11544)
سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة - محمد - 26-02-15
بسم الله الرحمن الرحيم
أخواني الاعزاء في هذا الموقع المتميز اتمنى منكم مساعدتي
في حل هذة المشكلة التي واجهتني
وهي كتالي
لديا 2 تكست بوكس و 2 ازرار
اريد عند الضغط على الزر 1 ان يتم ترتيب محتويات التكست رقم 1 بشكل عشوائي او غير عسوائي اهم شي تغيير ذالك النص
بمعنى خلبطتها بأي طريقة معينة
ووضعة في التكست رقم 2
وعند الضغط على الزر رقم 2
يتم قراءة محتويات التكست رقم 2 والقدرة الى ارجاعة الى النص السابق الذي كان مكتوب في التكست رقم 1 ووضعة في التكست رقم 1
ولكم جزيل الشكر
ولمن لم يفهم السؤال
سأوحة ايضاً بطرقة أخرى
كتالي
اريد ان اقوم بتغيير
مثلاً الحرف رقم 3 الذي كان مكتوب في الجملة يتم نقلة الى رقم 7 او اي رقم اخر
وكذالك يتم تطبيق هذا الكود على جميع محتويات النص
ولكم جزيل الشكر اتمنى ان يكون السؤال واضح
RE: سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة - سعود - 26-02-15
هذه العملية تسمى "التشفير وفك التشفير"
Encryption and decryption
https://msdn.microsoft.com/en-us/library/ms172831.aspx
RE: سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة - محمد - 26-02-15
شكراً لك اخي العزيز على ردك
ولكني لا اريد استخدام تلك الطرق اريد طريقة بسيطة مفهومة اذا ممكن
مثلاُ قفز اول حرف في النص الى موقع اخر فقط
RE: سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة - سعود - 26-02-15
كود :
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 SubRE: سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة - محمد - 27-02-15
الف شكر اخي العزيز
سعود
كود أكثر من رائع
RE: سؤال بسيط جداً في التكست بوكس ولكني لم استطع القيام بة - سعود - 01-03-15
ذكرني احد الاخوة الفضلاء بكود افضل
كود :
MsgBox(StrReverse("ABCDEFG"))