تقييم الموضوع :
  • 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
 
انا كنت احاول اعملها في مصفوفه ولكن اتوقع انه طريقتك افضل 
نعم الكودد يعمل بنجاح والحمدالله  وشكرا لك استفدت منكم جميعا  انت والاخ سيلفر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إستفسار حول طريقة الحصول على رقم المحمول عبد العزيز البسكري 0 76 22-11-21, 09:47 PM
آخر رد: عبد العزيز البسكري
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 11 741 14-11-21, 03:47 PM
آخر رد: kebboud
  [VB.NET] اجراء العمليات الحسابية داخل خلية داتا غريد فيو العواد الصغير 3 1,447 14-11-21, 03:15 PM
آخر رد: walkady
  [VB.NET] رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم jam3h 4 205 10-11-21, 02:54 PM
آخر رد: Anas Mahmoud
  اريد طريقة لجمع عمود في الداتا جريد مع الكسور بسام محمدغانم 2 194 09-11-21, 08:00 AM
آخر رد: بسام محمدغانم
  كيفية البحث عن رقم داخل حقل في الجدول عبدالكريم برشدان 6 315 03-11-21, 09:01 PM
آخر رد: عبدالكريم برشدان
  طريقة الضم LEFT JOIN متعددة بسام محمدغانم 0 111 03-11-21, 07:02 AM
آخر رد: بسام محمدغانم
  الكتابة داخل ملف تكست فى سطر محدد ابو روضة 3 264 31-10-21, 02:27 AM
آخر رد: ابو روضة
Exclamation [VB.NET] كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox أبو خالد الشكري 3 296 30-10-21, 03:08 AM
آخر رد: trakktour
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 1 301 15-10-21, 06:47 PM
آخر رد: asemshahen5

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


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