Program kalkulačky je jedním z typických programovacích úkolů. Takovou aplikaci lze implementovat téměř v jakémkoli programovacím jazyce. Jedním z nejpopulárnějších programovacích jazyků je Delphi, kterým lze psát jednoduchý a efektivní kód kalkulačky.
Nezbytné
Programovací prostředí Delphi
Instrukce
Krok 1
Spusťte programovací prostředí Delphi, které používáte. Naplánujte si rozhraní pro svou aplikaci. Na formuláři bude 26 tlačítek, z nichž 10 odpovídá za čísla a zbytek jsou funkce. Kromě toho bude k dispozici komponenta TPanel, na které se zobrazí výsledek akce.
Krok 2
Přidejte do kódu 4 proměnné, které uloží čísla zadaná uživatelem a určí režim. Například:
var
a, b, c: skutečné; // čísla, která uživatel zadá
d: celé číslo; // akce kalkulačky
Krok 3
Vytvořené proměnné lze přidat do chráněných i soukromých. Nyní zpracovejte událost OnClick pro každé číselné tlačítko. U všech číslic bude kód stejný:
postup TForm1. Button1Click (odesílatel: TObject);
začít
Panel1. Caption: = Panel1. Caption + 'číslo'
konec;
Nahraďte „číslo“názvem tlačítka (pokud je to číslo 0, pak Panel1. Caption + „0“).
Krok 4
Proměnná d je v celočíselném formátu a bude obsahovat odpovídající číselnou hodnotu jakékoli akce. Pokud bude prováděno násobení, pak můžete nastavit akci na hodnotu 1, pokud dělení - hodnota 2, pokud přidání - hodnota 3 atd. Pro akci násobení bude kód vypadat takto:
procedure TForm1. ButtonMultiplyClick (Sender: TObject); // znásobení akce
začít
a: = StrToFloat (Panel1. Caption); // po stisknutí tlačítka se uloží hodnota proměnné a
d: = 1; // akční proměnná je nastavena na odpovídající hodnotu
Panel1. Caption: = '';
konec;
Krok 5
Proveďte podobné operace pro dělení (ButtonDivClick), sčítání (ButtonPlusClick), odčítání (ButtonMinusClick) a umocňování (ButtonPowerClick).
Krok 6
Chcete-li zpracovat hodnotu `` = '', musíte vytvořit podmínku případu a postupně zvážit každou akci:
postup TForm1. ButtonClick (odesílatel: TObject);
začít
případ d
1: begin // pokud d = 1, tj. Je stisknuto tlačítko násobení, dojde k odpovídající akci
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
konec;
2: začít
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Krok 7
Zacházejte se sčítáním, odčítáním a umocňováním stejným způsobem. Kalkulačka je připravena.
