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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 6 92 منذ 1 ساعه مضت
آخر رد: عباسة
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 30 منذ 4 ساعة مضت
آخر رد: noway
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 16 20-02-17, 02:45 PM
آخر رد: ناصر شير
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 49 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 48 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 97 20-02-17, 02:13 AM
آخر رد: khodor1985
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 113 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 47 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 77 18-02-17, 02:19 PM
آخر رد: Amrjamil
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 3 77 16-02-17, 08:10 PM
آخر رد: احمد مهران

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


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