Ang programa ng calculator ay isa sa mga tipikal na gawain sa programa. Ang nasabing aplikasyon ay maaaring ipatupad sa halos anumang wika ng programa. Ang isa sa mga pinakatanyag na wika ng pagprograma ay ang Delphi, na maaaring magamit upang magsulat ng simple at mahusay na code ng calculator.
Kailangan
Kapaligiran ng Delphi sa programa
Panuto
Hakbang 1
Simulan ang Delphi programming environment na iyong ginagamit. Planuhin ang interface para sa iyong aplikasyon. Magkakaroon ng 26 na mga pindutan sa form, 10 na kung saan ay responsable para sa mga numero, at ang natitira ay para sa mga pagpapaandar. Bilang karagdagan, magkakaroon ng isang sangkap ng TPanel kung saan ipapakita ang resulta ng pagkilos.
Hakbang 2
Magdagdag ng 4 na variable sa code na mag-iimbak ng mga numero na ipinasok ng gumagamit at matukoy ang mode. Halimbawa:
var
a, b, c: tunay; // mga numero na ipinasok ng gumagamit
d: integer; // pagkilos ng calculator
Hakbang 3
Ang mga nilikha na variable ay maaaring idagdag sa parehong protektado at pribado. Hawakan Ngayon ang kaganapan sa OnClick para sa bawat pindutan ng numero. Para sa lahat ng mga digit, magkapareho ang code:
pamamaraan TForm1. Button1Click (Nagpapadala: TObject);
magsimula
Panel1. Caption: = Panel1. Caption + 'number'
wakas;
Palitan ang "numero" ng pangalan ng pindutan (kung ito ang numero 0, pagkatapos ay ang Panel1. Caption + '0').
Hakbang 4
Ang variable d ay nasa format na integer at maglalaman ng katumbas na numerong halaga ng anumang pagkilos. Kung isasagawa ang pagpaparami, maaari mong itakda ang pagkilos sa halagang 1, kung ang paghahati - halaga 2, kung karagdagan - halagang 3, atbp. Para sa pagkilos ng pagpaparami, ang code ay magiging hitsura ng:
pamamaraan TForm1. ButtonMultiplyClick (Nagpapadala: TObject); // multiply action
magsimula
a: = StrToFloat (Panel1. Caption); // pagkatapos ng pagpindot sa pindutan, ang halaga ng variable a ay nai-save
d: = 1; // variable ng pagkilos ay nakatakda sa katumbas na halaga
Panel1. Caption: = ;
wakas;
Hakbang 5
Gumawa ng mga katulad na operasyon para sa dibisyon (ButtonDivClick), karagdagan (ButtonPlusClick), pagbabawas (ButtonMinusClick), at exponentiation (ButtonPowerClick).
Hakbang 6
Upang maproseso ang halagang "=", kailangan mong gumawa ng isang kundisyon sa kaso at isaalang-alang ang bawat pagkilos nang magkakasunod:
pamamaraan TForm1. ButtonClick (Nagpapadala: TObject);
magsimula
kaso d ng
1: simulan // kung d = 1, ibig sabihin, ang pindutang multiply ay pinindot, pagkatapos ay nangyayari ang kaukulang aksyon
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
wakas;
2: magsimula
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Hakbang 7
Pagdaragdag ng pagdaragdag, pagbabawas, at exponentiation sa parehong paraan. Ang calculator ay handa na.
