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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ قيمة Label في فيجوال دوت نت 2010 عامر الجبوري 7 70 منذ 7 دقيقة مضت
آخر رد: عامر الجبوري
  كيفية طباعة فاتورة مبيعات باستخدام الطابعات الصغيرة noway 0 46 19-05-17, 09:55 AM
آخر رد: noway
  كيفية انشاء الباركود المتألق9 2 49 18-05-17, 10:33 PM
آخر رد: المتألق9
Exclamation [سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010 moh_g 4 109 16-05-17, 06:50 PM
آخر رد: moh_g
  كيفية غلق هذا الفورم ان نفذ جملة شرط soper 4 71 13-05-17, 09:41 PM
آخر رد: العواد الصغير
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 244 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  [VB.NET] إستفسار عن كيفية تغيير كلمة مرور مستخدم في vb.net 2013 limia 1 61 13-05-17, 11:01 AM
آخر رد: khalid475
  كيفية الحفظ إلى صيغة txt ahmedfa71 1 72 07-05-17, 07:16 PM
آخر رد: mansoor
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 127 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية قراءة ملفات bin وتثبيتها 0theghost0 3 79 04-05-17, 02:02 PM
آخر رد: 0theghost0

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


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