musíte
  • - programovací prostředí Delphi
Guide
1
Začátek programovací prostředí používáte Delphi.Naplánujte rozhraní vaší aplikace.Na formuláři bude 26 tlačítek, z nichž 10 jsou odpovědné za čísla, a zbytek - pro funkci.Navíc, složka bude přítomna TPanel, které se zobrazí výsledek akcí.
2
přidat kód 4 proměnné, které bude mít číslo zadané uživatelem a určit režim.Například:

var
a, b, c: real;// Číslo, které uživatel zadá
d: integer;// Akce kalkulačka
3
vytvořil proměnné mohou, stejně jako v chráněné, stejně jako v soukromí.Nyní ke každé klávese, jak obsloužit událost klepnutí.Pro všechny číselné kódy budou totožné:

postup TForm1.Button1Click (Sender: TObject);
začít
Panel1.Caption: = Panel1.Caption + "číslo"
konec;

Nahradit "číslo" v názvu tlačítka (pokud dosáhne 0, musíte Panel1.Caption + "0").
4
proměnná d má formát celé číslo, a bude obsahovat příslušnou numerickou hodnotu akce.Pokud bude násobení, pak můžete nastavit akční hodnotu 1 v případě, že divize - 2 Je-li přídavek - hodnota 3, a tak dále D. Pro provoz násobení kódu bude vypadat:

řízení TForm1.ButtonMultiplyClick (Sender: TObject).;// Multiplikační efekt
začít
si: = StrToFloat (Panel1.Caption);// Po stisknutí uložený proměnná
d: = 1;// Akce proměnná je dána příslušnou hodnotu
Panel1.Caption: = '';
end;
5
, aby podobné operace pro rozdělení (ButtonDivClick), přidání (ButtonPlusClick), odčítání (ButtonMinusClick) a umocňování (ButtonPowerClick).
6
Chcete-li zpracovat hodnoty "" = "" musíte provést podmínku případ a obrátit se zvážit každý akce:

postup TForm1.ButtonClick (Sender: TObject);
začít
případ dz
1: begin // pokud d = 1, t E. Lisované násobení, pak existuje odpovídající efekt
b:. = StrToFloat (Panel1.Caption);
c: = a * b;
Panel1.Caption: = FloatToStr (c);
end;
2: začít
a: = StrToFloat (Panel1.Caption);
c: = a / b;
Panel1.Caption: = FloatToStr (c);
...
7
Podobně zacházet operace sčítání, odčítání a umocňování.Kalkulačka je připraven.