Program kalkulatora jedan je od tipičnih programskih zadataka. Takva se aplikacija može implementirati u gotovo bilo koji programski jezik. Jedan od najpopularnijih programskih jezika je Delphi, koji se može koristiti za pisanje jednostavnog i efikasnog koda kalkulatora.
Potrebno
Delphi programsko okruženje
Instrukcije
Korak 1
Pokrenite Delphi programsko okruženje koje koristite. Isplanirajte sučelje za vašu aplikaciju. Na obrascu će biti 26 tipki, od kojih je 10 odgovorno za brojeve, a ostale su za funkcije. Uz to, bit će i TPanel komponenta na kojoj će biti prikazan rezultat akcije.
Korak 2
Kôdu dodajte 4 varijable koje će pohraniti brojeve koje je korisnik unio i odrediti način rada. Na primjer:
var
a, b, c: stvarno; // brojevi koje korisnik unosi
d: cijeli broj; // akcija kalkulatora
Korak 3
Stvorene varijable mogu se dodati i zaštićenim i privatnim. Sada obradite događaj OnClick za svako numeričko dugme. Za sve znamenke kod će biti identičan:
procedura TForm1. Button1Click (Pošiljatelj: TObject);
početi
Panel1. Caption: = Panel1. Caption + 'broj'
kraj;
Zamijenite “broj” imenom dugmeta (ako je broj 0, onda Panel1. Caption + '0').
Korak 4
Varijabla d je u cjelovitom formatu i sadržavat će odgovarajuću numeričku vrijednost bilo koje radnje. Ako će se množenje izvesti, tada akciju možete postaviti na vrijednost 1, ako je dijeljenje - vrijednost 2, ako je zbrajanje - vrijednost 3, itd. Za akciju množenja kôd će izgledati ovako:
procedura TForm1. ButtonMultiplyClick (Pošiljatelj: TObject); // umnožavanje akcije
početi
a: = StrToFloat (Panel1. Caption); // nakon pritiska na tipku vrijednost varijable a se sprema
d: = 1; // varijabla akcije postavljena je na odgovarajuću vrijednost
Panel1. Caption: = '';
kraj;
Korak 5
Izvršite slične operacije za dijeljenje (ButtonDivClick), zbrajanje (ButtonPlusClick), oduzimanje (ButtonMinusClick) i potenciranje (ButtonPowerClick).
Korak 6
Da biste obradili vrijednost `` = '', morate postaviti uvjet slučaja i razmotriti svaku akciju redom:
procedura TForm1. ButtonClick (Pošiljatelj: TObject);
početi
slučaj d od
1: start // ako je d = 1, tj. Pritisnuto je dugme množenja, tada se javlja odgovarajuća radnja
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
kraj;
2: početak
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Korak 7
Na isti se način bavite sabiranjem, oduzimanjem i potenciranjem. Kalkulator je spreman.
