تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] حساب عدد من الخلايا
#1
Photo 
السلام عليكم أخوتي المبرمجين العرب
عندي داتاغريدفيو و تظهر عليها بيانات قادمة من قاعدة بيانات اكسس 
أرجو منكم أن تساعدونني بكود يحسب عدد الخلايا التي تحتوي على أرقام و هذه الخلايا تبدأ من الخلية 0 من العمود 2 و تنتهي عند الخلية 0 من العمود 7 يعني في نفس السطر  
و هذا هو الكود
Dim count As Integer = 0

        For Each cell As DataGridViewCell In DataGridView1.CurrentRow.Cells
            If TypeOf cell.Value Is DBNull = False Then
                count += 1
            End If
        Next
        TextBox1.Text = Val(count) - 2

و شكرا مسبقا
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

يبدو فى مشكلة فى الصورة
على اى حال الكود الصحيح لاستخدام عرض عدد جميع الخلايا

تجنبهاً لعدد 2 عمود سيكون بالشكل التالى
كود :
       Dim count As Integer = 0
       For i As Integer = 0 To DataGridView1.RowCount - 1
           For ii As Integer = 0 To DataGridView1.ColumnCount - 3
               count += 1
           Next
       Next

       TextBox1.Text = count

واذا كنت تريد عرض الجميع تجنباً فقط عدد 2 خلايا
سيكون الكود بهذا الشكل
كود :
       Dim count As Integer = 0
       For i As Integer = 0 To DataGridView1.RowCount - 1
           For ii As Integer = 0 To DataGridView1.ColumnCount - 1
               count += 1
           Next
       Next

       TextBox1.Text = count - 2

اتمنى هذه الاكود تكون خالصة بكل ما تريده

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: kebboud
#3
شكرا استاذي المميز [b]elgokr[/b]
أنا جهزت صورة من المطلوب و لك لا اعرف لماذا لا تطلع 
و ساحاول أن ارفعا من جديد تفهم ما اريد
شكرا استاذي الكبير [b][b]elgokr[/b][/b]
[b]----[/b]
[b]و لكن كيف يمكن رفع الصورة ؟[/b]

استاذي elgokr
أتمنى أن أجد صفحتكم على الفيسبوك حتى أتواصل معك و ارسل إليك صورة مما أريد بالضبط
الرد }}}
تم الشكر بواسطة:
#4
استخدم الموقع التالى لرفع الصور

كما يمكنك الضغط على زر + رد جديد
ثم ارفاق الصورة بالمرفقات

هل قمت باختبار الاكواد بالاعلى
ام انها ليس كما انت تريد

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#5
استاذي الكبير elgokr
لقد رفعت ك صورة في هذا الموقع الجميل الذي ارشدتني إليه و الذي كان غائبا عني فلك الشكر على ذلك 
و رابط الصورة هو 
https://imgur.com/9Sxkmmz

شكرا 
الرد }}}
تم الشكر بواسطة:
#6
لا عليك اخى kebboud
بعض ما تم توضيح المطلوب كل م اعليك استخدام الكود بهذا الشكل
كود :
       Dim count As Integer = 0
       For i As Integer = 0 To DataGridView1.RowCount - 1
           For ii As Integer = 2 To DataGridView1.ColumnCount - 1
               If Not DataGridView1.Rows(i).Cells(ii).Value Is Nothing Then
                   count += 1
               End If
           Next
       Next
       TextBox1.Text = count

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#7
الأستاذ [b]elgokr[/b]
شكرا على العناية و الصبر على المساعدة 
و لكن الكود الذي قدمته لي غير صالح عكس الكود السابق
هل رأيت الصورة التي رفعتها إليك ؟
أنا أريد عدد الخلايا التي توجد فيها ارقام و هذه الخلايا موجودة على السطر و ليس على العمود

 لقد رفعت لك صورة جديدة 
https://imgur.com/f7DHRxE
الرد }}}
تم الشكر بواسطة:
#8
اخى الفاضل kebboud
فى البداية الشكر لله

