Program kalkulačky je jednou z typických programovacích úloh. Takúto aplikáciu je možné implementovať takmer v akomkoľvek programovacom jazyku. Jedným z najpopulárnejších programovacích jazykov je Delphi, pomocou ktorého je možné písať jednoduchý a efektívny kód kalkulačky.
Nevyhnutné
Programovacie prostredie Delphi
Inštrukcie
Krok 1
Spustite programovacie prostredie Delphi, ktoré používate. Naplánujte si rozhranie pre svoju aplikáciu. Na formulári bude 26 tlačidiel, z ktorých 10 je zodpovedných za čísla a zvyšok sú funkcie. Ďalej tu bude komponent TPanel, na ktorom sa zobrazí výsledok akcie.
Krok 2
Pridajte 4 premenné do kódu, ktorý uloží čísla zadané používateľom a určí režim. Napríklad:
var
a, b, c: skutočné; // čísla, ktoré užívateľ zadá
d: celé číslo; // akcia kalkulačky
Krok 3
Vytvorené premenné je možné pridávať do chránených aj súkromných. Teraz spracujte udalosť OnClick pre každé číselné tlačidlo. Pre všetky číslice bude kód identický:
postup TForm1. Button1Click (odosielateľ: TObject);
začať
Panel1. Caption: = Panel1. Caption + 'číslo'
koniec;
Nahraďte „číslo“názvom tlačidla (ak je to číslo 0, potom Panel1. Caption + „0“).
Krok 4
Premenná d je v celočíselnom formáte a bude obsahovať zodpovedajúcu číselnú hodnotu akejkoľvek akcie. Ak bude prebiehať násobenie, potom môžete nastaviť akciu na hodnotu 1, ak rozdelenie - hodnota 2, ak doplnenie - hodnota 3 atď. Pre akciu násobenia bude kód vyzerať takto:
postup TForm1. ButtonMultiplyClick (Sender: TObject); // znásobiť akciu
začať
a: = StrToFloat (Panel1. Caption); // po stlačení tlačidla sa uloží hodnota premennej a
d: = 1; // premenná akcie je nastavená na zodpovedajúcu hodnotu
Panel1. Caption: = '';
koniec;
Krok 5
Vykonajte podobné operácie pre rozdelenie (ButtonDivClick), sčítanie (ButtonPlusClick), odčítanie (ButtonMinusClick) a umocňovanie (ButtonPowerClick).
Krok 6
Ak chcete spracovať hodnotu „=“, musíte vytvoriť podmienku prípadu a postupne zvážiť každú akciu:
postup TForm1. ButtonClick (odosielateľ: TObject);
začať
prípad d z
1: begin // ak je d = 1, tj. Je stlačené tlačidlo násobenia, dôjde k príslušnej akcii
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
koniec;
2: začať
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Krok 7
Rovnakým spôsobom narábajte so sčítaním, odčítaním a umocňovaním. Kalkulačka je pripravená.
