تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال
#1
لا اجيد التعامل مع الاداء , حاولت عدة محاولات ولم تنجح معي


مرفق مثال الاخ سنايبر جزاه الله كل خير , من المنتدى القديم


حاولت اعدل عليه لم تنجح معي


صورة المثال



المطلوب اجراء العمليات الحسابية على العامود الثاني والثالث


ليصبح بهذا الشكل التالي






للتوضيح المعادلة الحسابية
العامود الثاني= العامود الاول - المتوسط
العامود الثالث= تربيع العامود الثاني


امل منكم مساعدتي بتعديل المشروع بالمرفقات


الملفات المرفقة
.rar   ListViewExample.rar (الحجم : 88.03 ك ب / التحميلات : 34)
الرد }}}}
تم الشكر بواسطة:
#2

السلام عليكم ورحمة الله

إن شاء الله يكون المطلوب
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim total 
As Integer = (From itm In ListView1.Items Select CDbl(itm.Text)).Sum()
    For 
Each itm As ListViewItem In Me.ListView1.Items
        
If itm.SubItems.Count 3 Then itm.SubItems.AddRange(New String() {""""})
        
itm.SubItems(1).Text Val(itm.Text) - (total Me.ListView1.Items.Count)
        
itm.SubItems(2).Text Val(itm.SubItems(1).Text) ^ 2
    Next
End Sub 

الرد }}}}
تم الشكر بواسطة:
#3
(13-11-14, 11:42 PM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

إن شاء الله يكون المطلوب

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim total 
As Integer = (From itm In ListView1.Items Select CDbl(itm.Text)).Sum()
 
   For Each itm As ListViewItem In Me.ListView1.Items
        itm
.SubItems(1).Text Val(itm.Text) - (total Me.ListView1.Items.Count)
 
       itm.SubItems(2).Text Val(itm.SubItems(1).Text) ^ 2
    Next
End Sub 


شكرا لمحاولتك , لكن يظهر لي الخطا التالي

http://im79.gulfup.com/5iMUlC.jpg
الرد }}}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله

إن شاء الله يكون تمام، الكود يفترض وجود العمود الأول ببياناته
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim total 
As Integer = (From itm In ListView1.Items Select CDbl(itm.Text)).Sum()
    For 
Each itm As ListViewItem In Me.ListView1.Items
        
If itm.SubItems.Count 3 Then itm.SubItems.AddRange(New String() {""""})
        
itm.SubItems(1).Text Val(itm.Text) - (total Me.ListView1.Items.Count)
        
itm.SubItems(2).Text Val(itm.SubItems(1).Text) ^ 2
    Next
End Sub 

الرد }}}}
تم الشكر بواسطة: led
#5
(14-11-14, 12:35 AM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

إن شاء الله يكون تمام، الكود يفترض وجود العمود الأول ببياناته

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim total 
As Integer = (From itm In ListView1.Items Select CDbl(itm.Text)).Sum()
 
   For Each itm As ListViewItem In Me.ListView1.Items
        If itm
.SubItems.Count 3 Then itm.SubItems.AddRange(New String() {""""})
 
       itm.SubItems(1).Text Val(itm.Text) - (total Me.ListView1.Items.Count)
 
       itm.SubItems(2).Text Val(itm.SubItems(1).Text) ^ 2
    Next
End Sub 

والله انك استاذ , الله يسعدك يارب


وسامحني اخي , هذا اخر سؤال

اريد وضع مجموع العامود الثالث بداخل مربع نص
الرد }}}}
تم الشكر بواسطة:
#6

السلام عليكم ورحمة الله

يوضع بعد الكود السابق
PHP كود :
Me.TextBox1.Text = (From itm In ListView1.Items Select CDbl(itm.SubItems(2).Text)).Sum() 

الرد }}}}
تم الشكر بواسطة: led
#7
والله يعجز اللسان عن الشكر اخي الوليد

همسة ( اتمنى تنزل مواضيع بالمنتدى )

شكرا لك
الرد }}}}
تم الشكر بواسطة: الوليد ☺


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اداة اختيار الملفات محمد بن عطية 2 53 12-01-17, 06:01 PM
آخر رد: مساعدة
  [VB.NET] كيفية برمجه serail port engmedomed@gmail.com 2 71 12-01-17, 03:50 AM
آخر رد: Basil Abdallah
  كيفية تغير رسائل الخطأ؟ noway 4 137 12-01-17, 02:05 AM
آخر رد: يسرى7
  [VB.NET] اجراء Clear ToolBox mjaleel 2 69 05-01-17, 01:36 AM
آخر رد: mjaleel
  كيفية استخراج ربح من المبيعات عندما تكون سعر شراء المادة مختلة في كل مرة max_1978 3 100 05-01-17, 12:40 AM
آخر رد: أبو عمر
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 146 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,332 04-01-17, 12:48 PM
آخر رد: مساعدة
  [VB.NET] كيفية رفع صوره مع السؤال في المنتدي engmedomed@gmail.com 3 102 02-01-17, 08:24 PM
آخر رد: Basil Abdallah
  مثال للبحث بين تاريخين مشكلة تستحق الاهتمام nabil.1710 30 670 28-12-16, 06:15 PM
آخر رد: nabil.1710
  كيفية التعديل على كود HTML ومن ثم عرضه في WebBrowser bidaya 5 127 24-12-16, 03:47 PM
آخر رد: ابو ليلى

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


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