الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ترتيب قيم تصاعديا

بدأه & الأمل & في 27 مايو 2012 · 5 رد · 830 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أخوتى الكرام

عندي عدد سبعة تكست يوكس في كل منهم رقم يتغير في كل مرة انقر على زر اليوتن

كيف يمكن اجعل ترتيبهم يكون تنازليا

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

http://www.7ozn.com/files52/27_05_2012_9c5e13381013791.png

جزاكم الله خيرا

الملف

http://www.7ozn.com/do.php?filename=27_05_2012_9c5e13381013792.rar

#2

يا عظيم  يا رحمن يا رحيم أسألك بكل اسم هو لك سميت به نفسك او أنزلته في كتابك او علمته احد من خلقك او استأثرت به في علم الغيب وحدك أن تلطف بأخوتنا في سوريا وتهبهم يقينا يهون  به عليهم مصائب الدنيا وتعجل بنصرهم فانه لايعجزك.

#3

السلام عليكم

في حدث الزر الذي سيتم الضغط عليه ضع الكود التالي :

 Dim lstTexts1 As New List(Of TextBox)
        Dim lstTexts2 As New List(Of TextBox)
' نضع القائمة الاولى من مربعات النص 1من  الى 7
        lstTexts1.Add(TextBox1)
        lstTexts1.Add(TextBox2)

' نضع القائمة الثانية من مربعات النص من 1 الى 7 التي سيتم نقل الاعداد اليها
        lstTexts2.Add(TextBox3)
        lstTexts2.Add(TextBox4)
'  نقوم بترتيب القائمة تنازليا حسب الارقام
        Dim lst = (From pp In lstTexts1 Order By Integer.Parse(pp.Text) Descending Select pp).ToList
'  نقوم بنقل الارقام بعد الترتيب من القائمة الاولى الى الثانية

        For index As Integer = 0 To lst.Count - 1
            lstTexts2(index).Text = lst(index).Text
        Next

طبعا هذا جزء من الحل لكن يمكن تطبيقه على بقية المطلوب بنفس الطريقة.

#4

السلام عليم

أخي الكريم حاولت في ايجاد الكود لكن لم افلح

يقوم بنرتيب خمس ارقام فقط

هذا مثال على ذلك

http://www.7ozn.com/do.php?filename=01_06_2012_2ae313385024211.rar

ايضا اخي الكريم انه ينقل اسم الليبل فوق اسم التكست مثال اذا كان اكبر رقم موجود في التكسن خمسة

عندتريبه تتازليا اصبح في التكست الاول الليبل الذي فوقه يكتب فيه اسم التكست وهو خمسة

اتمنى قدرت اوضح الفكرة

جزاك الله خيرأ

تم تعديل هذه المشاركة بواسطة & الأمل & في 1 يونيو 2012 في 01:29

#5

المفروض في lstTexts1 ان تضعي القائمة الاولى من مربعات النص وفي الثانية القائمة الثانية لكنك لم تعملي ذلك وانما اضفت القائمة الاولى لجميع القوائم اي lstTexts1 و lstTexts2 و lstTexts3 تحتوي على نفس مربعات النص

#6

جزاكم الله خيرا تم التوصل للحل

مواضيع مشابهة