إشترك

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



بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعالى و بركاته في درس اليوم سنتعلم كيف نتعامل مع العمليات الحسابية في دلفي حيث سنتطرق لها بالتفصيل و إنشاء الله إن ينال هذا الدرس إعجابكم و نبدأ على بركة الله  و لكن يجب إعطاء كل شيء قدر كبيرا من الأهمية :
الطريقة الأولى لانجاز العمليات الحسابية
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;
2
3
4
5
6
7

8

الآن سنقوم بشرح كل ما كتبناه واحدة بواحدة :
1)    يعني سنقوم بكتابة متغير و هو الذي يمكن أن يتغير أو يعدل عليه أثناء تنفيذ البرنامج
2)    قمنا بإضافة متغيرين   a  و  b  من نوع integer   إي عدد صحيح أو عدد تام
3)    قمنا بإضافة متغير r  من نوع string   أي قيمة حرفية يمكن قراءتها بواسطة الأدوات الموجودة في دلفي
4)    بداية السطر البرمجي
5)    قمنا بتعين قيمة للمتغير b   و هي العدد الموجود في الأداة edit1 
6)    نفس الشرح السابق
7)    قمنا بتحديد أن قيمة  r    الحرفية تساوي جمع القيمتين الرقميتين  و تحويلهما لقيمة حرفية قابلة للقراءة
8)    قمنا بتحديد الأداة التي تساوي قيمتها قيمة r  أي الأداة التي ستظهر لنا النتيجة
أما لم أراد أن يقوم ببرمجة آلة حاسبة دون اللجوء للأزرار الكثيرة فأقترح عليه هذا الموضوع من هذا الرابط
Learn-delphi-blog.blogspot.com/calc-whith-delphi

السلام عليكم و رحمة الله تعالى و بركاته

هناك تعليقان (2)

  1. سلام الله عليكم ممكن دورة كاملة في الدلفي ؟

    ردحذف
    الردود
    1. https://www.youtube.com/watch?v=xhd4T1dvBM4&list=PLyKTqToYvr-XeGyr_uqQCL3pfBMVlkzVm

      حذف

جميع الحقوق محفوظة لــ تعلم دلفي بالعربية 2015 ©