Kalkulyator proqramı tipik proqramlaşdırma tapşırıqlarından biridir. Belə bir tətbiq demək olar ki, hər hansı bir proqramlaşdırma dilində həyata keçirilə bilər. Ən populyar proqramlaşdırma dillərindən biri sadə və səmərəli kalkulyator kodu yazmaq üçün istifadə edilə bilən Delphi.
Zəruri
Delphi proqramlaşdırma mühiti
Təlimat
Addım 1
İstifadə etdiyiniz Delphi proqramlaşdırma mühitinə başlayın. Tətbiqiniz üçün interfeysi planlaşdırın. Formada 26 düymə olacaq, bunlardan 10-u rəqəmlərdən, qalanları funksiyalardan məsuldur. Əlavə olaraq, hərəkətin nəticəsinin göstəriləcəyi bir TPanel komponenti olacaqdır.
Addım 2
Kodu istifadəçinin daxil etdiyi nömrələri saxlayacaq və rejimi təyin edəcək 4 dəyişən əlavə edin. Misal üçün:
var
a, b, c: real; // istifadəçinin daxil etdiyi nömrələr
d: tam; // kalkulyator əməliyyatı
Addım 3
Yaradılan dəyişənlər həm qorunan, həm də xüsusi olaraq əlavə edilə bilər. İndi hər bir düymə üçün OnClick hadisəsini idarə edin. Bütün rəqəmlər üçün kod eyni olacaq:
proseduru TForm1. Button1Click (Göndərən: TObject);
başlamaq
Panel1. Caption: = Panel1. Caption + 'nömrə'
son;
"Sayı" düymə adı ilə əvəz edin (0 rəqəmidirsə, Panel1. Caption + '0').
Addım 4
D dəyişən tam formatda və hər hansı bir hərəkətin müvafiq ədədi dəyərini ehtiva edəcəkdir. Çarpma aparılacaqsa, əməli 1-ə, əgər bölünmə - 2-yə, əlavə olunarsa - 3-ə və s. Təyin edə bilərsiniz. Çarpma əməliyyatı üçün kod belə görünür:
proseduru TForm1. ButtonMultiplyClick (Göndərən: TObject); // çoxaltmaq
başlamaq
a: = StrToFloat (Panel1. Caption); // düyməsinə basdıqdan sonra a dəyişəninin dəyəri qeyd olunur
d: = 1; // fəaliyyət dəyişənləri müvafiq dəyərə qoyulur
Panel1. Caption: = '';
son;
Addım 5
Bölmə (ButtonDivClick), əlavə (ButtonPlusClick), toplama (ButtonMinusClick) və göstərici (ButtonPowerClick) üçün oxşar əməliyyatlar edin.
Addım 6
"=" Dəyərini işləmək üçün bir vəziyyət şərti yaratmalı və hər əməliyyatı növbə ilə nəzərdən keçirməlisiniz:
proseduru TForm1. ButtonClick (Göndərən: TObject);
başlamaq
iş d
1: başlayın // əgər d = 1, yəni vurma düyməsinə basılırsa, müvafiq əməliyyat baş verir
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
son;
2: başlayın
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Addım 7
Əlavə etmə, çıxarma və göstəriciləri eyni şəkildə idarə edin. Kalkulyator hazırdır.
