دروس في البرمجة بلغة دلفي بالصوت والصورة (4)

[omf_12000]

السلام عليكم ورحمة الله وبركاته
الإخوة الكرام في منتدى Delphi4Arab
اسمحوا لي أن أقدم لكم الدرس الرابع من سلسلة دروس في البرمجة بلغة دلفي بالصوت والصورة، وأتمنى أن تكون ذات فائدة للجميع. في الدرس (3) تعرفنا على أنواع المتغيرات وتعريف المتغيرات. في هذا الدرس إن شاء الله سوف نستمر مع المبادئ الأساسية للبرمجة بلغة دلفي، سوف نقوم بتصميم برنامج لحساب مجموع عددين وإظهار النتيجة في (Edit).
سوف نحتاج إلى:
(Edit1) لإدخال العدد الأول.
(Edit2) لإدخال العدد الثاني.
(Edit3) لإظهار النتيجة.

سوف نقوم بتعريف ثلاث متغيرات من نوع (Integer):

كود :

var n1, n2, sum: Integer;

المتغير الأول (n1) للعدد الأول.
المتغير الثاني (n2) للعدد الثاني.
المتغير الثالث (sum) للعدد للمجموع.
بحيث: (sum = n1 + n2)

سوف نقوم بتعيين القيمة الموجود في (Edit1) للمتغير (n1):

كود :

n1 := Edit1.Text;

طبعا سوف تظهر رسالة خطأ، لماذا؟ لعدم توافق المتغيرات:

كود :

Integer = String

ما هو الحل؟ الحل استخدام الدالة: (StrToInt) لتحويل String إلى Integer

كود :

n1 := StrToInt(Edit1.Text);

بنفس الطريقة

كود :

n2 := StrToInt(Edit2.Text);

ومن ثم حساب الناتج وتعيين قيمة sum لـ Edit3 وسوف نستخدم الدالة (IntToStr) للتحويل من Integer الى String.

كود :

Sum := n1 + n2; Edit3.Text := IntToStr(sum);

الكود كاملا:

كود :

procedure TForm1.Button1Click(Sender: TObject); var n1, n2, sum: Integer; begin n1:=StrToInt(Edit1.Text); n2:=StrToInt(Edit2.Text); sum:=n1+n2; Edit3.Text:=IntToStr(sum); end;

وبنفس الطريقة يمكن تصميم برنامج يقوم بحساب حاصل طرح عددين، وحاصل الضرب وأيضا حاصل القسمة.
لاحظ عند تشغيل البرنامج وإدخال بيانات خاطئة مثل (فراغ أو حروف) سوف تظهر رسالة خطأ، في هذه الحالة يمكن استخدام جملة (try except) وتستخدم للتعامل مع الأخطاء مثل القسمة على صفر أو إدخال بيانات غير صحيحة.

كود :

try ststments except exception block end;

بحيث يتم تنفيذ الأوامر المحصورة بين (try- except) وفي حالة وجود خطأ يتم تنفيذ الأوامر المحصورة بين (except- end) ويصبح الكود كالاتي:

كود :

procedure TForm1.Button1Click(Sender: TObject); var n1, n2, sum: Integer; begin try n1:=StrToInt(Edit1.Text); n2:=StrToInt(Edit2.Text); except ShowMessage('لقد تم إدخال بيانات غير صحيحة'); Exit; end; sum:=n1+n2; Edit3.Text:=IntToStr(sum); end;

(ShowMessage) تستخدم لإظهار رسالة للمستخدم.
(Exit) للخروج من procedure.

رابط لتنزيل الكود:

كود :

http://www.4shared.com/rar/HJQ1Sp0U/Lesson_4_Project.html

رابط لتنزيل الدرس في ملف ورد:

كود :

http://www.4shared.com/rar/tW-qYaBa/Lesson_4.html

للاطلاع على باقي الدروس :
http://www.delphi4arab.net/forum/showthr...p?tid=6000