[led]

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


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


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


صورة المثال



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


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






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


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

[الوليد ☺]

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

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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]

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

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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

[الوليد ☺]

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

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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]

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

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 


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


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

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

[الوليد ☺]

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

يوضع بعد الكود السابق

PHP كود :

Me.TextBox1.Text = (From itm In ListView1.Items Select CDbl(itm.SubItems(2).Text)).Sum() 


[led]

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

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

شكرا لك