Program kalkulatorja je ena od tipičnih programov. Takšno aplikacijo lahko izvedemo v skoraj vseh programskih jezikih. Eden izmed najbolj priljubljenih programskih jezikov je Delphi, s katerim lahko pišemo preprosto in učinkovito kodo kalkulatorja.
Potrebno
Programsko okolje Delphi
Navodila
Korak 1
Zaženite programsko okolje Delphi, ki ga uporabljate. Načrtujte vmesnik za svojo aplikacijo. Na obrazcu bo 26 gumbov, od katerih je 10 odgovornih za številke, ostali pa za funkcije. Poleg tega bo na voljo komponenta TPanel, na kateri bodo prikazani rezultati dejanja.
2. korak
Kodi dodajte 4 spremenljivke, ki bodo shranile številke, ki jih je vnesel uporabnik, in določi način. Na primer:
var
a, b, c: resnično; // številke, ki jih uporabnik vnese
d: celo število; // akcija kalkulatorja
3. korak
Ustvarjene spremenljivke je mogoče dodati tako zaščitenim kot zasebnim. Zdaj obdelajte dogodek OnClick za vsak številski gumb. Za vse številke bo koda enaka:
postopek TForm1. Button1Click (Pošiljatelj: TObject);
začeti
Panel1. Caption: = Panel1. Caption + 'številka'
konec;
Zamenjajte “številko” z imenom gumba (če je številka 0, potem Panel1. Caption + '0').
4. korak
Spremenljivka d je v celoštevilčni obliki in bo vsebovala ustrezno številsko vrednost katerega koli dejanja. Če bo izvedeno množenje, lahko dejanje nastavite na vrednost 1, če delitev - vrednost 2, če seštevanje - vrednost 3 itd. Za dejanje množenja bo koda videti tako:
postopek TForm1. ButtonMultiplyClick (pošiljatelj: TObject); // pomnožimo akcijo
začeti
a: = StrToFloat (Panel1. Caption); // po pritisku na gumb se vrednost spremenljivke a shrani
d: = 1; // spremenljivka dejanja je nastavljena na ustrezno vrednost
Panel1. Caption: = ;
konec;
5. korak
Opravite podobne postopke za delitev (ButtonDivClick), seštevanje (ButtonPlusClick), odštevanje (ButtonMinusClick) in stopnjevanje (ButtonPowerClick).
6. korak
Če želite obdelati vrednost "=", morate postaviti pogoj primera in upoštevati vsako dejanje po vrsti:
postopek TForm1. ButtonClick (pošiljatelj: TObject);
začeti
primer d od
1: začetek //, če je d = 1, tj. Pritisnjen je gumb za pomnoževanje, potem pride do ustreznega dejanja
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
konec;
2: začnite
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
7. korak
Na enak način ravnajte z dodajanjem, odštevanjem in stopnjevanjem. Kalkulator je pripravljen.
