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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدد الارقام العشريه ف الLabel Shafaga 29 8,552 31-01-24, 11:57 PM
آخر رد: muhammad_nasr
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
Star [VB.NET] كود لتوليد الارقام تلقائي في text box Raaf 5 620 08-11-23, 03:03 AM
آخر رد: VIP_YEMEN
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1
  [VB.NET] ماهي الارقام الصحيحة من نوع Integer فطومة 1 387 03-06-23, 08:48 PM
آخر رد: Taha Okla
  لا استطيع الحصول على الرقم التسلسلي للقرص C ابو محمد محمد محمد 6 737 27-04-23, 01:49 PM
آخر رد: ابو محمد محمد محمد
  إستخدام CheckBox لتعطيل أو تفعيل مجموع الأدوات YANNOURI 3 436 17-04-23, 04:49 AM
آخر رد: Taha Okla
  [مثال] حساب عدد الصفوف، و مجموع حقل محدد من الجدول HUNTER25 3 586 22-12-22, 05:45 PM
آخر رد: HUNTER25
  [VB.NET] استعلام لاظهار الارقام MOHAMMED ALZWI 0 421 07-12-22, 12:48 AM
آخر رد: MOHAMMED ALZWI

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


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