برنامج الآلة الحاسبة هو أحد مهام البرمجة النموذجية. يمكن تنفيذ مثل هذا التطبيق في أي لغة برمجة تقريبًا. واحدة من أكثر لغات البرمجة شيوعًا هي دلفي ، والتي يمكن استخدامها لكتابة كود آلة حاسبة بسيط وفعال.
ضروري
بيئة برمجة دلفي
تعليمات
الخطوة 1
ابدأ بيئة برمجة دلفي التي تستخدمها. تخطيط واجهة التطبيق الخاص بك. سيكون هناك 26 زرًا في النموذج ، 10 منها مسؤولة عن الأرقام ، والباقي للوظائف. بالإضافة إلى ذلك ، سيكون هناك مكون TPanel سيتم عرض نتيجة الإجراء عليه.
الخطوة 2
أضف 4 متغيرات إلى الكود الذي سيخزن الأرقام التي أدخلها المستخدم ويحدد الوضع. فمثلا:
فار
أ ، ب ، ج: حقيقي ؛ // الأرقام التي يدخلها المستخدم
د: عدد صحيح ؛ // عمل الآلة الحاسبة
الخطوه 3
يمكن إضافة المتغيرات التي تم إنشاؤها إلى كل من المحمية والخاصة. الآن تعامل مع حدث OnClick لكل زر رقم. لجميع الأرقام ، سيكون الرمز متطابقًا:
الإجراء TForm1. Button1Click (المرسل: TObject) ؛
يبدأ
Panel1. Caption: = Panel1. Caption + 'number'
نهاية؛
استبدل "رقم" باسم الزر (إذا كان رقم 0 ، ثم Panel1. Caption + "0").
الخطوة 4
المتغير د في تنسيق عدد صحيح وسيحتوي على القيمة الرقمية المقابلة لأي إجراء. إذا تم تنفيذ الضرب ، فيمكنك ضبط الإجراء على القيمة 1 ، إذا كان القسمة - القيمة 2 ، إذا كانت الإضافة - القيمة 3 ، إلخ. لإجراء الضرب ، سيبدو الرمز كما يلي:
الإجراء TForm1. ButtonMultiplyClick (المرسل: TObject) ؛ // عمل مضاعف
يبدأ
أ: = StrToFloat (Panel1. Caption) ؛ // بعد الضغط على الزر ، يتم حفظ قيمة المتغير a
د: = 1 ؛ // يتم تعيين متغير الإجراء على القيمة المقابلة
Panel1. Caption: = '' ؛
نهاية؛
الخطوة الخامسة
قم بعمليات مماثلة للقسمة (ButtonDivClick) ، والإضافة (ButtonPlusClick) ، والطرح (ButtonMinusClick) ، والقسمة (ButtonPowerClick).
الخطوة 6
لمعالجة القيمة `` = '' ، تحتاج إلى إنشاء حالة حالة والنظر في كل إجراء على حدة:
الإجراء TForm1. ButtonClick (المرسل: TObject) ؛
يبدأ
الحالة د من
1: ابدأ // إذا كان d = 1 ، أي تم الضغط على زر الضرب ، فسيحدث الإجراء المقابل
ب: = StrToFloat (Panel1. Caption) ؛
ج: = أ * ب ؛
Panel1. Caption: = FloatToStr (c) ؛
نهاية؛
2: ابدأ
أ: = StrToFloat (Panel1. Caption) ؛
ج: = أ / ب ؛
Panel1. Caption: = FloatToStr (c) ؛
الخطوة 7
تعامل مع الجمع والطرح والأس بنفس الطريقة. الآلة الحاسبة جاهزة.
