بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
وفية نقوم بالاجابة على سؤال احد الاصدقاء وهو كيفية استخدام الدالة IF على اليوزرفورم لحساب تقديرات الطلاب اما ناجح او راسب او لوحة شرف او امتياز وهذا من خلال المثال التالى
لنفرض ان عندنا يوزفورم مثل هذا الشكل
كيف نفعل ذلك
يتم الدخول الى تبويب المطور Developer ومن ندخل على شاشة محرر الاكواد Visual Basic Editorونضغط دوبل كليك على الزر الموجود معنا ليفتح نافذة الكود الكود الخاصة بهذا الزر
ونكتب فية الكود التالى
Private Sub CommandButton1_Click()
If TextBox6.Value <= 5 Then
TextBox7.Text = "راسب"
ElseIf TextBox6.Value = 6 Then
TextBox7.Text = "لوحة شرف"
ElseIf TextBox6.Value <= 7 Then
TextBox7.Text = "تشجيع"
ElseIf TextBox6.Value >= 9 Then
TextBox7.Text = "امتياز"
End If
وفى هذا الكود نقول لة اا كانت قيمة التكست بوكس Textbox6 والتى تساوى قيمة الاجمالى العام اقل من او تساوى 5 درجات
اجعل لى قيمة تقدير الطالب راسب والتى هى موجودة فى7 Textbox
ويتم استخدام الدالة Else IF لاستكمال باقى الشروط المطلوبة فى ملف العمل اى انة اذا كانت قيمة الاجمالى العام تساوى 6 اجعل تقدير الطالب لوحة شرف اما اذا كانت اقل من او تساوى 7 اجعل لى تقدير الطالب تشجيع وفى الاخر اذا كانت درجات الطالب اكبر من او تساوى 9 يصبح تقدير الطالب امتياز
وبذلك نكون قد انتهينا من شرح الكود المستخدم فى هذا الدرس
وتسييرا منا على حضراتكم ادرجنا لكم المثال العملى فى ملف عمل لمن يريد تحملية مباشرة من الميديا فاير
تعليقات: 0
إرسال تعليق