[الحرية]

:حسناً شباب ، هذا اليوم بنتوسع شوي ، فلو أي واحد مو فاهم أي درس سابق ، فليرسل رسالة أو سوؤال في موضوع : من مهتم منكم في تعلم لغة visual basic ، وشكراً .
-------------------------------------------------------------------
في الدرس السابق تعلمنا كيف نغلق النافذة وكيف نفتحها ، أداة الشرط هذه موجودة تقريباً في جميع اللغات ، وتستخدم بكثرة، اليوم سنتعلم كيف تضع شرط :

then + أمر + if

end if

حسناً أرجو أن يكون هذا الدرس سهل ، دعني أشرح الخرابيط التي بفوق :-
if : أداة الشرط ، وهي ثابتة عند عمل الشرط .
then : تأتي بعد الأوامر في الشرط نفسه ليعطي الحكم .

ببساطة هذا الشرط يجوي على شرط ما ( أنت تضعه ) ، عندما تكون قيمته صحيحة ( أي قد تنفذت ) فإن الأوامر التي ستأتي بعده ستعمل بإذن الله ، أما إذا كانت خاطئة فإنها لن تعمل . مثلاً نقول هذا الشرط :-
If text1.text = 1 then
text2.text = 5
end if
لقد فرض الشرط إذا كان الصندوق الأول يحوي على رقم واحد ، فإن الصندوق الثاني ستكون قيمته 5 .
أو هذا مثال آخر :
If text1.text = 5 then
text2.text = text1.text * 3
end if
هذا الشرط يقول إن إذا كان صندوق الأول قيمته 5 ، ستكون قيمة الصندوق الثاني مساوية للصندوق الأول × 3 أيضاً ..... هل هناك شيء ما خطأ ! :confused

أوه نعم نسيت شيءً مهماً
نسيت ما أقول يمكن عمل عمليات حسابية مثلاً :
text1.text = 1 * 3 / 4 + 6
أو حتى :
text1.text = text4.text / label2.caption + command1.left
ولكن إذا كانت إحداها ليست قيمة عددية سيكون هناك خطأ في البرنامج ، ومن العمليات :
/ قسمة ، + زائد ، - طرح ، * ضرب ( وليس × ) ، ^ أس

على كل حال ، أراكم في الدرس القادم .