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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب شرح ListView CLARO 0 40 01-12-16, 06:48 PM
آخر رد: CLARO
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 79 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
  [سؤال] اداة Geckowebbroser التي موجود في لغة vb.net عبدالرحمن المكاوي 0 47 24-11-16, 03:54 PM
آخر رد: عبدالرحمن المكاوي
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 109 23-11-16, 08:51 PM
آخر رد: newvbdev
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 122 21-11-16, 11:00 AM
آخر رد: trfa8899
  كيفية تغير رسائل الخطأ؟ noway 3 68 11-11-16, 05:37 PM
آخر رد: ممدوح
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 244 10-11-16, 10:02 PM
آخر رد: Programmer_2017
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 152 09-11-16, 03:24 PM
آخر رد: elhon.tec
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 105 09-11-16, 12:32 PM
آخر رد: نوريس
  [VB.NET] كيفية التعامل مع العلاقات برمجياً ؟؟؟؟ thevirus 4 139 06-11-16, 08:22 PM
آخر رد: thevirus

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


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