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 učinkovitog koda kalkulatora.
Potrebno
Delphi programsko okruženje
Upute
Korak 1
Pokrenite Delphi programsko okruženje koje koristite. Isplanirajte sučelje za svoju 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 se prikazati 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
3. korak
Stvorene varijable mogu se dodati i zaštićenim i privatnim. Sada obradite događaj OnClick za svaki numerički gumb. Za sve znamenke kôd će biti identičan:
postupak TForm1. Button1Click (Pošiljatelj: TObject);
početi
Panel1. Caption: = Panel1. Caption + 'broj'
kraj;
Zamijenite “broj” imenom gumba (ako je broj 0, onda Panel1. Caption + '0').
4. korak
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 možete postaviti radnju na vrijednost 1, ako je dijeljenje - vrijednost 2, ako je zbrajanje - vrijednost 3, itd. Za akciju množenja kôd će izgledati ovako:
postupak TForm1. ButtonMultiplyClick (Pošiljatelj: TObject); // umnožiti akciju
početi
a: = StrToFloat (Panel1. Caption); // nakon pritiska na tipku, vrijednost varijable a se sprema
d: = 1; // varijabla akcije postavlja se na odgovarajuću vrijednost
Panel1. Caption: = '';
kraj;
Korak 5
Napravite 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:
postupak TForm1. ButtonClick (Pošiljatelj: TObject);
početi
slučaj d od
1: start // ako je d = 1, tj. Pritisnuta je tipka za množenje, tada se javlja odgovarajuća radnja
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
kraj;
2: započeti
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.
