منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الحصول على مجموع الارقام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=18816)

الحصول على مجموع الارقام - Mohamed20 - 15-01-17

الحصول على مجموع الارقام من اداه ListView اذا كان يوجد هذه items
1E
2E
3E
10E
15E
اريد الحصول على مجموع هذه الارقام استخدم 
كود :
   Public Shared Function GetTotal() As Decimal
       Dim TotalValue As Decimal
       Dim Itm As Decimal

       For n As Integer = 0 To ListView1.Items.Count - 1

           If Decimal.TryParse(ListView1.Items(n).Text.First, Itm) Then
               TotalValue += Itm
           End If
       Next

       Return TotalValue
   End Function
للحصول على الناتج لاكن لا يمكن جمع اكثر من رقم بمعنى اخر لايمكن جمع 10E او 15E سوف يجمع القيمة على انها 1 نلاحظ ان فى الكود First هذا هو السبب هل من حل لجمع جميع الارقام التى قبل حرف E حيث حرف E ثابت و لايمكن تغيرة مثلآ 1EQQQW 10ERRRE ... مثل هذا

RE: الحصول على مجموع الارقام - silverlight - 15-01-17

PHP كود :
       Dim value As Decimal = Nothing
        Dim result As Decimal = 0
        For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim item As String = ListBox1.Items(i).ToString
            If Not String.IsNullOrEmpty(item) Then
                Dim current As String() = item.Split("E"c)
                If Decimal.TryParse(current(0), value) Then
                    result += value
                End If
            End If
        Next 


RE: الحصول على مجموع الارقام - مساعدة - 15-01-17

السلام عليكم


تفضل عدة طرق

كود :
Public Function GetTotal() As Decimal
    Dim TotalValue As Decimal
    For n As Integer = 0 To ListView1.Items.Count - 1
        TotalValue += Val(ListView1.Items(n).Text)
    Next
    Return TotalValue
End Function
أو
كود :
Public Function GetTotal() As Decimal
    Dim TotalValue As Decimal
    For Each Item In ListView1.Items
        TotalValue += Val(Item.Text)
    Next
    Return TotalValue
End Function
أو
كود :
Public Function GetTotal() As Decimal
    Return ListView1.Items.Cast(Of ListViewItem).Select(Function(x) Val(x.Text)).Sum
End Function
أو إذا أردت تحديد عمود غير العمود الأول
كود :
Public Function GetTotal(Optional indx As Integer = 0) As Decimal
    Return ListView1.Items.Cast(Of ListViewItem).Select(Function(x) Val(x.SubItems(indx).Text)).Sum
End Function


RE: الحصول على مجموع الارقام - Mohamed20 - 15-01-17

(15-01-17, 09:46 PM)مساعدة كتب : السلام عليكم


تفضل عدة طرق

كود :
Public Function GetTotal() As Decimal
   Dim TotalValue As Decimal
   For n As Integer = 0 To ListView1.Items.Count - 1
       TotalValue += Val(ListView1.Items(n).Text)
   Next
   Return TotalValue
End Function
أو
كود :
Public Function GetTotal() As Decimal
   Dim TotalValue As Decimal
   For Each Item In ListView1.Items
       TotalValue += Val(Item.Text)
   Next
   Return TotalValue
End Function
أو
كود :
Public Function GetTotal() As Decimal
   Return ListView1.Items.Cast(Of ListViewItem).Select(Function(x) Val(x.Text)).Sum
End Function
أو إذا أردت تحديد عمود غير العمود الأول
كود :
Public Function GetTotal(Optional indx As Integer = 0) As Decimal
   Return ListView1.Items.Cast(Of ListViewItem).Select(Function(x) Val(x.SubItems(indx).Text)).Sum
End Function
جزاك الله خير شكرآ اخى