منتدى فيجوال بيسك لكل العرب

نسخة كاملة : محتاج كود اظهار النتيجة الطالب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
[attachment=6759]
السلام عليكم 

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

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

يعني كود شرطي 
الحمد لله تم الحل  Wink Big Grin
الحمد لله تم الحل
أرى مشاركة الحل و عرضه لإتاحة الفرصة للغير للتعلم .أليست هذه الغاية من الموقع ؟ عند الحاجة تسأل و عند الوصول للحل لا يتاح للإطلاع .
(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
بارك الله فيك و في أمثالك