Странице

четвртак, 24. септембар 2015.

Delphi Basic Calculator

Danas cu vam pokazati kako da napravite najprostiji moguci kalkulator u delphiju, za ovaj projekat su vam potrebne 3 label , 3 edit, i 4 buton komponente, postavite ih kao na slici 1.

Slika 1.


Sledece sto trebate uraditi jeste ispisati kod za svaki button posebno, posto je ovo najprostiji kalkulator pritiskom na svaki button desice se jedna matematicka operacija, na slici 2. mozete videti kako ce kalkulator izgledati na kraju tj. kad ga pokrenemo kao gotov program.

Slika 2.

Dvoklikom na prvi button otvara nam se kod editor gde ispisujemo sledeci kod da bi sabrali 2 broja koja budemo upisali u edit1 i edit2 polje:
Procedure TForm.ButtonClick(Sender: TObject);
var a,b,c:integer;
begin 
     a:=strtoint(edit1.text);
     b:=strtoint(edit2.text);
     c:=a+b;
     Edit3.Text:=inttostr(c);
end;
Na istom principu ispisujemo i kod za ostale operacije, kao sto su oduzimanje , mnozenje , deljenje. I dok kod sabiranja, oduzimanja i mnozenja deklarisemo promenljive(VAR) kao integer tj. ceo broj, operaciju deljenja tj. promenljive kod deljenja ne mozemo definisati kao integer vec tu koristimo real kao tip promenljive. Na slici 3. mozete videti kako taj kod izgleda na kraju za ovaj prost kalkulator.

Slika 3.

Ceo kod:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
   var a,b,c:integer;
begin
    a:=strtoint(Edit1.Text);
    b:=strtoint(edit2.Text);
    c:=a+b;
    Edit3.Text:=inttostr(c);

end;

procedure TForm1.Button2Click(Sender: TObject);
     var a,b,c:integer;

begin
     a:=strtoint(edit1.Text);
     b:=strtoint(edit2.Text);
     c:=a-b;
     edit3.Text:=inttostr(c);

end;

procedure TForm1.Button3Click(Sender: TObject);
  var a,b,c:integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:=a*b;
  edit3.Text:=inttostr(c);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a,b,c:real;
begin
  a:=strtofloat(edit1.Text);
  b:=strtofloat(edit2.Text);
  c:=a/b;
  edit3.Text:=floattostr(c);
end;

end.


Нема коментара:

Постави коментар