الفصل الثانى الشروط والقرارات

https://www.facebook.com/video.php?v=794435867290930&set=o.371834209635981&type=2&theater

أستخدام جملة IF

تستخدم جملة  IF Statementللاختيار بين بديلين (أمرين) بمعنى أنه إذا تم تنفيذ شرط معين يتم تنفيذ البديل الأول وإذا لم يتحقق هذا الشرط يتم تنفيذ البديل الثانى . ونستخدم فى هذه الحالة الجملة If Then   ……………Elseوتأخذ الشكل التالى : -

If Condition              

Then  

Statement 1

Else

Statement 2

End If  

Statement 3

الداله IF بمعني لو تستخدم عنندما نريد البرنامج يختار من عده اشياء

مثلا لو المستخدم كتب 1 يظهر صوره طفل ولو كتب 2 يظهر صوره راجل وهكذا

صيغ الداله IF

ابسط صوره للداله هي

            

IF                    then

جمله الشرط

End IF

تستخدم هذه الصوره لو كان هناك شرط واحد فقط

مثلا

IF text1.text = 5 then

Text2.text  = 10

End if

فى هذا البرنامج لو كان تكست1 = 5 فان تكست 2 = 10

الصوره الثانيه

IF                then

جمله الشرط

Else

فى حاله عدم تحقق جمله الشرط

End if

مثال

عمل برنامج رقم سري \

اولا افتح الفيجوال

 انشئ  textboxوcommand   

فى textbox  غير الخاصيه passwordchar   الي نجوم او كما تحب ان يظهر الرقم السري

اكتب فىcommand  هذا الكود

Private Sub Command1_Click()

If Text1.Text = "12345" Then

Msgbox"good password"

Else

Msgbox "wrong password"

End If

End Sub

شرح الكود

لو تكست 1 = 12345 اظهر رساله ان كلمه السر صحيحه

غير ذلك اظهر رساله ان كلمه السر خاطئه

Msgbox  معناها اظهار رساله للمستخدم

الصيغه الثالثه وهي فى حاله تعدد الشروط

If                        then

نتيجه الشرط الاول

Elseif                 then

نتيجه الشرط الثاني

Elseif                then

وهكذا

end if

الان عمل برنامج تقدير درجات الطلاب

فالطالب الحاصل اعلى من 85 يكون امتياز

      و الطالب الحاصل اعلى من 75 يكون  جيد جدا      

      و الطالب الحاصل اعلى من 65 يكون  جيد    

       و الطالب الحاصل اعلى من 50يكون  مقبول

    والطالب الحاصل اقل من 50 يكون راسب

الان فكر فى واجهه البرنامج

ننشئ textbox  لتوضع به درجه الطلاب

ننشئ زر امر command

فى السطر الأول نضع If  وبعدها الشرط الصحيح Condition  فى حالة تنفيذ الجملة الصحيحة وهى الجملة رقم 1  تكون Tureأما إذا كان الشرط الثانى غير صحيح يأتى بعد Else الجملة الثانية Conditionوتكون False أما الحالة الثالثة فى حالة أن يكون القيمة صفر او ما نهاية وهنا الجملة الثالثة Conditionوتكون False

بحيث يقوم المستخدم بإدخال الرقم الأول فى Textboxوالرقم الثانى فى Textbox2ويقوم بالضغط على Buttonفيظهر الناتج فى Label4قم بالضغط مرتين على Button1وأكتب الكود
 private Sub Button1 – Click (Byval Sender As System. Object,Byval As System                                                     

سنقوم بالإعلان عن ثلاث متغيرات

Dim N1,N2,Sum  As Decimal

سنقوم بأمر تخصيص بحيث نضع الرقم الموجود فى تكست بوكس وفى المتغير رقم1N1=Textbox1.Text

سنفعل نفس الشىء مع المتغير رقم2

N2=Textbox2.Text

سنستخدم قاعدة If للتأكد أن الرقم الثانى لا يساوى صفر فإذا كان الشرط صحيحا أى أن تم 2 يساوى صفر سينفذ البرنامج  ما بعد Runويخرج رسالة تفيد بأنة لا يجوز القسمة على صفر

If N2 = 0 Then

") لايجوز القسمة على صفر ")MsgBox

