Delphi ile yapılmış hesap makinası örneği

[by_MuZZy]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button1: TButton;
Edit1: TEdit;
arteks: TButton;
virgul: TButton;
toplama: TButton;
cikarma: TButton;
carpma: TButton;
bolme: TButton;
karesi: TButton;
yuzde: TButton;
kesir: TButton;
esittir: TButton;
kapat: TButton;
C: TButton;
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure toplamaClick(Sender: TObject);
procedure cikarmaClick(Sender: TObject);
procedure carpmaClick(Sender: TObject);
procedure bolmeClick(Sender: TObject);
procedure yuzdeClick(Sender: TObject);
procedure CClick(Sender: TObject);
procedure esittirClick(Sender: TObject);
procedure karesiClick(Sender: TObject);
procedure kesirClick(Sender: TObject);
procedure arteksClick(Sender: TObject);
procedure virgulClick(Sender: TObject);
procedure kapatClick(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }

end;

var
Form1: TForm1;
sayi1:double;
sayi2:double;
islem:integer;
sonuc:real;
sonuc1:extended;
implementation

{$R *.dfm}

procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'0';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'9';
end;

procedure TForm1.toplamaClick(Sender: TObject);
begin
sayi1:=strtofloat(edit1.Text);
islem:=1;
Edit1.Text:='';
esittir.Enabled:=true;
end;

procedure TForm1.cikarmaClick(Sender: TObject);
begin
sayi1:=strtofloat(edit1.Text);
islem:=2;
Edit1.Text:='';
esittir.Enabled:=true;
end;

procedure TForm1.carpmaClick(Sender: TObject);
begin
sayi1:=strtofloat(edit1.Text);
islem:=3;
Edit1.Text:='';
esittir.Enabled:=true;
end;

procedure TForm1.bolmeClick(Sender: TObject);
begin
sayi1:=strtofloat(edit1.Text);
islem:=4;
Edit1.Text:='';
esittir.Enabled:=true;
end;

procedure TForm1.yuzdeClick(Sender: TObject);
begin
sayi1:=strtofloat(edit1.Text);
islem:=5;
Edit1.Text:='';
esittir.Enabled:=true;
end;

procedure TForm1.CClick(Sender: TObject);
begin
edit1.Text:='';
esittir.Enabled:=false;
end;

procedure TForm1.esittirClick(Sender: TObject);
begin
sayi2:=strtofloat(edit1.Text);
if islem=1 then sonuc:=sayi1+sayi2;
if islem=2 then sonuc:=sayi1-sayi2;
if islem=3 then sonuc:=sayi1*sayi2;
if islem=4 then sonuc:=sayi1/sayi2;
if islem=5 then sonuc:=sayi1*sayi2/100;
edit1.Text:=floattostr(sonuc);
end;

procedure TForm1.karesiClick(Sender: TObject);
var sayi3:real;
begin
sayi3:=strtofloat(edit1.Text);
edit1.Text:=floattostr(sqrt(sayi3));
end;

procedure TForm1.kesirClick(Sender: TObject);
var
sonuc2:real;
begin
sayi1:=strtofloat(edit1.Text);
sonuc2:=1/sayi1;
edit1.Text:=floattostr(sonuc2);
end;

procedure TForm1.arteksClick(Sender: TObject);
begin
sayi1:=strtofloat(edit1.Text);
sonuc1:=sayi1-2*sayi1;
edit1.Text:=floattostr(sonuc1);
end;

procedure TForm1.virgulClick(Sender: TObject);
var sayi:integer;
begin
if (edit1.Text='') then
sayi:=0
else
sayi:=strtoint(edit1.Text);
Edit1.Text:=inttostr(sayi)+',';
end;
procedure TForm1.kapatClick(Sender: TObject);
begin
close;
end;

end.

Bu kod blogunu yazıyoruz

 

[VoyVoy]

tşkler emeğine sağlık

 

[Hacker-22]

emeğine sağlık

 

[postal41]

ellerine sağlık