التعامل مع العمليات الحسابة

[rahiche]

بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعالى و بركاته
في درس اليوم سنتعلم كيف نتعامل مع العمليات الحسابية في دلفي
الطريقة الأولى لانجاز العمليات الحسابية
1- كيف تجرى العمليات الحسابية لا بد أولا من توفر الأدوات التي سنقوم فيها بكتابة الأعداد التي سنقوم بكتابتها فلا بد أولا من توفر 3 أدوات edit أو 2 فقط حيث يمكن استبدا الثالثة بأداة label للنتيجة يكون النص الموجود فيها 0 و 4 أدوات button لكي تقوم بالحساب و بعض المكونات الأخرى لتحسين الشكل و توضع البرنامج و هي 4 أداوت label و بعدها سيصبح شكل الفورم هكذا :

2- أكتب الكود في كل زر حسب نوع العملية الحسابية و سأقوم بوضع الكود الخاص بعملية الجمع
Edit3.text:=floattostr(strtofloqt(edit1.text) + strtofloat(edit2.text));
و الآن سنشرح الكود بالتفصيل
الكود أو الأداة الشرح
Edit3.text في النص الموجود في هذه الأداة تظهر النتيجة كتابيا
FloatToStr هذا السطر البرمجي معناه أن القيمة التي ستظهر في أداة النتيجة هي قيمة حرفية حيث أن وضيفة هذا السطر هو تحويل النتيجة من القيمة العددية من النوع flaot إلى حرفية string
StrToFloat هو عكس الشرح السابق و هذا الكود من أجل تحويل القيمة النصية الموجودة في الأداة إلى قيمة عددية لكي يتم التعرف عليها و حسابها فلا يمكن حساب القيمة النصية
Edit1.text النص الموجود في هذه الأداة هو العدد الأول
Edit2.text النص الموجود في هذه الأداة هو العدد الثاني
الطريقة الثانية لإنجاز العمليات الحسابية
الطريقة الثانية تقريبا هي نفس الطريقة و لكن فيها بعض المميزات و سنشرحها و الآن قم بإضافة المكونات كما تبين الصورة التالية :

و بعدها قم بكتابة الكود التالي في حدث الضغط على الزر + و قبل ذلك قم بحذف 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]

عفواّ اخى الكريم يوجد خطأبسيط فى الاقواس :.

كود :

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]

شكرا يا أخي و لكن أن كنت أشير للمتتبع أنه يجب التغيير من القيمة النصية إلى القيمة الرقمية لذلك ركزت على الأمر

[ahmad1951]

اشكرك اخي
على المجهود الجيد وعلى هذا الدرس المفيد وأتمنى لك التوفيق