منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال (/showthread.php?tid=10676)



كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - led - 13-11-14

لا اجيد التعامل مع الاداء , حاولت عدة محاولات ولم تنجح معي


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


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


صورة المثال



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


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






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


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


RE: كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - الوليد ☺ - 13-11-14


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

إن شاء الله يكون المطلوب
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 




RE: كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - led - 13-11-14

(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


RE: كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - الوليد ☺ - 14-11-14


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

إن شاء الله يكون تمام، الكود يفترض وجود العمود الأول ببياناته
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 




RE: كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - led - 14-11-14

(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 

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


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

اريد وضع مجموع العامود الثالث بداخل مربع نص


RE: كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - الوليد ☺ - 14-11-14


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

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




RE: كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال - led - 14-11-14

والله يعجز اللسان عن الشكر اخي الوليد

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

شكرا لك