+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حساب عدد من الخلايا (/showthread.php?tid=26166)
حساب عدد من الخلايا - kebboud - 19-08-18
السلام عليكم أخوتي المبرمجين العرب
عندي داتاغريدفيو و تظهر عليها بيانات قادمة من قاعدة بيانات اكسس
أرجو منكم أن تساعدونني بكود يحسب عدد الخلايا التي تحتوي على أرقام و هذه الخلايا تبدأ من الخلية 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
و شكرا مسبقا
RE: حساب عدد من الخلايا - elgokr - 19-08-18
وعليكم السلام ورحمة الله وبركاته
يبدو فى مشكلة فى الصورة
على اى حال الكود الصحيح لاستخدام عرض عدد جميع الخلايا
تجنبهاً لعدد 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اتمنى هذه الاكود تكون خالصة بكل ما تريده
تحياتى لك
وتمنياتى لك التوفيق
RE: حساب عدد من الخلايا - kebboud - 19-08-18
شكرا استاذي المميز [b]elgokr[/b]
أنا جهزت صورة من المطلوب و لك لا اعرف لماذا لا تطلع
و ساحاول أن ارفعا من جديد تفهم ما اريد
شكرا استاذي الكبير [b][b]elgokr[/b][/b]
[b]----[/b]
[b]و لكن كيف يمكن رفع الصورة ؟[/b]
استاذي elgokr
أتمنى أن أجد صفحتكم على الفيسبوك حتى أتواصل معك و ارسل إليك صورة مما أريد بالضبط
RE: حساب عدد من الخلايا - elgokr - 19-08-18
استخدم الموقع التالى لرفع الصور
كما يمكنك الضغط على زر + رد جديد
ثم ارفاق الصورة بالمرفقات
هل قمت باختبار الاكواد بالاعلى
ام انها ليس كما انت تريد
تحياتى لك
وتمنياتى لك التوفيق
RE: حساب عدد من الخلايا - kebboud - 19-08-18
استاذي الكبير elgokr
لقد رفعت ك صورة في هذا الموقع الجميل الذي ارشدتني إليه و الذي كان غائبا عني فلك الشكر على ذلك
و رابط الصورة هو
https://imgur.com/9Sxkmmz
شكرا
RE: حساب عدد من الخلايا - elgokr - 19-08-18
لا عليك اخى 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تحياتى لك
وتمنياتى لك التوفيق
RE: حساب عدد من الخلايا - kebboud - 19-08-18
الأستاذ [b]elgokr[/b]
شكرا على العناية و الصبر على المساعدة
و لكن الكود الذي قدمته لي غير صالح عكس الكود السابق
هل رأيت الصورة التي رفعتها إليك ؟
أنا أريد عدد الخلايا التي توجد فيها ارقام و هذه الخلايا موجودة على السطر و ليس على العمود
لقد رفعت لك صورة جديدة
https://imgur.com/f7DHRxE
RE: حساب عدد من الخلايا - elgokr - 19-08-18
اخى الفاضل 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وبكده سيعطيك عدد الخلايا التى تحتوى على قيم لصف الطال فقط وليس جميع الطلاب
تحياتى لك
وتمنياتى لك التوفيق
RE: حساب عدد من الخلايا - kebboud - 19-08-18
استاذي المحترم
أنا أريد أن يتم الكود على كل صف وحده
ثانيا هو لا يحسب الصف جميعا هو يحسب من خلية الختبار الأول و حتى خلية الاختبار السادس فقط
شكرا على الصبر
RE: حساب عدد من الخلايا - elgokr - 19-08-18
اذا كنت تريد حتى العمود الخاص بالاختبار السادس قبل الامتحان
فهذا يعنى العمود رقم 7
فكل ما عليك حذف هذه الجملة
كود :
DataGridView1.ColumnCount - 1وتكتب بدالها فقط 7
طبق التعديل اذا كان على طالب واحد للكود الموجود فى الرد الاخير
وكذلك طبق التعديل على الاكواد المذكورة بالاعلى لجلب جميع الطلاب
راجع الرد السابق تم اضافة اكواد اضافية
تحياتى لك
وتمنياتى لك التوفيق