Dephi'de Hesap Makinesi Yapmak İçin Gerekli Olan Kodlar

Delphi Hesap Makinesi

public
topla,cikar,carp : integer ;
bol : real;
end;

var
Form2: TForm2;


implementation

{$R *.dfm}

procedure TForm2.Button_ToplaClick(Sender: TObject);

begin
topla := StrToInt(Edit_Sayi1.Text)+StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(topla));
end;

procedure TForm2.Button_CikarClick(Sender: TObject);
begin
cikar := StrToInt(Edit_Sayi1.Text)-StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(cikar));
end;

procedure TForm2.Button_CarpClick(Sender: TObject);
begin
carp := StrToInt(Edit_Sayi1.Text)*StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(carp));
end;

procedure TForm2.Button_BolClick(Sender: TObject);
begin
bol := StrToInt(Edit_Sayi1.Text)/StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ FloatToStr(bol));
end;
end.