http://www.swalif.net/swalifsoft/ubb/salam.gif
اليوم أنا متشجع أكثر من أمس ..
-----------------------------
سنتعلم اليوم الشرط من قواعد البرمجة و سنشرح التكرار في الدرس القادم
ملاحظة : قواعد البرمجة في ديلفي هي نفس قواعد لغة باسكال.
أولا الشرط :
وله ثلاث صيغ
1-if..then
الصيغة العامة
if (condition) then
أمر؛
================
أو
================
حيث condetion هو الشرط
المعتاد أن البرنامج يسير في خطواته بالتسلسل وهو غير مرغوب به دائماً ولذاك فإن الأوامر التي تلي الشرط لاتتنفذ إلا بعد تحقق الشرط
2-if .. then..else
الصيغة العامة له
if (condition) then
begin
;
أمر أو عدة أوامر ترغب بتنفيذها عند تحقق الشرط؛
;
end;
else
begin
;
أمر أو عدة أوامر ترغب بتنفيذها عند عدم تحقق الشرط؛
;
end;
عند وصول البرنامج لجملة الشرط هذه يتم اختبار الشرط فإن تحقق نفذ الأوامر ما بعد then وإلا سينفذ الأوامر ما بعد else
3-جملة الشرط المتعددcase
الصيغة العامة
case (var) of
(value1: (command or commands;
(value2: (command or commands;
(value3: (command or commands;
end;
حيث var اسم المتغير ،value1,value2,value3 قيم ثابتة,command or commands أمر أو عدة أوامر يجب ملاحظة أن في حالة تعدد الأوامر يجب حصرها بالمميزينbegin,end
مثال: نريد كتابة برنامج يصنف قيمة العدد سالب أو موجب
أنشئ مشروع جديد وضع عليه زرbutton1 وعلبتا إدخال Edit1,Edit2 أنشئ الحدث OnClicK للزر وذلك بالنقر المزدوج عليه اكتب الأوامر التالية
if StrToInt(Edit1.text)>0 then
Edit2.Caption:='العدد موجب'
else
Edit2.Caption:='العدد سالب'؛
شغل البرنامج ستجد مشكلة وهي أن البرنامج سيصنف العدد 0 ضمن الأعداد السالبة هناك طريقة لتفادي المشكلة و هي إدراج شرط آخر بعد else يخرج الصفر من الأعداد السالبة ولكن هل يجوز إدخال شرط داخل شرط آخر في لغتي باسكال وديلفي؟ الجواب : نعم. إذن يكون الحل كالتالي
if StrToInt(Edit1.text)>0 then
Edit2.Caption:='العدد موجب'
else
if StrToInt(Edit1.text)=0 then
Edit2.Caption:='العدد هو الصفر'
else
Edit2.Caption:='العدد سالب'؛
=============================== ملاحظة ===============================
يجب ملاحظة الفرق بين علامة التعادل= وعلامة الإسناد=: فعلامة التعادل = يستخدم في جمل الشرط للمقارنة وعلامة الإسناد تكون لنقل القيمة من يمين العلامة إلى المتغير الموجود على يسارها
=====================================================================
الظاهر أني أطلت عليكم
------------------
أبو ماجد الصارم
azzozhsn@hotmail.com
[b]<small><small>[ تم تعديل الموضوع بواسطة أبو ماجد الصارم يوم 02-05-2000]
