[الدريساوي]

   
السلام عليكم 

احتاج الى كود اظهار نتيجة الدرجات ( ناجح او راسب او مكمل ) للدروس مثلا ( العربي- الانكليزي -الرياضيات -جميعها------

اذا كان >=50 ناجح  --- اذا كان <50 راسب 

يعني كود شرطي 

[الدريساوي]

الحمد لله تم الحل 

[benomar]

الحمد لله تم الحل
أرى مشاركة الحل و عرضه لإتاحة الفرصة للغير للتعلم .أليست هذه الغاية من الموقع ؟ عند الحاجة تسأل و عند الوصول للحل لا يتاح للإطلاع .

[الدريساوي]

(16-03-15, 04:34 PM)benomar كتب : الحمد لله تم الحل
أرى مشاركة الحل و عرضه لإتاحة الفرصة للغير للتعلم .أليست هذه الغاية من الموقع ؟ عند الحاجة تسأل و عند الوصول للحل لا يتاح للإطلاع .

جزاك الله خيراُ اخي سوف انشر العمل في الموقع قربتاُ الى الله 
زكاة العلم نشره 

 Dim a, b, c, d, w, k, r, t, y, u, f, g As Integer

        a = Val(TextBox44.Text)
        b = Val(TextBox45.Text)
        c = Val(TextBox46.Text)
        d = Val(TextBox47.Text)
        w = Val(TextBox48.Text)
        k = Val(TextBox49.Text)
        r = Val(TextBox50.Text)
        t = Val(TextBox51.Text)
        y = Val(TextBox52.Text)
        u = Val(TextBox53.Text)
        f = Val(TextBox54.Text)
        g = Val(TextBox55.Text)

        If a >= 50 And b >= 50 And c >= 50 And d >= 50 And w >= 50 And k >= 50 And r >= 50 And t >= 50 And y >= 50 And u >= 50 And f >= 50 And g >= 50 Then

            Me.TextBox56.Text = "ناجح"

        Else
            Me.TextBox56.Text = "راسب "

        End If

[benomar]

بارك الله فيك و في أمثالك