17-02-2010, 03:10 PM
السلام عليكم ورحمة الله وبركاته
الإخوة الكرام في منتدى Delphi4Arab
اسمحوا لي أن أقدم لكم الدرس الرابع من سلسلة دروس في البرمجة بلغة دلفي بالصوت والصورة، وأتمنى أن تكون ذات فائدة للجميع. في الدرس (3) تعرفنا على أنواع المتغيرات وتعريف المتغيرات. في هذا الدرس إن شاء الله سوف نستمر مع المبادئ الأساسية للبرمجة بلغة دلفي، سوف نقوم بتصميم برنامج لحساب مجموع عددين وإظهار النتيجة في (Edit).
سوف نحتاج إلى:
(Edit1) لإدخال العدد الأول.
(Edit2) لإدخال العدد الثاني.
(Edit3) لإظهار النتيجة.
سوف نقوم بتعريف ثلاث متغيرات من نوع (Integer):
المتغير الأول (n1) للعدد الأول.
المتغير الثاني (n2) للعدد الثاني.
المتغير الثالث (sum) للعدد للمجموع.
بحيث: (sum = n1 + n2)
سوف نقوم بتعيين القيمة الموجود في (Edit1) للمتغير (n1):
طبعا سوف تظهر رسالة خطأ، لماذا؟ لعدم توافق المتغيرات:
ما هو الحل؟ الحل استخدام الدالة: (StrToInt) لتحويل String إلى Integer
بنفس الطريقة
ومن ثم حساب الناتج وتعيين قيمة sum لـ Edit3 وسوف نستخدم الدالة (IntToStr) للتحويل من Integer الى String.
الكود كاملا:
وبنفس الطريقة يمكن تصميم برنامج يقوم بحساب حاصل طرح عددين، وحاصل الضرب وأيضا حاصل القسمة.
لاحظ عند تشغيل البرنامج وإدخال بيانات خاطئة مثل (فراغ أو حروف) سوف تظهر رسالة خطأ، في هذه الحالة يمكن استخدام جملة (try except) وتستخدم للتعامل مع الأخطاء مثل القسمة على صفر أو إدخال بيانات غير صحيحة.
بحيث يتم تنفيذ الأوامر المحصورة بين (try- except) وفي حالة وجود خطأ يتم تنفيذ الأوامر المحصورة بين (except- end) ويصبح الكود كالاتي:
(ShowMessage) تستخدم لإظهار رسالة للمستخدم.
(Exit) للخروج من procedure.
رابط لتنزيل الكود:
رابط لتنزيل الدرس في ملف ورد:
للاطلاع على باقي الدروس :
http://www.delphi4arab.net/forum/showthr...p?tid=6000
الإخوة الكرام في منتدى 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 := 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