تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الحصول على مجموع الارقام
#1
الحصول على مجموع الارقام من اداه 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 ... مثل هذا
الرد
تم الشكر بواسطة:
#2
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(itemThen
                Dim current 
As String() = item.Split("E"c)
 
               If Decimal.TryParse(current(0), valueThen
                    result 
+= value
                End 
If
 
           End If
 
       Next 
الرد
تم الشكر بواسطة:
#3
السلام عليكم


تفضل عدة طرق

كود :
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
الرد
تم الشكر بواسطة: Mohamed20
#4
(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
جزاك الله خير شكرآ اخى
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 170 13-09-20, 06:05 PM
آخر رد: eman kh
  [VB.NET] مشكلة في الحفاظ على تنسيق الارقام والتاريخ في المشروع محمد العامر 4 363 23-07-20, 01:45 PM
آخر رد: محمد العامر
  الارقام بالعربي سمير1404 9 474 02-05-20, 01:20 AM
آخر رد: سمير1404
  جلب الارقام بالترتيب فى الليست بوكس ابو روضة 5 375 15-04-20, 03:54 AM
آخر رد: ابراهيم ايبو
  التعامل مع الارقام في الكرستال ريبورت DOX.1 1 428 14-01-20, 02:37 AM
آخر رد: DOX.1
  [سؤال] ممكن كود حساب الارقام الصحيحة والارقام العشرية segma 1 419 22-12-19, 05:28 PM
آخر رد: alshandodi
  [سؤال] كود توليد الارقام عشوائي Mohamed os 3 580 24-10-19, 05:48 PM
آخر رد: Mohamed os
  [VB.NET] الارقام العشوائية بدون تكرار 3boody 0 323 12-10-19, 08:55 PM
آخر رد: 3boody
  اظهار مجموع نتائج البحث عن كلمة الرائد 8 883 13-08-19, 09:45 PM
آخر رد: الرائد
  [سؤال] سؤال حول الحصول على نص من صحفة ويب داخل Class dametucorazon 8 854 12-08-19, 05:01 AM
آخر رد: dametucorazon

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


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