Delphi de küçük bir hesap makinesi...{Benden :)}

[ReKoBaa_61]

[Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...]      [Linkleri görebilmek için üye olmalısınız. Üye olmak için tıklayınız...]





unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Menus;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Button25: TButton;

Button26: TButton;

Button27: TButton;

MainMenu1: TMainMenu;

Dzen1: TMenuItem;

KopyalaCtrlC1: TMenuItem;

YaptrCtrlV1: TMenuItem;

Grnm1: TMenuItem;

Standart1: TMenuItem;

Bilimsel1: TMenuItem;

Yardm1: TMenuItem;

YardmKonular1: TMenuItem;

Hesmak1: TMenuItem;

Button28: TButton;

Panel1: TPanel;

Label1: TLabel;

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

f,secim:char;

a,k:integer;

sayi1,sayi2:integer;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '7';

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '8';

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '9';

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '4';

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '5';

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '6';

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '1';

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '2';

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '3';

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

if edit1.text='0' then

edit1.Text:='' ;

edit1.Text:= edit1.Text + '0';

end;



procedure TForm1.Button22Click(Sender: TObject);

begin

f:='+';

k:=strtoint(edit1.text);

edit1.text:='';

end;



procedure TForm1.Button23Click(Sender: TObject);

begin

a:=strtoint(edit1.text);

if f='+' then begin edit1.Text:=''; edit1.Text:=inttostr(a+k);end;

if f='-' then begin edit1.Text:=''; edit1.Text:=inttostr(k-a);end;

if f='*' then begin edit1.Text:=''; edit1.Text:=inttostr(a*k);end;

if a=0 then begin showmessage('Sıfıra Bölme Hatası') end else

if f='/' then begin edit1.Text:=''; edit1.Text:=inttostr(k div a);end;

if f='%' then begin edit1.Text:=''; edit1.Text:=inttostr((a*k) div 100);end;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

f:='-';

k:=strtoint(edit1.text);

edit1.text:='';

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

f:='*';

k:=strtoint(edit1.text);

edit1.text:='';

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

f:='/';

k:=strtoint(edit1.text);

edit1.text:='';

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

f:='%';

k:=strtoint(edit1.text);

edit1.text:='';

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

a:=strtoint(edit1.text);

edit1.text:=floattostr(sqrt(a));

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

k:=strtoint(edit1.text);

edit1.text:='';

edit1.Text:=floattostr(1/k);

end;

procedure TForm1.Button21Click(Sender: TObject);

begin

edit1.Text:= edit1.Text + ',';

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

k:=strtoint(edit1.text);

if k=strtoint(edit1.text) then

edit1.Text:=inttostr(k*(-1))

else edit1.Text:=inttostr(k*(1));



end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.text:='';

sayi1:=0;

sayi2:=0;

edit1.Text:='0';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

edit1.text:='0';

end;

procedure TForm1.Button27Click(Sender: TObject);

begin

button28.Caption:='M';

end;

procedure TForm1.Button24Click(Sender: TObject);

begin

Button28.Caption:=' ';

end;

procedure TForm1.Button1Click(Sender: TObject);

var

uzunluk:integer;

begin

uzunluk:=length(edit1.Text);

if (edit1.text='0') then edit1.Text:='0';

edit1.Text:=copy(edit1.Text,1,uzunluk-1);

uzunluk:=length(edit1.Text);

if uzunluk=0 then edit1.Text:='0';

end;

end.

[ahmet_n70]

Eline saglık kardeş ama cok uzun