Else

واذا كان 2 لا يساوى صفر سيقوم البرنامج بقسمة الرقمين

N2/N1 Sum =

Label4.Text= Sum

End If

تدربيات 

ما هو التعبير الشرطى 

التعبير الشرطى هو علاقة بين كميتين وله قيمة تتوقف على صحة تحقق الشرط أو عدم تحققة تأخذ القيمة  فى التحقق True  أو False

وفى حالة عدم تحققة تأخذ القيمةFalse فمثلا إذا كان لدينا متغيرات وليكن A=50   B=80   وقلنا أن B>Aفهنا يكون الشرط صحيح وتأخذ القيمة True أما إذا قلنا A>B فهنا يكون الشرط خاطئا وتأخذ القيمة False

ولصياغة التعبيرات الشرطية نستخدم بعض العاملات تسمى معاملات

العلامة	العلاقة	مثال	النتيجة
>	أكبر من	A>B	False
>	أصغرمن	A>B	True
=	يساوى	A=B	False
<>	لايساوى	A<>B	True
=<	أكبر من أو يساوى	A>=B	False
=>	أصغر من أو يساوى	A>=B	True

الشروط المركبة :

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

Or – and – Not ) )

·المعامل المنطقى or : إذا كان أحد الشرطين أو كلاهما صحيحا فإن الشرط المركب يكون صحيحا
·المعامل المنطقى and : إذا كان الشرطان كلاهما صحيح فإن الشرط المركب يكون صحيحا
·المعامل المنطقى not : و يعنى إذا كان الشرط صحيحا مع not فإن الناتج يكون false و العكس صحيح
أستخدام الأمر If مع الأدوات  (Check Box- Group Box - Radio Button)
الأداة Radia Button 
هى أداة تستخدم فى عرض مجموعة من الأختيارات والمستخدم يقوم بإختيار واحد فقط منها لا يجوز له أختيار أكثر من بديل 

أهم  الخصائص

الأداة Check Box
هى أداة تستخدم فى عرض مجموعة من الأختيارات والمستخدم يقوم باختيار أكثر من أختيار من هذه الاختيارات 
فى وقت واحد فقط منها ولا يجوز له اختيار أكثر من بديل 

الأداة Group Box
تستخدم لتنظيم الأدوات على نافذة النموذج وتكون فى شكل مستطيل لضم مجموعة من الأدوات وأهم هذه الخصائص هى الأداةEnabled التى تبين هل هذه الأداة فعالة أم لا خاصية Flat tyle التى تحدد الشكل الخارجى للاداة 

ثالثا  الجمل الشرطية باستخدام Select Case

https://www.facebook.com/video.php?v=341380512736474&set=o.371834209635981&type=2&theater

لا تختلف قاعدة Select Case كثيرا عن قاعدة If من ناحية الوظيف لكن لكل حادث حديث
كيف يمكننا استخدام Select Case

1)
يمكننا استخدام لمقارنة قيمة واحدة 

مثال:

كود :

Dim X As Integer = 20
Select Case X
Case 20
MsgBox("القيمة هي 20")
Case Else
MsgBox("القيمة غير 20")
End Select

وهنا قمنا باختبار هل المتغير X يحمل القيمة 20 أم لا

2)
مقارنة مدى معين
تمعن في المثال التالي:

كود :

Select Case X
Case Is >= 90
Result = "ممتاز"
Case 80 To 89
Result = "جيد جدا"
Case 70 To 79
Result = "جيد"
Case 60 To 69
Result = "متوسط"
Case 50 To 59
Result = "مقبول"
Case Else