+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ايجاد مجموعة عناصر كل مجموعة علي حدة (/showthread.php?tid=11100)
ايجاد مجموعة عناصر كل مجموعة علي حدة - atefkhalf2004 - 06-01-15
هناك مجموعة عناصر عددها 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
RE: ايجاد مجموعة عناصر كل مجموعة علي حدة - sami2015 - 07-01-15
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)
RE: ايجاد مجموعة عناصر كل مجموعة علي حدة - atefkhalf2004 - 07-01-15
يا اخي هذا هو المطلوب بعينه
ممتاااااااااااااااااااااز
لكن
عايز اقهم
وشوف هل ممكن الحل بالتغكير ده ام لا
اشوف عدد العناصر
واحدد عدد المجموعات الكاملة
والباقي باسنخدام الدالة 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
RE: ايجاد مجموعة عناصر كل مجموعة علي حدة - sami2015 - 07-01-15
Dim rrr = From row In DATAGRIDVIEW1.Rows Select Val(row.Cells("invto").Value)
RE: ايجاد مجموعة عناصر كل مجموعة علي حدة - atefkhalf2004 - 07-01-15
يا اخي
احرجتني بكرمك
شكرا لك يا باشا ........................
شكرا