بخصوص الكود هو عبارة عن تجنب اول عمودين 
وهما رقم الطالب و الاسم
ثم يبداء عند العمود الثالث من الخالية الاولى
حتى اخر عمود فى الداتا جريد الى اخر خالية
اى انه يبداء العد من العمود الاختبار الاول

خلال هذا الاجاء سيقوم بفحص القيمة لكل قيمة فى الخلايا
واذا كان يحتوى على قيمة اى انه اكبر من 0 او انه يحتوى على نص
سيقوم باحتساب عدد +1 على قيمة count 

لينتهى بالنهاية ويقوم بترحيل القيمة الى TextBox1.Text
كل ما عليك فعله
هو تعبئة الداتا جريد باى قيمة وبشكل عشوائي
واستخدم الكود فى زر ما وعند الضغط على الزر
ستجد انه يتم اعطاء اجمالى عدد الخلايا التى تحتوى على قيم فقط

وهو كما موضح فى الصورة التى قمت برفعها

طبق الكود وستجد النتيجة لديك

الا اذا كنت تريد عمل المعادلة على صف واحد فقط وليس جميع الصفوف لاسماء الطلاب باجمعها



اذا كن تريد احتساب الاعداد
للصف الواحد فقط اى لاسم طالب واحد

فكل ما عليك الوقوف على اى اسم طالب فى اى مكان فى الصف الخاص به
ثم تقوم بالضغط على الزر الذى يحتوى على الكود التالى
كود :
       Dim count As Integer = 0
       Dim row As DataGridViewRow = DataGridView1.CurrentRow
       For ii As Integer = 2 To DataGridView1.ColumnCount - 1
           If Not row.Cells(ii).Value Is Nothing Then
               count += 1
           End If
       Next
       TextBox1.Text = count
وبكده سيعطيك عدد الخلايا التى تحتوى على قيم لصف الطال فقط وليس جميع الطلاب

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#9
استاذي المحترم
أنا أريد أن يتم الكود على كل صف وحده 
ثانيا هو لا يحسب الصف جميعا هو يحسب من خلية الختبار الأول و حتى خلية الاختبار السادس فقط 
شكرا على الصبر
الرد }}}
تم الشكر بواسطة:
#10
اذا كنت تريد حتى العمود الخاص بالاختبار السادس قبل الامتحان
فهذا يعنى العمود رقم 7

فكل ما عليك حذف هذه الجملة
كود :
DataGridView1.ColumnCount - 1

وتكتب بدالها فقط 7

طبق التعديل اذا كان على طالب واحد للكود الموجود فى الرد الاخير
وكذلك طبق التعديل على الاكواد المذكورة بالاعلى لجلب جميع الطلاب

راجع الرد السابق تم اضافة اكواد اضافية

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب عدد الطلاب محمد خيري 4 117 12-03-24, 02:07 PM
آخر رد: محمد خيري
  حساب المبلغ الإجمالي محمد خيري 2 300 30-01-24, 08:08 PM
آخر رد: محمد خيري
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 462 03-11-23, 09:57 PM
آخر رد: fares_mohammed
  [VB.NET] حساب ايام اجازة بدون ايام الجمعة والسبت وعطلات البلد ahmed_king2023 0 452 05-06-23, 03:48 PM
آخر رد: ahmed_king2023
  حساب عدد الشهور بين تاريخين kebboud 4 623 12-04-23, 03:22 PM
آخر رد: kebboud
  [VB.NET] اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز mac9 4 708 11-04-23, 10:23 AM
آخر رد: mac9
  حساب خانة في الداتا قريد فيو DOX.1 6 2,191 06-03-23, 01:18 AM
آخر رد: المتألق9
  حساب نقاط لكل مستخدم aldery 0 292 21-01-23, 12:32 AM
آخر رد: aldery
  [مثال] حساب عدد الصفوف، و مجموع حقل محدد من الجدول HUNTER25 3 586 22-12-22, 05:45 PM
آخر رد: HUNTER25

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


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