الموضوع: الدرس السادس دلفي

بسم الله الرحمان الرحيم
السلام عليكم ورحمة الله وبركاته إخواني الكرام نلتقي مجددا في درس جديد من دروس دلفي
وكما جرت العادة نبدأ مثلا جديد افتح مشرع جديد ثم قم بوضع مكون Edit و 17 زر Button
واجعلها تبدو كما يلي

انقر نقرا مزدوجا على الزر الذي يحمل رقم 1 واكتب الكود التالي

المقصود بهذا الكود أننا إذا ضغطنا على هذا الزر سنضيف للعنصر Edit في الخاصية Text الرمز '1' بالإضافة إلى ما كان مكتوب من قبل باعتبار أننا نكتب الرقم المراد إجراء العمليات عليه
كرر هذه العملية مع بقية الأرقام و الأرقام فقط دون غيرها ما الأخذ في الحسبان تغيير '1' إلى رقم الزر الذي تضع عليه الكود
الزر (.) اكتب هذا الكود

أما الزر C فكتب الكود التالي

معنى هذا الكود عند الضغط على هذا الزر امسح الموجود في الخاصية Text للمكون Edit
أما الآن فيجب علينا أن ننشاء متغير حقيقي ولنسميه OP مثلا و لك الحرية في اختيار اسم أخر شرط أن لا يكون
معرف من قبل البرنامج أو من قبلك سابقا
قد تتساءل لماذا ننشاء هذا المتغير ؟؟
ببساطة هذا المتغير يساعدنا في الاحتفاظ بالقيمة التي تكتب على العنصر Edit إذا أردانا أن نجري عليه إحدى العمليات الأربع إذ سيمحى ما في العنصر Edit استعدادا لاستقبال الرقم الجديد طبعا بعد عملية التحويل إلى أرقام سنتحد عن هذا الأمر في وقته أما الآن اكتب في منطقة التصريحات Var التالي

بعدما عرفنا المتغير الأول ننتقل الآن إلى إنشاء المتغير الثاني وقد أسميته VAL من نوع Byte وهنا أيضا لك الحرية في التسمية شرط أن لا يكون معرفا من البرنامج أو من طرفك من قبل و سأشرح لحقا دور هذا المتغير
الآن أضف المتغير val إلى قسم الصريحات كما يلي

و الآن انقر نقرا مزدوجا على زر (+) واكتب الكود التالي



انقر نقرا مزدوجا على زر(x) واكتب الكود التالي

انقر نقرا مزدوجا على زر(-) واكتب الكود التالي
[img]http://www.jawaher-qtr.net/up/378bf27a55.jpg[/img
انقر نقرا مزدوجا على زر (/)واكتب الكود التالي


معنى هذه الاكواد بسيط جدا
فالكود الأول معناه أن المتغير OP يأخذ قيمة المكون Edit وذلك بعد تحويلها إلى رقم
أما المتغيرVAL فهو بمثابة المؤشر ونستخدمه هنا للاستدلال على العمليات الأربع التي ستجرى على الأرقام وهو في الكود الأول اخذ القيمة 1 وهو يأشر لعملية الجمع
وفي الأخير نمسح المكون Edit لنهيئه لاستقبال الطرف الثاني من الأرقام

وهو ما يجري على الاكواد الأخرى معادا تغيير القيمة التي يأخذها المتغير VAL فقط وذلك حسب العملية التي سيمثلها المتغير الذي حددناه للعملية
أخيرا زر المساواة
انقر عليه نقرا مزدوجا واكتب هذا الكود


معنى هذا الكود
إذا كان المتغير val يساوي 1 المتغير op + بالعنصر Edit طبعا بعد تحويلها إلى عدد حقيقي
ثم نغير العدد المتحصل عليه كنتيجة إلى نص لنضعه في المكون Edit

إذا كان المتغير val يساوي 2 المتغير op * بالعنصر Edit طبعا بعد تحويلها إلى عدد حقيقي
ثم نغير العدد المتحصل عليه كنتيجة إلى نص لنضعه في المكون Edit

إذا كان المتغير val يساوي 3 المتغير op - بالعنصر Edit طبعا بعد تحويلها إلى عدد حقيقي
ثم نغير العدد المتحصل عليه كنتيجة إلى نص لنضعه في المكون Edit

إذا كان المتغير val يساوي 4 المتغير op / بالعنصر Edit طبعا بعد تحويلها إلى عدد حقيقي
ثم نغير العدد المتحصل عليه كنتيجة إلى نص لنضعه في المكون Edit

نفذ البرنامج وقم بتجربة البرنامج
وهكذا نكون قد انتهينا من درسنا لهذا اليوم إلى الملتقى في الدرس القادم بحول الله
والسلام عليكم ورحمة الله

إظافة صغيرة

كود:

edit1.text:=FormatFloat('###,###,##0',op+strToFloat'edit1.text);

مشكور ياعبدالعلي على الاضافة
فعلا اضافة مميزة من شخص مميز تحياتي

اضافة اخرى بسيطة
في الخاصية KeyPress ل edit نكتب

كود:

if not (key in ['0'..'9',#08]) then
         key := #0;

لمنع كتابت اي رمز ماعدا الارقام

نفس الكود في delphi winform

كود:

   if (not (e.KeyChar.IsNumber(e.KeyChar)))and (e.KeyChar<>char(8)) then
          e.Handled := true;

شكرا على الدروس وانا متابع لها بإدن الله
بالتوفيق

السلام عليكم
شكرا جزيلا حبيبي و الله مميز وشرفتنا بتميزك
وفقك الله أنت والغالي علوي شكرا

أرجوك لا تجعلنا ننتظر كثيرا فنحن جد متحمسين لدروسك

السلام عليكم
اخي نصر الدين
لكي نضع شكل العدد الحقيقي الناتج اي تكون الفاصلة في عددين فقط لا اكثر

معذرة أنا لا يظهر لي سوى الكلمات ولا تظهر الصور المدرجة ضمن الموضوع فرجاء كيف العمل لأن الدرس أعجبني
من فضلكم