+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : التعامل مع العمليات الحسابة (/showthread.php?tid=6305)
التعامل مع العمليات الحسابة - rahiche - 09-07-2014
بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعالى و بركاته
في درس اليوم سنتعلم كيف نتعامل مع العمليات الحسابية في دلفي
الطريقة الأولى لانجاز العمليات الحسابية
1- كيف تجرى العمليات الحسابية لا بد أولا من توفر الأدوات التي سنقوم فيها بكتابة الأعداد التي سنقوم بكتابتها فلا بد أولا من توفر 3 أدوات edit أو 2 فقط حيث يمكن استبدا الثالثة بأداة label للنتيجة يكون النص الموجود فيها 0 و 4 أدوات button لكي تقوم بالحساب و بعض المكونات الأخرى لتحسين الشكل و توضع البرنامج و هي 4 أداوت label و بعدها سيصبح شكل الفورم هكذا :
![[صورة: qxNA2y.jpg]](http://im73.gulfup.com/qxNA2y.jpg)
2- أكتب الكود في كل زر حسب نوع العملية الحسابية و سأقوم بوضع الكود الخاص بعملية الجمع
Edit3.text:=floattostr(strtofloqt(edit1.text) + strtofloat(edit2.text));
و الآن سنشرح الكود بالتفصيل
الكود أو الأداة الشرح
Edit3.text في النص الموجود في هذه الأداة تظهر النتيجة كتابيا
FloatToStr هذا السطر البرمجي معناه أن القيمة التي ستظهر في أداة النتيجة هي قيمة حرفية حيث أن وضيفة هذا السطر هو تحويل النتيجة من القيمة العددية من النوع flaot إلى حرفية string
StrToFloat هو عكس الشرح السابق و هذا الكود من أجل تحويل القيمة النصية الموجودة في الأداة إلى قيمة عددية لكي يتم التعرف عليها و حسابها فلا يمكن حساب القيمة النصية
Edit1.text النص الموجود في هذه الأداة هو العدد الأول
Edit2.text النص الموجود في هذه الأداة هو العدد الثاني
الطريقة الثانية لإنجاز العمليات الحسابية
الطريقة الثانية تقريبا هي نفس الطريقة و لكن فيها بعض المميزات و سنشرحها و الآن قم بإضافة المكونات كما تبين الصورة التالية :
![[صورة: 5HNvX4.jpg]](http://im73.gulfup.com/5HNvX4.jpg)
و بعدها قم بكتابة الكود التالي في حدث الضغط على الزر + و قبل ذلك قم بحذف begin لكي لا تختلط الأمور
كود :
1 var
b,a : integer;
r : string;
begin
b:=strtoint(edit1.text);
a:=strtoint(edit2.text);
r:=inttostr(strtoint(edit1.Text) + strtoint(edit2.Text);)
label1.Caption:=r;1) يعني سنقوم بكتابة متغير و هو الذي يمكن أن يتغير أو يعدل عليه أثناء تنفيذ البرنامج
2) قمنا بإضافة متغيرين a و b من نوع integer إي عدد صحيح أو عدد تام
3) قمنا بإضافة متغير r من نوع string أي قيمة حرفية يمكن قراءتها بواسطة الأدوات الموجودة في دلفي
4) بداية السطر البرمجي
5) قمنا بتعين قيمة للمتغير b و هي العدد الموجود في الأداة edit1
6) نفس الشرح السابق
7) قمنا بتحديد أن قيمة r الحرفية تساوي جمع القيمتين الرقميتين و تحويلهما لقيمة حرفية قابلة للقراءة
8) قمنا بتحديد الأداة التي تساوي قيمتها قيمة r أي الأداة التي ستظهر لنا النتيجة
التعامل مع العمليات الحسابة - karika2 - 09-07-2014
عفواّ اخى الكريم يوجد خطأبسيط فى الاقواس :.
كود :
var
b,a : integer;
r : string;
begin
b:=strtoint(edit1.text);
a:=strtoint(edit2.text);
r:=inttostr(strtoint(edit1.Text) + strtoint(edit2.Text));
label1.Caption:=r;
end;كود :
var
b,a,r: integer;
begin
b:=strtoint(edit1.text);
a:=strtoint(edit2.text);
r:=b+a;
label1.Caption:=IntToStr(r);
end;
:p
التعامل مع العمليات الحسابة - rahiche - 09-07-2014
شكرا يا أخي و لكن أن كنت أشير للمتتبع أنه يجب التغيير من القيمة النصية إلى القيمة الرقمية لذلك ركزت على الأمر
التعامل مع العمليات الحسابة - ahmad1951 - 08-05-2015
اشكرك اخي
على المجهود الجيد وعلى هذا الدرس المفيد وأتمنى لك التوفيق