تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة اختصار تكرارات الارقام
#1
السلام عليكم اخواني 
عندي Listbox يحتوي على اعمار اشخاص من 0 الى 100 
بعض الاعمار تتكرر مثلا 
11
11
11
22
22
30
32
50
50
43

كيف بقدر اختصر هاي الارقام كالاتي 
11/3
22/2
30
32
50/2
43
يعني تكرارات الاعمار اختصرها برقم واحد واكتب جنب هذا الاختصار عدد التكرارات
الرد }}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
هذا مثال لما تريد تماما إن شاء الله


الملفات المرفقة
.zip   GroupItemInListBox.zip (الحجم : 132.18 ك ب / التحميلات : 24)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة: asmarsou , beso00 , beso00 , اسامه الهرماوي
#3
(10-02-22, 01:31 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم 
هذا مثال لما تريد تماما إن شاء الله

الف شكر اخوي ابراهيم 
مثال يفي بالغرض ولكن فيه مشكلة 
انو انا بحاجة انو يجمع التكرارات الي ورا بعض فقط يعني 
11
11
23
21
11
11
11
فبصير بالشكل الاتي 
11\2
23
21
11\3
يعني ما يجمعهم كلهم بخانة وعدد تكرارات مع بعض
لا كل مجموعه ورا بعض متكرره على التوالي يختصرهم بعددهم
الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#4
عندك اي حل اخوي ابراهيم للمشكله؟
الرد }}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته
الحمد لله رب العالمين الذي يوفقني دائما وأبدا
فعلا الكود يحتاج الى صفاء في الذهن والتوكل على الله
تفضل اخي الكريم فقظ دعوة منك ان أشفى من مرض السكر هذا
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Dim Lst As New ListBox()
       Lst.Items.Clear()
       Dim kk As Integer = 0

       For i As Integer = 0 To ListBox1.Items.Count - 1
           If Lst.Items.Count > 0 Then

               If Lst.Items(Lst.Items.Count - 1).ToString = ListBox1.Items(i).ToString Then
                   kk += 1
               Else
                   If kk > 1 Then
                       Lst.Items(Lst.Items.Count - 1) &= "/" & kk
                       kk = 0
                       Lst.Items.Add(ListBox1.Items(i))
                       kk += 1
                   Else
                       kk = 0
                       Lst.Items.Add(ListBox1.Items(i))
                       kk += 1
                   End If
               End If
           Else
               kk = 0
               Lst.Items.Add(ListBox1.Items(i))
               kk += 1
           End If
       Next
       ListBox1.Items.Clear()
       ListBox1.Items.AddRange(Lst.Items.Cast(Of String)().ToArray)
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة: اسامه الهرماوي , beso00
#6
(10-02-22, 09:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
الحمد لله رب العالمين الذي يوفقني دائما وأبدا
فعلا الكود يحتاج الى صفاء في الذهن والتوكل على الله
تفضل اخي الكريم فقظ دعوة منك ان أشفى من مرض السكر هذا
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Dim Lst As New ListBox()
       Lst.Items.Clear()
       Dim kk As Integer = 0

       For i As Integer = 0 To ListBox1.Items.Count - 1
           If Lst.Items.Count > 0 Then

               If Lst.Items(Lst.Items.Count - 1).ToString = ListBox1.Items(i).ToString Then
                   kk += 1
               Else
                   If kk > 1 Then
                       Lst.Items(Lst.Items.Count - 1) &= "/" & kk
                       kk = 0
                       Lst.Items.Add(ListBox1.Items(i))
                       kk += 1
                   Else
                       kk = 0
                       Lst.Items.Add(ListBox1.Items(i))
                       kk += 1
                   End If
               End If
           Else
               kk = 0
               Lst.Items.Add(ListBox1.Items(i))
               kk += 1
           End If
       Next
       ListBox1.Items.Clear()
       ListBox1.Items.AddRange(Lst.Items.Cast(Of String)().ToArray)
   End Sub

ما شاء الله عليك 
الكود 100% صحيح الله يعطيك العافيه ويشافيك ويعافيك ويبارك فيك
الرد }}
تم الشكر بواسطة:
#7
الحمد لله والشكر لله 
ولك أخي الكريم
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة: beso00 , beso00


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال في الارقام حسن الجلب 3 71 منذ 3 ساعة مضت
آخر رد: Taha Okla
  طريقة رسم كهذة Lathe1 0 26 منذ 8 ساعة مضت
آخر رد: Lathe1
  الكود لا يستدعى الارقام الا الاقل من 10 حماده ممدوح البحيرى 4 143 06-08-22, 08:12 AM
آخر رد: حماده ممدوح البحيرى
  ماهي طريقة تحويل الصور إلى pdf ؟ جيولوجي مبتدئ 6 256 30-07-22, 02:24 AM
آخر رد: جيولوجي مبتدئ
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 14 9,892 25-07-22, 07:48 PM
آخر رد: عبد الجليل سراج
  ماهي طريقة اقتطاع جزء معين من الصورة عند المسح بالسكانر ؟ جيولوجي مبتدئ 0 167 01-07-22, 02:55 AM
آخر رد: جيولوجي مبتدئ
  ممكن طريقة لتحويل هذا الكود ابو روضة 9 602 10-06-22, 02:21 AM
آخر رد: ابو روضة
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,186 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
Question كيفية زيادة وانقاص الارقام العشرية في C# و VB.NET silverlord 4 427 29-05-22, 02:49 AM
آخر رد: silverlord
  طريقة تحميل البيانات بطريقة سريعة عن طريق الاستعلام sql Codack 1 368 23-05-22, 07:17 PM
آخر رد: سعود

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


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