Kalkulatora programma ir viens no tipiskākajiem programmēšanas uzdevumiem. Šādu lietojumprogrammu var ieviest gandrīz jebkurā programmēšanas valodā. Viena no populārākajām programmēšanas valodām ir Delphi, ar kuras palīdzību var rakstīt vienkāršu un efektīvu kalkulatora kodu.
Nepieciešams
Delphi programmēšanas vide
Instrukcijas
1. solis
Sāciet izmantoto Delphi programmēšanas vidi. Plānojiet saskarni savai lietojumprogrammai. Veidlapā būs 26 pogas, no kurām 10 ir atbildīgas par skaitļiem, bet pārējās ir par funkcijām. Turklāt būs TPanel komponents, kurā tiks parādīts darbības rezultāts.
2. solis
Pievienojiet kodam 4 mainīgos, kas glabā lietotāja ievadītos skaitļus un nosaka režīmu. Piemēram:
var
a, b, c: reāls; // numuri, kurus lietotājs ievada
d: vesels skaitlis; // kalkulatora darbība
3. solis
Izveidotos mainīgos var pievienot gan aizsargātiem, gan privātiem. Tagad rīkojieties ar OnClick notikumu katrai cipara pogai. Visiem cipariem kods būs identisks:
procedūra TForm1. Button1Click (Sūtītājs: TObject);
sākt
Panel1. Caption: = Panel1. Caption + 'numurs'
beigas;
Nomainiet “number” ar pogas nosaukumu (ja tas ir skaitlis 0, tad Panel1. Caption + '0').
4. solis
Mainīgais d ir vesels skaitlis un satur jebkuras darbības atbilstošo skaitlisko vērtību. Ja tiks veikta reizināšana, tad darbību var iestatīt uz vērtību 1, ja dalīšana - vērtība 2, ja pievienošana - vērtība 3 utt. Reizināšanas darbībai kods izskatīsies šādi:
procedūra TForm1. ButtonMultiplyClick (Sūtītājs: TObject); // reizināt darbību
sākt
a: = StrToFloat (Panel1. Caption); // pēc pogas nospiešanas mainīgā a vērtība tiek saglabāta
d: = 1; // darbības mainīgais ir iestatīts uz atbilstošo vērtību
Panel1. Paraksts: = ;
beigas;
5. solis
Veiciet līdzīgas darbības dalīšanai (ButtonDivClick), pievienošanai (ButtonPlusClick), atņemšanai (ButtonMinusClick) un eksponēšanai (ButtonPowerClick).
6. solis
Lai apstrādātu vērtību "=", jums jāizveido gadījuma nosacījums un jāapsver katra darbība pēc kārtas:
procedūra TForm1. ButtonClick (Sūtītājs: TObject);
sākt
d gadījums
1: sākums // ja d = 1, t.i., tiek nospiesta pavairošanas poga, notiek attiecīgā darbība
b: = StrToFloat (panelis1. Paraksts);
c: = a * b;
Panel1. Paraksts: = FloatToStr (c);
beigas;
2: sākt
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Paraksts: = FloatToStr (c);
7. solis
Vienādi rīkojieties ar saskaitīšanu, atņemšanu un eksponenci. Kalkulators ir gatavs.
