تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ايجاد مجموعة عناصر كل مجموعة علي حدة
#1
هناك مجموعة عناصر  عددها 17  مثلا

عايز 

اجمع  كل 5  لوحدهم    والمجموعة الاخيرة  هي ناقصة يتم جمعها لوحدها 

وفي  النهاية مجموع   الاعداد   
اي مجموع   المجموعات

 Dim mmm, kkk As Integer

        mmm = 0
        kkk = 0
        Dim rrr() As String = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}
        For i = 0 To 16
            mmm = mmm + rrr(i)
            If i = 4 Or i = 9 Or i = 14 Then
                kkk += mmm
                MsgBox(mmm)

                MsgBox(kkk)
                mmm = 0
            End If

        Next
الرد
تم الشكر بواسطة: برير مسبل
#2
Dim rrr() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}

Dim g = rrr.Select(Function(value, index) New With {value, index}) _
.GroupBy(Function(x) x.index \ 5) _
.Select(Function(group) group.Select(Function(x) x.value))

For i = 0 To g.Count - 1
   MsgBox(g(i).Sum)
Next

'For Each r In g
'    MsgBox(r.Sum)
'Next

MsgBox(rrr.Sum)
الرد
تم الشكر بواسطة:
#3
يا اخي هذا هو المطلوب بعينه
ممتاااااااااااااااااااااز

لكن

عايز اقهم


وشوف هل ممكن الحل بالتغكير ده ام لا

اشوف عدد العناصر
واحدد عدد المجموعات الكاملة

والباقي باسنخدام الدالة mod

واجمع كل مجموعة

بما فيها المجموعة الاخيرة

لكن كييييييييييييييييييييييييييييييييييييييييييف ؟؟؟؟
هل من حل

سؤال مهم جدا مرتبط بالموضوع

كيف استبدل عناصر المصفوفة بعمود في داتاجريد ؟؟؟
شكرا لك كثيرا

Dim rrr() As String
For i = 0 To 10
rrr = DATAGRIDVIEW1.Rows(i).Cells("invtol").Value
Next

For i = 0 To 10
MsgBox(rrr(i))
Next
الرد
تم الشكر بواسطة:
#4
Dim rrr = From row In DATAGRIDVIEW1.Rows Select Val(row.Cells("invto").Value)
الرد
تم الشكر بواسطة:
#5
يا اخي
احرجتني بكرمك
شكرا لك يا باشا ........................
شكرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل من الممكن تطبيق الحلقات الدورانية مثل for و while وغيرها على مجموعة من التيكست اسيل1 4 102 30-06-18, 12:00 AM
آخر رد: اسيل1
  [VB.NET] كيف تطبيق مجموعة اكواد في نفس الثانية saudisgames 2 146 05-04-18, 09:18 PM
آخر رد: عبدالله الدوسري
  ايجاد قيمة فى listview Mohamed20 3 73 12-02-18, 12:24 AM
آخر رد: سعود الشامان
  حساب مجموع عدد عناصر المصفوفة iFanfan 3 111 11-02-18, 02:38 AM
آخر رد: وعد مولود
  كيف امنع الاداة combobox من كتابة اية عناصر غير المضافه بها nooralcown 2 156 24-01-18, 10:48 PM
آخر رد: nooralcown
  [سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter waelalmsry75 2 159 12-01-18, 07:58 PM
آخر رد: waelalmsry75
  [سؤال] اختيار عناصر من الليست بوكس وإضافتها إلى قاعدة البيانات waelalmsry75 2 143 11-01-18, 09:11 AM
آخر رد: waelalmsry75
  [VB.NET] سحب مجموعة صور بالاسكانر وحفظها في ملف PDF على الجهاز محمد المصري 6 301 18-12-17, 10:55 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] حفظ عناصر الكمبو بوكس محمد اسماعيل 2 151 16-12-17, 07:27 PM
آخر رد: محمد اسماعيل
  تجميع القيم للاصناف المتشابهة في مجموعة جداول khaled12345 2 165 19-11-17, 10:21 AM
آخر رد: khaled12345

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


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