Bilimsel Hesap Makinası(deLphi)

ALpMontana

ALpMontana

КЯaL´da TaNıMaM КuяaL´da
Katılım
28 May 2006
Mesajlar
6,644
Reaction score
0
Puanları
0
Yaş
38
Konum
Eski Açık [ALiSamiYEN]
İşte size güzel bir hesap makinası beyler ;)



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BitBtn14: TBitBtn;
BitBtn15: TBitBtn;
BitBtn16: TBitBtn;
BitBtn17: TBitBtn;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
BitBtn20: TBitBtn;
BitBtn21: TBitBtn;
BitBtn22: TBitBtn;
BitBtn23: TBitBtn;
BitBtn24: TBitBtn;
BitBtn25: TBitBtn;
BitBtn26: TBitBtn;
BitBtn27: TBitBtn;
BitBtn28: TBitBtn;
BitBtn29: TBitBtn;
BitBtn30: TBitBtn;
BitBtn31: TBitBtn;
BitBtn32: TBitBtn;
BitBtn33: TBitBtn;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn24Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure BitBtn16Click(Sender: TObject);
procedure BitBtn20Click(Sender: TObject);
procedure BitBtn19Click(Sender: TObject);
procedure BitBtn31Click(Sender: TObject);
procedure BitBtn27Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn26Click(Sender: TObject);
procedure BitBtn29Click(Sender: TObject);
procedure BitBtn33Click(Sender: TObject);
procedure BitBtn32Click(Sender: TObject);
procedure BitBtn18Click(Sender: TObject);
procedure BitBtn25Click(Sender: TObject);
procedure BitBtn23Click(Sender: TObject);
procedure BitBtn22Click(Sender: TObject);
procedure BitBtn21Click(Sender: TObject);
procedure BitBtn30Click(Sender: TObject);
procedure BitBtn28Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
k,a,v,x:integer;
f:char;
implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
edit1.Text:=";
end;

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

procedure TForm1.BitBtn24Click(Sender: TObject);
begin
form1.Close;
end;

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

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

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

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

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

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

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

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

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

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
f:='+';
k:=strtoint(edit1.text);
edit1.text:=";

end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
f:='-';
k:=strtoint(edit1.text);
edit1.text:=";

end;

procedure TForm1.BitBtn12Click(Sender: TObject);
begin
f:='*';
k:=strtoint(edit1.text);
edit1.text:=";

end;

procedure TForm1.BitBtn16Click(Sender: TObject);
begin
f:='/';
k:=strtoint(edit1.text);
edit1.text:=";

end;

procedure TForm1.BitBtn20Click(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.BitBtn19Click(Sender: TObject);
begin
a:=strtoint(edit1.text);
edit1.text:=floattostr(sqrt(a));
end;

procedure TForm1.BitBtn31Click(Sender: TObject);
begin
v:=1;
for x:=1 to strtoint(edit1.text) do begin
v:=v*x; end;
edit1.text:=inttostr(v);

end;

procedure TForm1.BitBtn27Click(Sender: TObject);
begin
f:='%';
k:=strtoint(edit1.text);
edit1.text:=";
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit1.Text:=inttostr((strtoint(edit1.Text)-(strtoint(edit1.Text) mod 10)) div 10);

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Text:=inttostr((strtoint(edit1.Text)-(strtoint(edit1.Text) mod 10)) div 10);

end;

procedure TForm1.BitBtn26Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=inttostr(k*k);
end;

procedure TForm1.BitBtn29Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=inttostr(k*k*k);
end;

procedure TForm1.BitBtn33Click(Sender: TObject);
begin
edit1.enabled:=false;
bitbtn1.enabled:=false;
bitbtn2.enabled:=false;
bitbtn3.enabled:=false;
bitbtn4.enabled:=false;
bitbtn5.enabled:=false;
bitbtn6.enabled:=false;
bitbtn7.enabled:=false;
bitbtn8.enabled:=false;
bitbtn9.enabled:=false;
bitbtn10.enabled:=false;
bitbtn11.enabled:=false;
bitbtn12.enabled:=false;
bitbtn13.enabled:=false;
bitbtn14.enabled:=false;
bitbtn15.enabled:=false;
bitbtn16.enabled:=false;
bitbtn17.enabled:=false;
bitbtn18.enabled:=false;
bitbtn19.enabled:=false;
bitbtn20.enabled:=false;
bitbtn21.enabled:=false;
bitbtn22.enabled:=false;
bitbtn23.enabled:=false;
bitbtn24.enabled:=false;
bitbtn25.enabled:=false;
bitbtn26.enabled:=false;
bitbtn27.enabled:=false;
bitbtn28.enabled:=false;
bitbtn29.enabled:=false;
bitbtn30.enabled:=false;
bitbtn31.enabled:=false;
bitbtn33.enabled:=false;

end;

procedure TForm1.BitBtn32Click(Sender: TObject);
begin
edit1.enabled:=true;
bitbtn1.enabled:=true;
bitbtn2.enabled:=true;
bitbtn3.enabled:=true;
bitbtn4.enabled:=true;
bitbtn5.enabled:=true;
bitbtn6.enabled:=true;
bitbtn7.enabled:=true;
bitbtn8.enabled:=true;
bitbtn9.enabled:=true;
bitbtn10.enabled:=true;
bitbtn11.enabled:=true;
bitbtn12.enabled:=true;
bitbtn13.enabled:=true;
bitbtn14.enabled:=true;
bitbtn15.enabled:=true;
bitbtn16.enabled:=true;
bitbtn17.enabled:=true;
bitbtn18.enabled:=true;
bitbtn19.enabled:=true;
bitbtn20.enabled:=true;
bitbtn21.enabled:=true;
bitbtn22.enabled:=true;
bitbtn23.enabled:=true;
bitbtn24.enabled:=true;
bitbtn25.enabled:=true;
bitbtn26.enabled:=true;
bitbtn27.enabled:=true;
bitbtn28.enabled:=true;
bitbtn29.enabled:=true;
bitbtn30.enabled:=true;
bitbtn31.enabled:=true;
bitbtn33.enabled:=true;
end;

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
edit1.Text:='-'+edit1.text;
end;

procedure TForm1.BitBtn25Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=floattostr(1/k);
end;

procedure TForm1.BitBtn23Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=floattostr(sin(pi*k/180));
end;

procedure TForm1.BitBtn22Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=floattostr(cos(pi*k/180));
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=floattostr((sin(pi*k/180))/(sin(pi*k/180)));
end;

procedure TForm1.BitBtn30Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=floattostr((ln(k))/(ln(10)));
end;

procedure TForm1.BitBtn28Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
edit1.text:=";
edit1.Text:=floattostr(ln(k));
end;

end.
 
bunu nasıl kaydederiz delphiye??
 
gördüm de azcık ayrıntı olsaydı sevinirdim neyse sağol uğraşırım
 
Baba Bu Ne Ya TÜrkÇesİ Yokmu Bunun
 
eyy gidi delphi eyy.aklıma lise yılları geldi aynı bunu yapardık.nerde o günler..aman lise yıllarınızın kıymetini bilin arkadaşlar..teşekkür ederim karde$im hem konu için hemde bana lise yıllarımı hatırlattığın için
 
eline sağlık kardeşim bende başka yerlerde arıodum ne zamandır :D
saolasın
 
çok işime yaradı saol
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst