برنامه ماشین حساب یکی از کارهای معمول برنامه نویسی است. چنین برنامه ای تقریباً در هر زبان برنامه نویسی قابل پیاده سازی است. یکی از محبوب ترین زبان های برنامه نویسی ، دلفی است که می تواند برای نوشتن کد ماشین حساب ساده و کارآمد مورد استفاده قرار گیرد.
ضروری است
محیط برنامه نویسی دلفی
دستورالعمل ها
مرحله 1
محیط برنامه نویسی دلفی را که استفاده می کنید شروع کنید. رابط برنامه خود را تنظیم کنید. در فرم 26 دکمه وجود دارد که 10 دکمه مسئول اعداد هستند و بقیه مربوط به توابع هستند. علاوه بر این ، یک م componentلفه TPanel وجود دارد که نتیجه عملکرد بر روی آن نمایش داده می شود.
گام 2
4 متغیر به کد اضافه کنید که اعداد وارد شده توسط کاربر را ذخیره می کند و حالت را تعیین می کند. مثلا:
var
a، b، c: واقعی؛ // شماره هایی که کاربر وارد می کند
د: عدد صحیح // اقدام ماشین حساب
مرحله 3
متغیرهای ایجاد شده را می توان به محافظت شده و خصوصی اضافه کرد. اکنون رویداد OnClick را برای هر دکمه شماره کنترل کنید. برای همه ارقام ، کد یکسان خواهد بود:
روش TForm1. Button1Click (فرستنده: TObject)؛
شروع
Panel1. Caption: = Panel1. Caption + "تعداد"
پایان؛
"number" را با نام دکمه جایگزین کنید (اگر عدد 0 باشد ، سپس Panel1. Caption + "0").
مرحله 4
متغیر d در قالب عدد صحیح است و حاوی مقدار عددی مربوطه برای هر عملی است. اگر ضرب انجام شود ، می توانید عمل را روی مقدار 1 تنظیم کنید ، اگر تقسیم - مقدار 2 ، اگر جمع - مقدار 3 ، و غیره. برای عمل ضرب ، کد به صورت زیر خواهد بود:
روش TForm1. ButtonMultiplyClick (فرستنده: TObject)؛ // عمل ضرب
شروع
a: = StrToFloat (Panel1. Caption) ؛ // پس از فشار دادن دکمه ، مقدار متغیر a ذخیره می شود
د: = 1؛ // متغیر action روی مقدار مربوطه تنظیم می شود
پنل 1. عنوان: ="
پایان؛
مرحله 5
عملیات مشابهی را برای تقسیم (ButtonDivClick) ، جمع (ButtonPlusClick) ، تفریق (ButtonMinusClick) و نمایش (ButtonPowerClick) انجام دهید.
مرحله 6
برای پردازش مقدار "=" ، باید شرطی کنید و هر عمل را به نوبه خود در نظر بگیرید:
روش TForm1. ButtonClick (فرستنده: TObject)؛
شروع
مورد d از
1: شروع // اگر d = 1 ، یعنی دکمه ضرب فشرده شود ، عملکرد مربوطه رخ می دهد
b: = StrToFloat (Panel1. Caption) ؛
c: = a * b ؛
صفحه 1. عنوان: = FloatToStr (c)
پایان؛
2: شروع کنید
a: = StrToFloat (Panel1. Caption) ؛
c: = a / b ؛
صفحه 1. عنوان: = FloatToStr (c)
مرحله 7
جمع ، تفریق و بیان را به همین ترتیب اداره کنید. ماشین حساب آماده است.
