تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريقة الفرز داخل مربع النص
#1
السلام عليكم 

عندي فورم يوجد فيه 14 مربع نص (اسعار) واريد فرز الارقام من الاقل الى الاعلى وايضا بجانب مربع النص ( الاسعار) مربع نص اخر ( اسماء ) 

احتاج عند الفرز يفرز الارقام والاسماء  من الاقل الى الاعلى  ماهي الطريقة اتمنى منكم افادتي ؟؟
الرد
تم الشكر بواسطة:
#2
اعمل مثال صغير و ارفعه

عموما ممكن تستخدم Generic Sorted Dictionary وتضيف لها البيانات الموجودة في مربع النص الخاص بالاسعار و هو سيتكفل بعملية الترتيب اتوماتيكيا
وبنفس الاسلوب تتعامل مع مربعات النص الخاصة بالأسماء
الرد
تم الشكر بواسطة:
#3
شكرا على تجاوبك معي اخي 
لم استطيع اضافة المرفقات 
ولكن ارفقت صورتين 

ماهو الكود الذي سيرتب السعر الاقل الى الاعلى 
داخل مربعات النص
https://a.top4top.net/p_557axkar1.jpg
 
https://f.top4top.net/p_557hu3p20.jpg
الرد
تم الشكر بواسطة:
#4
استخدم SortedDictionary
,
PHP كود :
Dim bucket New SortedDictionary(Of StringString) () 

أو الافضل تستخدمها بالشكل التالي
لأنك محتاج الأرقام مرتبة من الأصغر للأكبر
مرر الرقم من التكست بوكس ومعه اسم التكست بوكس مثلا

PHP كود :
Dim bucket New SortedDictionary(Of IntegerString) () 

أو يمكنك أن تستخدم SortedList للحصول علي الأرقام فقط
وتضيف لها الأرقام الموجودة في التكست بوكس فتحصل علي مصفوفة مرتبة تصاعديا


PHP كود :
Dim sl As New SortedList() 
الرد
تم الشكر بواسطة:
#5
حسب طلبك لا ينفع استخدام Dictionary أو SortedDictionary لأنها تعتمد على Key والذي لا يقبل تكرار قيمة، بمعنى يرفض أن تضع فيه قيمة مشابهة

جرب الكود
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        Dim Items 
As New List(Of Item)

        
Items.Add(New Item With {.Price Val(TextBox1.Text), .Company TextBox2.Text})
        
Items.Add(New Item With {.Price Val(TextBox3.Text), .Company TextBox4.Text})
        
Items.Add(New Item With {.Price Val(TextBox5.Text), .Company TextBox6.Text})
        
Items.Add(New Item With {.Price Val(TextBox7.Text), .Company TextBox8.Text})

        
Dim SortedItems As List(Of Item) = Items.OrderByDescending(Function(itemitem.Price).ThenBy(Function(itemitem.Company).ToList

        TextBox1
.Text SortedItems(0).Price
        TextBox2
.Text SortedItems(0).Company

        TextBox3
.Text SortedItems(1).Price
        TextBox4
.Text SortedItems(1).Company

        TextBox5
.Text SortedItems(2).Price
        TextBox6
.Text SortedItems(2).Company

        TextBox7
.Text SortedItems(3).Price
        TextBox8
.Text SortedItems(3).Company

    End Sub

    
Private Class Item
        
Public Company As String
        
Public Price As Single
    End 
Class 

تم استخدام OrderByDescending للترتيب الأول وThenByوليس ThenByDescending للترتيب التالي لأننا نرتيب ترتيب حسب الأبجدية لأسماء الشركات في حال تشابة قيمتها
Descending هي للترتيب الكبير للصغير وThenBy هي اختيارية

في النهاية نحول النتيجة الى ToList لأن المتغير نوعه List Of
الرد
تم الشكر بواسطة:
#6
(11-07-17, 07:41 PM)mstfa1991 كتب : حسب طلبك لا ينفع استخدام Dictionary أو SortedDictionary لأنها تعتمد على Key والذي لا يقبل تكرار قيمة، بمعنى يرفض أن تضع فيه قيمة مشابهة

جرب الكود
PHP كود :
   Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        Dim Items 
As New List(Of Item)

 
       Items.Add(New Item With {.Price Val(TextBox1.Text), .Company TextBox2.Text})
 
       Items.Add(New Item With {.Price Val(TextBox3.Text), .Company TextBox4.Text})
 
       Items.Add(New Item With {.Price Val(TextBox5.Text), .Company TextBox6.Text})
 
       Items.Add(New Item With {.Price Val(TextBox7.Text), .Company TextBox8.Text})

 
       Dim SortedItems As List(Of Item) = Items.OrderByDescending(Function(itemitem.Price).ThenBy(Function(itemitem.Company).ToList

        TextBox1
.Text SortedItems(0).Price
        TextBox2
.Text SortedItems(0).Company

        TextBox3
.Text SortedItems(1).Price
        TextBox4
.Text SortedItems(1).Company

        TextBox5
.Text SortedItems(2).Price
        TextBox6
.Text SortedItems(2).Company

        TextBox7
.Text SortedItems(3).Price
        TextBox8
.Text SortedItems(3).Company

    End Sub

    Private 
Class Item
        Public Company 
As String
        Public Price 
As Single
    End 
Class 

تم استخدام OrderByDescending للترتيب الأول وThenByوليس ThenByDescending للترتيب التالي لأننا نرتيب ترتيب حسب الأبجدية لأسماء الشركات في حال تشابة قيمتها
Descending هي للترتيب الكبير للصغير وThenBy هي اختيارية

في النهاية نحول النتيجة الى ToList لأن المتغير نوعه List Of
 
انا كنت احاول اعملها في مصفوفه ولكن اتوقع انه طريقتك افضل 
نعم الكودد يعمل بنجاح والحمدالله  وشكرا لك استفدت منكم جميعا  انت والاخ سيلفر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بخصوص حفظ عدد داخل datagridview chankar 18 335 18-09-20, 02:46 AM
آخر رد: chankar
  كود تعبئة الكومبو داخل الداتا قريد فيو عمور2016 30 622 17-09-20, 11:13 PM
آخر رد: asemshahen5
  مساعدة بالكتابه داخل التكست بوكس eeee2 5 121 17-09-20, 12:39 AM
آخر رد: Anas Mahmoud
  مساعدة بخصوص حفظ عدد داخل datagridview chankar 0 57 16-09-20, 09:19 PM
آخر رد: chankar
  هل استطيع وضع مجلد فيه برنامج وملفاته dll معه وادمجن داخل ادات في فيجوال بيسك jam3h 0 51 13-09-20, 11:14 PM
آخر رد: jam3h
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 147 13-09-20, 10:12 PM
آخر رد: Ali 2020
  [سؤال] طريقة عمل برنامج دمج ملفات التيكس بوكس Ali 2020 2 86 11-09-20, 07:44 PM
آخر رد: Ali 2020
  [سؤال] طريقة التحقق هل انا وقف علي اخر سطر في اليسة بوكس Ali 2020 1 106 10-09-20, 07:22 AM
آخر رد: diggitalk2017@gmail.com
  طريقة عرض بيانات جدولين في الداتا قريد ZaerAllail 7 245 05-09-20, 01:44 PM
آخر رد: Anas Mahmoud
  [سؤال] تغيير خط ليبال من داخل مجلد السورس عبد الهادي بهاب 9 310 28-08-20, 08:50 AM
آخر رد: Anas Mahmoud

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


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