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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الرجاء المساعده في ايجاد كود لتحقيق شرط معين معتز الجازوي 1 27 منذ 10 ساعة مضت
آخر رد: silverlight
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 71 15-11-16, 10:30 PM
آخر رد: السرور
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 100 10-11-16, 06:25 PM
آخر رد: أبو عمر
  طلب مساعدة في مجموعة اكواد moftah70 4 551 06-09-16, 02:27 AM
آخر رد: أسامة السالمي
  هل يمكن ادخال مجموعة اصفار في عمود Primarykey في SQL abushahewa_ly 2 138 23-05-16, 09:50 AM
آخر رد: samerselo
  [سؤال] ايجاد الداتا من Sql و اضافته في Textbox Abdelaziz Omar 3 234 10-04-16, 10:17 PM
آخر رد: khodor1985
  [VB.NET] كيفية استيراد وتصدير عناصر الداتا جريد فيو من والى ملف نصى TXT FILE الماجيك مسعد 8 364 03-04-16, 06:08 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية عرض عناصر الليست فيو الى اداة الكومبو بوكس؟ الماجيك مسعد 3 379 17-03-16, 04:30 PM
آخر رد: hassan
Exclamation [سؤال] ارجو المساعده في ايجاد عدد ايام الاجازة في كل شهر moftah70 14 858 29-01-16, 03:17 AM
آخر رد: mohamed haroon
  [VB.NET] كيفية حفظ عناصر DataGridView الى ملف نصى text file الماجيك مسعد 5 300 18-01-16, 04:55 PM
آخر رد: الماجيك مسعد

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


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