الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب حول الداتا جريد - عند تكرار قيمة في نفس السطر 3 مرات يحدث حدث معين

بدأه ryadh في 16 يوليو 2011 · 6 رد · 597 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

الصورة توضح كل شيء حيث اذا تكررت القيمة 1 ثلاث مرات في السطر الواحد يتغير العمود الأخير لأخر قيمة محددة للون الأحمر

وكذلك القيمة 2 اذا وجدت مرة واحدة تتغير الخلية التي تليها للون الأحمر

ركزوا في الصورة فقط ..

599214312.jpg

لأنني وضعت الدالة If وجدت أن الاحتمالات كثيييرة جدا

#2
ryadh كتب:

السلام عليكم

الصورة توضح كل شيء حيث اذا تكررت القيمة 1 ثلاث مرات في السطر الواحد يتغير العمود الأخير لأخر قيمة محددة للون الأحمر

وكذلك القيمة 2 اذا وجدت مرة واحدة تتغير الخلية التي تليها للون الأحمر

ركزوا في الصورة فقط ..

599214312.jpg

لأنني وضعت الدالة If وجدت أن الاحتمالات كثيييرة جدا

وعليكم السلام أخي الكريم،

فهمت كل ماذكرته لكنني لم أعرف سبب استخدام ثمانية اعمدة لتحديد لون البطاقة؟

على أي حال يمكنك الاعتماد على المنطق في جمع قيمة عددية تُحصل عن طريق حلقة تكرارية تقوم بالدوران على خلايا السطر الحالي (يحدد تحت حدث تعديل سطر أو خلية) لتتأكد من شرط ورود إحدى ألوان البطاقات في الخلايا وعن طريق شرط التأكد السابق يتم إضافة قيمة معينة إلى متغير عددي معرف مسبقاً، بعد انتهاء الحلقة التكرارية نقوم باسناد اللون تباعاً لأعظمية العدد فإذا كان أكبر من ثلاثة (على سبيل المثال) نسند اللون الأحمر وعدا عن ذلك نقوم باسناد اللون الاصفر وهكذا طبعاً يمكن إضافة حالات أخرى في حال كان لديك ألوان أخرى.

بالتوفيق.

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 16 يوليو 2011 في 23:55

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي


Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
Dim yCount, rCount, yIndex, rIndex As Integer
For i = 0 To DataGridView1.Columns.Count - 1
If DataGridView1.Rows(e.RowIndex).Cells(i).Value = "Yellow" Then
yIndex = i
yCount += 1
End If
If DataGridView1.Rows(e.RowIndex).Cells(i).Value = "Red" Then
rIndex = i
rCount += 1
End If
Next
If yCount = 3 Then
DataGridView1.Rows(e.RowIndex).Cells(yIndex + 1).Style.BackColor = Color.Red
End If
If rCount = 1 Then
DataGridView1.Rows(e.RowIndex).Cells(rIndex + 1).Style.BackColor = Color.Red
End If
End Sub
ولقد ارفقت لك المشروع لترى نفس النتيجة الموجودة في الصورة أعلاه
  
WindowsApplication1.zip

      
      
1

      
.:: Wish to become better and better ::.

    

  

    
    

      
#4
        
        

      
بارك الله فيكم سأجرب غدا باذن الله و‘ن حدث اي مشكل سأعود ..
بارك الله فيكم ..

      
      

      
    

  

    
    

      
#5
        
        

      
ملف المشروع بالنت فراموورك 4.0 لم يشتغل لدي للأسف ..
كذلك عند التجريب يأتيني هذا الخطأ 
Conversion from string "Yellow" to type 'Double' is not valid.

      
      

      
    

  

    
    

      
#6
        
        

      
ياريت المساعدة

      
      

      
    

  

    
    

      
#7
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي قم باضافة الفورم الى مشروعك من Add Existing Item اما بالنسبة للكود شغال 100%

      
      

      
.:: Wish to become better and better ::.

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…