+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31106)
قلب سلسلة رموز - fouadhdfouad - 28-08-19
ماهي الدالة reverse string
ABCD
TO
CDAB
======================
8849
TO
4988
ارجو الانتباه لسلسلاة قبل الرد
RE: قلب سلسلة رموز - ابراهيم ايبو - 28-08-19
السلام عليكم اخي فؤاد
ضع مربع نص عدد2 و Button واكتب فيه هذا الكود
كود :
textbox2.Text = StrReverse(TextBox1.Text)عفوا اخي
تفضل اخي هذه اذا كانت اريع خانات
كود :
Dim kk() As Char = TextBox1.Text.ToCharArray()
TextBox2.Text = kk(2) & kk(3) & kk(0) & kk(1)RE: قلب سلسلة رموز - سعود - 28-08-19
PHP كود :
Text2.Text = Mid(Text1.Text, 3, 2)
Text2.Text = Text2.Text & Mid(Text1.Text, 1, 2)
RE: قلب سلسلة رموز - fouadhdfouad - 28-08-19
(28-08-19, 01:02 AM)ابراهيم ايبو كتب : السلام عليكم اخي فؤاد
ضع مربع نص عدد2 و Button واكتب فيه هذا الكود
وعند التشغيل اكتب ماتريد في التكست الاول لتظهر الجملة معكوسة في التكست الثانيكود :
textbox2.Text = StrReverse(TextBox1.Text)
عفوا اخي
تفضل اخي هذه اذا كانت اريع خانات
كود :
Dim kk() As Char = TextBox1.Text.ToCharArray()
TextBox2.Text = kk(2) & kk(3) & kk(0) & kk(1)
(28-08-19, 01:13 AM)سعود كتب :kk(2) & kk(3) & kk(0) & kk(1)برضو حيمشي مع الدوت نتPHP كود :
Text2.Text = Mid(Text1.Text, 3, 2)
Text2.Text = Text2.Text & Mid(Text1.Text, 1, 2)
شكرا لردكم الجميل
ولكن اذا كانت السلسلة طويلة
RE: قلب سلسلة رموز - ابراهيم ايبو - 28-08-19
السلام عليكم اخي الكريم
مهما كانت السلسلة طويلة المهم كيف تريد ظهورها والان لديك طريقتين
يتوجب عليك فهم الاكواد وتجرب بنفسك على سلسلة اطول قليلا وهكذا