[a.amin]

السلام عليكم

طلب منى برنامج خاص بإنتخابات صممت قاعدة البيانات وهى sql وقمت بعمل شاشة الإنتخاب ولكن تصادفنى مشكلة وهى اننى اريد إذا تم تعليم اكثر اول أقل من ( 7 ) تشك بوكس يتم اظهار كلمة صوت باطل فى ( تكست بوكس او ليبل ) وإذا كان العدد الذى تم تعليمة = ( 7 ) شك بوكس يكتب صوت صحيح ؟

فكرت ان أستخدم دالة IF ولكنى لم أتوصل للطريقة الصحيحة لعمل الشرط ؟

اذا كان <> 7 يكتب ( صوت باطل ) وان كان = 7 يكتب ( صوت صحيح ) ؟؟؟؟

فهل من توضيح لكيف عمل هذا الشرط لكى أكمل المشروع جزاكم الله خيرا ؟

[amgadtamer]

مثال بالمطلوب

[a.amin]

amgadtamer كتب :مثال بالمطلوب

بارك الله فيك اخى امجد

[SaLoOoMX]

كود :

If CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked And CheckBox4.Checked And CheckBox5.Checked And CheckBox6.Checked And CheckBox7.Checked = True Then
            MsgBox("GOOD")
        Else
            MsgBox("bad")
        End If

[BlackEagleSA]

كود :

[quote=amgadtamer]مثال بالمطلوب[/quote]

أشكرك أخوي على هذا المثال اللي حليتلي فيه مشكلتي اللي كنت رح أسئل عليها

بس لي بس طلب صغير ممكن يعني لو تشرح الكود لأني مو فاهم كم رمز زي


أشكرك أخوي على هذا المثال اللي حليتلي فيه مشكلتي اللي كنت رح أسئل عليها

بس عندي  طلب صغير ممكن يعني لو تشرح الكود لأني مو فاهم كم رمز زي ct والme.groupbox1.controls

[CODE]Function getcheck() As Integer
        Dim count As Integer
        For Each ct As CheckBox In Me.GroupBox1.Controls
            If ct.Checked = True Then
                count += 1
            End If
        Next
        Return count
    End Function

[amgadtamer]

ال ct هو متغير من نوع checkbox وال groupbox1 هو الحاوية التى تحوى الأداة checkbox وهى موجودة على الفورم موجود بها 7 checkbox

[amgadtamer]

SaLoOoMX كتب :

كود :

If CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked And CheckBox4.Checked And CheckBox5.Checked And CheckBox6.Checked And CheckBox7.Checked = True Then
            MsgBox("GOOD")
        Else
            MsgBox("bad")
        End If

حاول دائما بقدر الإمكان إستخدام مبدأ ال polymorphism بحيث يمكن إستخدام الكود فى أى مشروع