الجمل الشرطية if , elseif في الفيجول بيسك دوت نت

الجمل الشرطيه

تستخدم الجمل الشرطيّة لتحديد فيما اذا كانت مجموعه التعليمات ستنفذ ام لا ، وذلك حسب قيمه تعبير معين . هناك عدة اشكال لدوال

 if… Then
 If… Then… Else 
 If… Then… ElseIf… Else 
 If… Then…ElseIf…ElseIf…Else 
 IIf(Expression , True , False) 
 SelectCase 

 الجملة الشرطية If … Then

تُستخدم هًذه اًلجملة اًلشرطية لًتنفيذ معلومه أًو مًجموعة تًعليمات وًفق شًرط مًعين. يُمكن كًتابة هًذه اًلداله اًلشرطية عًلى سًطر كًما يًلي:

الصيغه العامه للداله if

  IF <CONDITION> THEN <COMMAND> 
  END IF
  

ـ  if هنا يتم الاعلان بدايه الشرط مع العلم هيه كلمه محجوزه

ـ  condltlon هنا يتم كتابه الشرط

ـ Then بعد التحقق من الشرط يتم تنفيذ اللمر بشرط ان يكون الشرط صحيح ـCommand هنا يتم كتابه الامر ـ End if هنا يتم الاعلان عن نهايه الشرط مع العلم هي كلمه محجوزه

 

    IF <CONDITION> THEN <COMMAND> 
    END IF

🖥 نريد كتابة برنامج يقوم المستخدم بأدخال عمر أي أنسان بحيث اذا كان العمر أكبر أو يساوي 80 يعطي البرنامج رسالة بأن الشخص كبير في العمر؟

مثال كيف تم تطبيق داله if

 متطلبات المشروع انشاء مشروع جديد ثم سمي المشروع كما تشاء ثم اضف اداة Button الى الفورم 

انقر نقرتين علئ زر Button واكتب الكود التالي

        Public Class Form1 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

        Dim old As Integer 

//       هنا تم الاعلان عن متغير من نوع عدد صحيح 
        old = InputBox("العمر أدخل") 
 //       في السطر السابق يطلب من المستخدم أن يدخل العمر لتحقق 
        If old >= 80 Then 
//        هنا تمت كتابة الشرط بحيث اذاكان العمر المدخل أكبر من او يساوي 80 سوف تظهر لنا 
 //       رسالة بان عمر الشخص المدخل كبير جدا 
        MsgBox("جدا كبير عمرك") 
        End If 
        End Sub 

اضغط على f5 من الكيبورد للتنفيذ اكتب رقم 80 ونفذ سوف تظهر لك نافذة اخرى تحتوي على نص" عمرك جدا كبير " لان نحن شرطنا عليه اكبر او يساوي 80 و عندما يدخل مستخدم رقم 80 سوف يظهر له هذا نص

لاحظ الصور ادناه

الجملة الشرطية  If … Then … Else

في هًذه اًلحالة اًذا تًحقق اًلشرط سًنُنفذ تًعلميات مًعينة وًاذا لًم يًتحقق اًلشرط سًنُنفذ تًعليمات أًخرى. يمكن اًن تًكتب بًهذا اًلشكل :

 

  IF <CONDITION> THEN <COMMAND> 
  ELSE 
  <COMMAND> 
  END IF
              

والان يا صديقي العزيز سوف نعدل علي الكود السابق أو البرنامج السابق

              Public Class Form1 
              Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

              Dim old As Integer 
           //   هنا تم الاعلان عن متغير من نوع عدد صحيح 
              old = InputBox("العمر أدخل") 
            //  في السطر السابق يطلب من المستخدم أن يدخل العمر لتحقق 
              If old >= 80 Then 
            //  هنا تمت كتابة الشرط بحيث اذاكان العمر المدخل أكبر من او يساوي 80 سوف تظهر لنا 
             // رسالة بان عمر الشخص المدخل كبير جدا 
              MsgBox("جدا كبير عمرك") 
              ELSE 
              MsgBox("لازلت صغير سن") 
 //             هنا في السطر السابق لو أدخل مستخدم البرنامج عمر أقل من 80 سوف تكون النتيجة 
           //   لازلت صغير سن 
              End If 
              End Sub 
              End Class

صور عليك مشاهدتها ان لم تفهم 

الوسواس البرمجي من بين الاسباب الرئيسية للسواس القهري عند المبرمجين هوه كثرة استخدام البنيه الشرطيّة if

متعة البرمجة متعة البرمجه في ارتكاب الاخطاء واصلاحها ، ومواجهة الصعوبات وتجاوزها والمبرمج الذي لا يتعب ذهنه ، ليس سوى كاتب عمومي

الجملة الشرطية IF … .Then … Elself … . Else

نستخدم ھذه العبارة في حالة تعدد الشروط وسوف نتعلم الصيغة العامة مع مثال لكي تتضح والان الصيغة العامة.

 

  IF <CONDITION> THEN <COMMAND> 
  ELSEIF 
  <COMMAND> 
  ELSE 
  <COMMAND> 
  END IF
                    

 مثال على الجملة الشرطية IF … .Then … Elself … . Else

نريد عمل برنامج يدخل المستخدم العمر اذا كان العمر اكبر من 80 يعطي رسالة بأنك كبير سن واذا كان العمر اكبر من 50 يعطي رسالة بأنك لازلت في منتصف العمر أما أذا أدخلت العمر أقل من 50 فسوف يظھر لك رسالة انك لازلت شباب .

 ھل رايت الكود السابق أتوقع أن لديك المقدرة علي فھم ھذا الكود .

  IF <CONDITION> THEN <COMMAND> 
  ELSEIF 
  <COMMAND> 
  ELSE 
  <COMMAND> 
  END IF 
                             

المثال

                                Public Class Form1 
                              Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

                              Dim old As Integer 
                              old = InputBox(" ("أدخل العمر 
                              If old >= 80 Then 
                              MsgBox("عمرك كبير جدا") 
                              ElseIf old >= 50 Then 
                              MsgBox("لازلت في منتصف العمر") 
                              Else 
                              MsgBox("لازلت صغير في السن") 
                              End If 
                              End Sub 
                              End Class
                              

لاحظ الصور

عشره نصائح برمجية للمبرمجين

يجب على كل مبرمج ان يعرفها 

 الانتاج البرمجي متعلق بالصفاء الذهبي وليس بالمجال الزمني 

لا تشتغل على برنامجين في وقت واحد .

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

*لا تبرمج قبل ان تحلل ولا تحلل قبل ان تسآل العميل جدا

الحكمة تقتضي انك ان اردت تحديد موعد لتسليم البرنامج للعميل ، ان تقيم العمل حسب مدار مداركك ومعارفك ، ثم تضيف نصف المدة تحسبا للطوارى 

الصبر شي مهم جدا سيما بعد ان تقطع اشواطا مع البرنامج 

الحماس يقل تدريجيا مع مرور الوقت . لذلك ابدا بالامور التي تكرهها 

لست ملزما بمعرفه كل شي عن البرنامج لكي تبدا انجازه

وانت تبرمج لا تنس عنونه بلوكات الكود بتعليق ليسهل عليك العودة اليها في وقت لاحق 

حينما تنتهي من البرنامج قم بتجربته بشكل جنوني ، وحاول ان تتصيد دقائق الاخطاء

تعديل المقال