hesap makinesi 4 islem yardım lütfen

[ersinlevent_]

Arkadaşlar hesap makinesi 4 islem yapmaya çalışıyorum ama toplama işlemi dışındaki işlemlerde yanlış veya eksik yapıyorum hata veriyor.eksik yada yanlış kodu yazar mısınız.Neyi eklemeliyim?
unit Unit1;

interface

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

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;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sonuc: integer;
sayigirildi:integer;
islem: integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'2';
end;



procedure TForm1.Button6Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'3';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'4';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'5';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'6';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'7';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'8';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'9';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
if sayigirildi=1 then
begin
edit1.Text:='0'; sayigirildi:=0;
end;
if edit1.text='0'then edit1.text:='';
Edit1.text:=Edit1.text+'0';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
sonuc:=sonuc + StrToInt(edit1.Text);
Edit1.Text:=IntTOstr(sonuc);
sayigirildi:=1;
islem:=1;

end;


procedure TForm1.Button14Click(Sender: TObject);
begin
sonuc:=sonuc - StrToInt(edit1.Text);
Edit1.Text:=IntTOstr(sonuc);
sayigirildi:=1;
islem:=2;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
sonuc:=sonuc*StrToInt(edit1.Text);
Edit1.Text:=IntTOstr(sonuc);
sayigirildi:=1;
islem:=3;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
sonuc:=sonuc DIV StrToInt(edit1.Text);
Edit1.Text:=IntTOstr(sonuc);
sayigirildi:=4;
islem:=4;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if islem =1 then sonuc:=sonuc + strtoint(edit1.Text);
if islem =2 then sonuc:=sonuc - strtoint(edit1.Text);
if islem =3 then sonuc:=sonuc * strtoint(edit1.Text);
if islem =4 then sonuc:=sonuc DIV strtoint(edit1.Text);
edit1.Text:=inttostr(sonuc);
sayigirildi:=1;
sonuc:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
sonuc:=0;
sayigirildi:=0;
islem:=0;
edit1.Text:='0';

end;


end.

[onur2x]

sonuc: integer; yerine sonuc: extended; girersin inttostr yerine floattostr..... strtoint yerine strtofloat.....

Tüm butonlara tag atarsın 0-9 arası hangi rakam yazacaksa ve hepsinin onclick olayına buton1 i atarsın gereksiz kod yazmakla ugrasmazsın

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+floattostr(TButton(sender).Tag);
end;

aynı işlemi toplama cıkarma içinde yapabilirsin

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
  case TButton(sender).Tag of
    1: islem:='topla';
    2:islem:='cikar';
    3:islem:='carp';
    4:islem:='bol';
    end;
end;

[erdogan_ozkaya]

Merhaba,

İstersen tümünü paylaşabilirim.

Kod: Tümünü seç

unit Hesap_Makinesi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,
  math, ComCtrls, Menus;

type
  THASAPMAKINESI = class(TForm)
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    xpbutton11: TPanel;
    xpbutton12: TPanel;
    xpbutton10: TPanel;
    xpbutton13: TPanel;
    xpbutton9: TPanel;
    xpbutton8: TPanel;
    xpbutton7: TPanel;
    xpbutton6: TPanel;
    xpbutton5: TPanel;
    xpbutton4: TPanel;
    xpbutton3: TPanel;
    xpbutton2: TPanel;
    xpbutton16: TPanel;
    xpbutton17: TPanel;
    xpbutton15: TPanel;
    xpbutton14: TPanel;
    xpbutton40: TPanel;
    xpbutton44: TPanel;
    xpbutton45: TPanel;
    Panel11: TPanel;
    Button3: TPanel;
    Button2: TPanel;
    Button1: TPanel;
    Button6: TPanel;
    Button5: TPanel;
    Button4: TPanel;
    xpbutton31: TPanel;
    xpbutton32: TPanel;
    xpbutton33: TPanel;
    xpbutton34: TPanel;
    xpbutton35: TPanel;
    xpbutton36: TPanel;
    xpbutton37: TPanel;
    xpbutton38: TPanel;
    xpbutton25: TPanel;
    xpbutton26: TPanel;
    xpbutton27: TPanel;
    xpbutton28: TPanel;
    xpbutton30: TPanel;
    Panel12: TPanel;
    xpbutton18: TPanel;
    xpbutton19: TPanel;
    xpbutton20: TPanel;
    xpbutton41: TPanel;
    xpbutton21: TPanel;
    xpbutton22: TPanel;
    xpbutton23: TPanel;
    xpbutton42: TPanel;
    xpbutton43: TPanel;
    xpbutton39: TPanel;
    xpbutton29: TPanel;
    xpbutton1: TPanel;
    xpbutton24: TPanel;
    hexaktif: TPanel;
    hexpasif: TPanel;
    MainMenu1: TMainMenu;
    AnaMenu1: TMenuItem;
    evrimler1: TMenuItem;
    Scaklk1: TMenuItem;
    Fahrenhayt1: TMenuItem;
    Santigrat1: TMenuItem;
    Santigrat2: TMenuItem;
    Fahrenhayt2: TMenuItem;
    Edit1: TEdit;
    Kopyala1: TMenuItem;
    Yaptr1: TMenuItem;
    procedure xpButton1Click(Sender: TObject);
    procedure xpButton24Click(Sender: TObject);
    procedure xpButton12Click(Sender: TObject);
    procedure xpButton8Click(Sender: TObject);
    procedure xpButton9Click(Sender: TObject);
    procedure xpButton10Click(Sender: TObject);
    procedure xpButton5Click(Sender: TObject);
    procedure xpButton6Click(Sender: TObject);
    procedure xpButton7Click(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure xpButton3Click(Sender: TObject);
    procedure xpButton4Click(Sender: TObject);
    procedure xpButton11Click(Sender: TObject);
    procedure xpButton13Click(Sender: TObject);
    procedure xpButton29Click(Sender: TObject);
    procedure xpButton31Click(Sender: TObject);
    procedure xpButton32Click(Sender: TObject);
    procedure xpButton33Click(Sender: TObject);
    procedure xpButton34Click(Sender: TObject);
    procedure xpButton39Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure xpButton14Click(Sender: TObject);
    procedure xpButton15Click(Sender: TObject);
    procedure xpButton16Click(Sender: TObject);
    procedure xpButton17Click(Sender: TObject);
    procedure xpButton40Click(Sender: TObject);
    procedure xpButton27Click(Sender: TObject);
    procedure xpButton28Click(Sender: TObject);
    procedure xpButton25Click(Sender: TObject);
    procedure xpButton30Click(Sender: TObject);
    procedure xpButton26Click(Sender: TObject);
    procedure xpButton41Click(Sender: TObject);
    procedure xpButton42Click(Sender: TObject);
    procedure xpButton43Click(Sender: TObject);
    procedure xpButton18Click(Sender: TObject);
    procedure xpButton19Click(Sender: TObject);
    procedure xpButton20Click(Sender: TObject);
    procedure xpButton21Click(Sender: TObject);
    procedure xpButton22Click(Sender: TObject);
    procedure xpButton23Click(Sender: TObject);
    procedure xpButton35Click(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 FormKeyPress(Sender: TObject; var Key: Char);
    procedure xpbutton11MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton11MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton12MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton12MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton13MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton13MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton9MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton10MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton10MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton8MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton9MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton7MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton5MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton6MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton7MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton14MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton15MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton16MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton17MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton14MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton15MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton16MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton17MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton40MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton40MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton45MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton45MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton44MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton44MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button6MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button5MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton31MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton32MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton33MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton34MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton35MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton36MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton37MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton38MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton31MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton32MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton33MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton34MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton35MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton36MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton37MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton38MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton25MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton25MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton26MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton27MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton28MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton30MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton27MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton26MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton28MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton30MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton18MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton19MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton20MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton21MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton22MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton23MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton23MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton22MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton21MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton20MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton19MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton18MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton41MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton42MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton43MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton41MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton42MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton43MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton39MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton39MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton29MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton29MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton24MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure xpbutton24MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure hexaktifClick(Sender: TObject);
    procedure hexpasifClick(Sender: TObject);
    procedure Panel12Click(Sender: TObject);
    procedure Kopyala1Click(Sender: TObject);
    procedure Yaptr1Click(Sender: TObject);
    procedure Fahrenhayt2Click(Sender: TObject);
    procedure Santigrat2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  HASAPMAKINESI : THASAPMAKINESI;
  deger : real;
  derece: string[10];
  islem : string[10];
  degersifirla : string[5];
  sayisistemi : string[3];
implementation

uses StdConvs;

{$R *.dfm}




procedure THASAPMAKINESI.xpButton1Click(Sender: TObject);
begin
       Close;
end;

procedure THASAPMAKINESI.xpButton24Click(Sender: TObject);
begin
Panel1.Caption:='0';
deger:=0;
islem:='esittir';
end;

procedure THASAPMAKINESI.xpButton12Click(Sender: TObject);
begin
if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if (panel1.Caption='0') then
begin
panel1.Caption:='0';
exit;
end;

if (panel1.Caption='-0') then
begin
panel1.Caption:='-0';
exit;
end;

Panel1.Caption:=Panel1.Caption+'0';

end;

procedure THASAPMAKINESI.xpButton8Click(Sender: TObject);
begin
if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='1';
exit;
end;

Panel1.Caption:=Panel1.Caption+'1';


end;

procedure THASAPMAKINESI.xpButton9Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='2';
exit;
end;

Panel1.Caption:=Panel1.Caption+'2';


end;

procedure THASAPMAKINESI.xpButton10Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='3';
exit;
end;

Panel1.Caption:=Panel1.Caption+'3';


end;

procedure THASAPMAKINESI.xpButton5Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='4';
exit;
end;

Panel1.Caption:=Panel1.Caption+'4';


end;

procedure THASAPMAKINESI.xpButton6Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='5';
exit;
end;

Panel1.Caption:=Panel1.Caption+'5';


end;

procedure THASAPMAKINESI.xpButton7Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='6';
exit;
end;

Panel1.Caption:=Panel1.Caption+'6';


end;

procedure THASAPMAKINESI.xpButton2Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='7';
exit;
end;

Panel1.Caption:=Panel1.Caption+'7';


end;

procedure THASAPMAKINESI.xpButton3Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='8';
exit;
end;

Panel1.Caption:=Panel1.Caption+'8';


end;

procedure THASAPMAKINESI.xpButton4Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='9';
exit;
end;

Panel1.Caption:=Panel1.Caption+'9';


end;

procedure THASAPMAKINESI.xpButton11Click(Sender: TObject);
var
i : byte;
k : string[1];
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='0';
    degersifirla:='hayir';
end;


for i:=1 to Length(Panel1.Caption) do
begin
    k:=copy(panel1.Caption,i,1);
    if k=',' then exit;
end;


if panel1.Caption='0' then
begin
panel1.Caption:='0,';
exit;
end;

Panel1.Caption:=Panel1.Caption+',';

end;

procedure THASAPMAKINESI.xpButton13Click(Sender: TObject);
var
i: real;
begin
i:=StrToFloat(Panel1.Caption);
i:=i*(-1);
Panel1.Caption:=floattostr(i);

If Panel1.Caption='0' then
begin
   Panel1.Caption:='-0';
end;

end;

procedure THASAPMAKINESI.xpButton29Click(Sender: TObject);
var
i : string;
begin

i:=Panel1.Caption;
if length(i)=1 then
begin
    Panel1.Caption:='0';
    exit;
end;
Delete(i,length(i),1);
Panel1.Caption:=i;

end;

procedure THASAPMAKINESI.xpButton31Click(Sender: TObject);
begin
Panel2.Caption:=Panel1.Caption;
end;

procedure THASAPMAKINESI.xpButton32Click(Sender: TObject);
begin
Panel3.Caption:=Panel1.Caption;
end;

procedure THASAPMAKINESI.xpButton33Click(Sender: TObject);
begin
Panel4.Caption:=Panel1.Caption;
end;

procedure THASAPMAKINESI.xpButton34Click(Sender: TObject);
begin
Panel5.Caption:=Panel1.Caption;
end;

procedure THASAPMAKINESI.xpButton39Click(Sender: TObject);
begin
Panel1.Caption:=FloatToStr(pi);
degersifirla :='evet';
end;

procedure THASAPMAKINESI.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if key=VK_F1 then xpButton31Click(sender);
if key=VK_F2 then xpButton32Click(sender);
if key=VK_F3 then xpButton33Click(sender);
if key=VK_F4 then xpButton34Click(sender);

if key=ord('1') then xpButton8Click(sender);
if key=ord('2') then xpButton9Click(sender);
if key=ord('3') then xpButton10Click(sender);
if key=ord('4') then xpButton5Click(sender);
if key=ord('5') then xpButton6Click(sender);
if key=ord('6') then xpButton7Click(sender);
if key=ord('7') then xpButton2Click(sender);
if key=ord('8') then xpButton3Click(sender);
if key=ord('9') then xpButton4Click(sender);
if key=ord('0') then xpButton12Click(sender);

if key=VK_NUMPAD1 then xpButton8Click(sender);
if key=VK_NUMPAD2 then xpButton9Click(sender);
if key=VK_NUMPAD3 then xpButton10Click(sender);
if key=VK_NUMPAD4 then xpButton5Click(sender);
if key=VK_NUMPAD5 then xpButton6Click(sender);
if key=VK_NUMPAD6 then xpButton7Click(sender);
if key=VK_NUMPAD7 then xpButton2Click(sender);
if key=VK_NUMPAD8 then xpButton3Click(sender);
if key=VK_NUMPAD9 then xpButton4Click(sender);
if key=VK_NUMPAD0 then xpButton12Click(sender);

If key=VK_DELETE then xpButton24Click(sender);
if key=VK_ESCAPE then xpButton1Click(sender);

if key=190 then xpButton11Click(sender);
if key=110 then xpButton11Click(sender);
if key=188 then xpButton11Click(sender);
if key=VK_BACK then xpbutton29click(sender);
{
if key=107 then xpButton14Click(sender);
if key=109 then xpButton15Click(sender);
If key=106 then xpButton16Click(sender);
if key=111 then xpButton17Click(sender);
                                        }

                                         {
if Key=#048 then xpButton12Click(sender);
if Key=#049 then xpButton8Click(sender);
if Key=#050 then xpButton9Click(sender);
if Key=#051 then xpButton10Click(sender);
if Key=#052 then xpButton5Click(sender);
if Key=#053 then xpButton6Click(sender);
if Key=#054 then xpButton7Click(sender);
if Key=#055 then xpButton2Click(sender);
if Key=#056 then xpButton3Click(sender);
if Key=#057 then xpButton4Click(sender);  }

//showmessage(inttostr(key));

end;

procedure THASAPMAKINESI.RadioButton2Click(Sender: TObject);
var
i : real;
begin
i:=strtofloat(Panel1.Caption);

if derece='derece' then
begin
  panel1.caption:=floattostr(degTorad(i));

end;

if derece='gradyan' then
begin
  panel1.caption:=floattostr(GRadToRad(i));

end;

derece:='radyan';
degersifirla:='evet';
end;

procedure THASAPMAKINESI.RadioButton1Click(Sender: TObject);
var
i : real;
begin
i:=strtofloat(Panel1.Caption);

if derece='radyan' then
begin
  panel1.caption:=floattostr(RadToDeg(i));

end;

if derece='gradyan' then
begin
  panel1.caption:=floattostr(GRadToDeg(i));

end;

derece:='derece';
degersifirla:='evet';

end;

procedure THASAPMAKINESI.RadioButton3Click(Sender: TObject);
var
i : real;
begin
i:=strtofloat(Panel1.Caption);

if derece='derece' then
begin
  panel1.caption:=floattostr(degTograd(i));

end;

if derece='radyan' then
begin
  panel1.caption:=floattostr(RadToGrad(i));

end;

derece:='gradyan';
degersifirla:='evet';
end;

procedure THASAPMAKINESI.xpButton14Click(Sender: TObject);
begin

if islem='toplama' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)+deger);
end;

if islem='cikarma' then
begin
    panel1.Caption:=floattostr(deger -strtofloat(panel1.Caption));
end;

if islem='carpma' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)*deger);
end;

if islem='bolme' then
begin
      if panel1.Caption='0' then
      begin
          ShowMessage('Sıfıra Bölüm Yapılamaz');
          exit;
      end;
     panel1.Caption:=floattostr(deger / strtofloat(panel1.Caption));
end;

islem:='toplama';
deger:=StrToFloat(Panel1.Caption);
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton15Click(Sender: TObject);
begin
if islem='toplama' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)+deger);
end;

if islem='cikarma' then
begin
    panel1.Caption:=floattostr(deger -strtofloat(panel1.Caption));
end;

if islem='carpma' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)*deger);
end;

if islem='bolme' then
begin
      if panel1.Caption='0' then
      begin
          ShowMessage('Sıfıra Bölüm Yapılamaz');
          exit;
      end;
     panel1.Caption:=floattostr(deger / strtofloat(panel1.Caption));
end;

islem:='cikarma';
deger:=StrToFloat(Panel1.Caption);
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton16Click(Sender: TObject);
begin
if islem='toplama' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)+deger);
end;

if islem='cikarma' then
begin
    panel1.Caption:=floattostr(deger -strtofloat(panel1.Caption));
end;

if islem='carpma' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)*deger);
end;

if islem='bolme' then
begin
      if panel1.Caption='0' then
      begin
          ShowMessage('Sıfıra Bölüm Yapılamaz');
          exit;
      end;
     panel1.Caption:=floattostr(deger / strtofloat(panel1.Caption));
end;

islem:='carpma';
deger:=StrToFloat(Panel1.Caption);
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton17Click(Sender: TObject);
begin
if islem='toplama' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)+deger);
end;

if islem='cikarma' then
begin
    panel1.Caption:=floattostr(deger -strtofloat(panel1.Caption));
end;

if islem='carpma' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)*deger);
end;

if islem='bolme' then
begin
      if panel1.Caption='0' then
      begin
          ShowMessage('Sıfıra Bölüm Yapılamaz');
          exit;
      end;
     panel1.Caption:=floattostr(deger / strtofloat(panel1.Caption));
end;

islem:='bolme';
deger:=StrToFloat(Panel1.Caption);
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton40Click(Sender: TObject);
begin
if islem='toplama' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)+deger);
end;

if islem='cikarma' then
begin
    panel1.Caption:=floattostr(deger -strtofloat(panel1.Caption));
end;

if islem='carpma' then
begin
    panel1.Caption:=floattostr(strtofloat(panel1.Caption)*deger);
end;

if islem='bolme' then
begin
    if panel1.Caption='0' then
      begin
          ShowMessage('Sıfıra Bölüm Yapılamaz');
          exit;
      end;
     panel1.Caption:=floattostr(deger / strtofloat(panel1.Caption));
end;

islem:='esittir';
deger:=0;
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton27Click(Sender: TObject);
begin
Panel1.Caption:=FloatToStr(sqr(strtofloat(panel1.caption)));
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton28Click(Sender: TObject);
begin
Panel1.Caption:=FloatToStr(sqr(strtofloat(panel1.caption))*(strtofloat(panel1.caption)));
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton25Click(Sender: TObject);
begin
Panel1.Caption:=FloatToStr(sqrt(strtofloat(panel1.Caption)));
degersifirla :='evet';
end;

procedure THASAPMAKINESI.xpButton30Click(Sender: TObject);
begin
Panel1.Caption:=FloatToStr(1/(strtofloat(panel1.Caption)));
degersifirla :='evet';
end;

procedure THASAPMAKINESI.xpButton26Click(Sender: TObject);
var
y : extended;
i : real;
j : string;
begin
j:=InputBox('x^y','Y Değerini Giriniz','0');
i:=StrTofloat(j);
y:=StrToFloat(panel1.Caption);
y:=power(y,i);
panel1.Caption:=FloatToStr(y);
degersifirla :='evet';
end;

procedure THASAPMAKINESI.xpButton41Click(Sender: TObject);
begin
Panel1.Caption:=FloatToStr(Log2(strtofloat(Panel1.Caption)));
degersifirla :='evet';
end;

procedure THASAPMAKINESI.xpButton42Click(Sender: TObject);
begin
Panel1.Caption:=FloatToStr(Log10(strtofloat(Panel1.Caption)));
degersifirla :='evet';
end;

procedure THASAPMAKINESI.xpButton43Click(Sender: TObject);
var
n: int64;
sonuc : real;
begin
n:=StrToInt(InputBox('LogN','N :','2'));
if n=0 then exit;
sonuc:=StrToFloat(panel1.Caption);
sonuc:=LogN(n,sonuc);
Panel1.Caption:=FloatToStr(sonuc);
degersifirla :='evet';
end;

procedure THASAPMAKINESI.xpButton18Click(Sender: TObject);
var
x : real;
begin
x:=strtofloat(panel1.Caption);
if derece='derece' then
begin
x:=DegToRad(x);
end;

if derece='gradyan' then
begin
x:=GradTorad(x)
end;

x:= Sin(x);
Panel1.Caption:=FloatToStr(x);
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton19Click(Sender: TObject);
var
x : real;
begin
x:=strtofloat(panel1.Caption);
if derece='derece' then
begin
x:=DegToRad(x);
end;

if derece='gradyan' then
begin
x:=GradTorad(x)
end;

x:= Cos(x);
Panel1.Caption:=FloatToStr(x);
degersifirla :='evet';

end;

procedure THASAPMAKINESI.xpButton20Click(Sender: TObject);
var
x : real;
begin
x:=strtofloat(panel1.Caption);
if derece='derece' then
begin
x:=DegToRad(x);
end;

if derece='gradyan' then
begin
x:=GradTorad(x)
end;

x:= Tan(x);
Panel1.Caption:=FloatToStr(x);
degersifirla :='evet';
end;

procedure THASAPMAKINESI.xpButton21Click(Sender: TObject);
var
x: real;
begin
x:=ArcSin(StrToFloat(panel1.caption));

if derece='derece' then
begin
    x:=radtodeg(x);
end;

if derece='gradyan' then
begin
    x:=radtograd(x);
end;

panel1.Caption:=floattostr(x);
degersifirla:='evet';


end;

procedure THASAPMAKINESI.xpButton22Click(Sender: TObject);
var
x: real;
begin
x:=ArcCos(StrToFloat(panel1.caption));

if derece='derece' then
begin
    x:=radtodeg(x);
end;

if derece='gradyan' then
begin
    x:=radtograd(x);
end;

panel1.Caption:=floattostr(x);
degersifirla:='evet';


end;

procedure THASAPMAKINESI.xpButton23Click(Sender: TObject);
var
x: real;
begin
x:=ArcTan(StrToFloat(panel1.caption));

if derece='derece' then
begin
    x:=radtodeg(x);
end;

if derece='gradyan' then
begin
    x:=radtograd(x);
end;

panel1.Caption:=floattostr(x);
degersifirla:='evet';


end;

procedure THASAPMAKINESI.xpButton35Click(Sender: TObject);
begin
Panel1.Caption:=Panel2.Caption;
end;

procedure THASAPMAKINESI.Button1Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='A';
exit;
end;

Panel1.Caption:=Panel1.Caption+'A';

end;

procedure THASAPMAKINESI.Button2Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='B';
exit;
end;

Panel1.Caption:=Panel1.Caption+'B';

end;

procedure THASAPMAKINESI.Button3Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='C';
exit;
end;

Panel1.Caption:=Panel1.Caption+'C';

end;

procedure THASAPMAKINESI.Button4Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='D';
exit;
end;

Panel1.Caption:=Panel1.Caption+'D';

end;

procedure THASAPMAKINESI.Button5Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='E';
exit;
end;

Panel1.Caption:=Panel1.Caption+'E';

end;

procedure THASAPMAKINESI.Button6Click(Sender: TObject);
begin

if degersifirla='evet' then
begin
    Panel1.Caption:='';
    degersifirla:='hayir';
end;

if panel1.Caption='0' then
begin
panel1.Caption:='F';
exit;
end;

Panel1.Caption:=Panel1.Caption+'F';

end;

procedure THASAPMAKINESI.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then xpButton40Click(sender);
if Key=#043 then xpButton14Click(sender);
if Key=#045 then xpButton15Click(sender);
if Key=#042 then xpButton16Click(sender);
if Key=#047 then xpButton17Click(sender);

 if Key=#27 then Close; //esc

{if Key=#043 then xpButton14Click(sender);
if Key=#045 then xpButton15Click(sender);
if Key=#042 then xpButton16Click(sender);
if Key=#047 then xpButton17Click(sender);

if Key=#048 then xpButton12Click(sender);
if Key=#049 then xpButton8Click(sender);
if Key=#050 then xpButton9Click(sender);
if Key=#051 then xpButton10Click(sender);
if Key=#052 then xpButton5Click(sender);
if Key=#053 then xpButton6Click(sender);
if Key=#054 then xpButton7Click(sender);
if Key=#055 then xpButton2Click(sender);
if Key=#056 then xpButton3Click(sender);
if Key=#057 then xpButton4Click(sender);  }
end;

procedure THASAPMAKINESI.xpbutton11MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton11.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton11MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton11.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton12MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton12.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton12MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton12.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton13MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton13.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton13MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton13.BevelOuter:=bvraised;
end;

procedure THASAPMAKINESI.xpbutton8MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton8.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton9MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton9.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton10MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton10.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton10MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton10.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton8MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton8.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton9MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton9.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton5.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton6MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton6.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton7MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton7.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton5MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton5.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton6MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton6.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton7MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton7.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton2.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton3.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton4.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton4MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton4.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton3.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton2.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton14MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton14.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton15MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton15.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton16MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton16.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton17MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton17.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton14MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton14.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton15MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton15.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton16MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton16.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton17MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton17.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton40MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton40.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton40MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton40.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton45MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton45.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton45MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton45.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton44MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton44.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton44MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton44.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button1.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button2.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.Button3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button3.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.Button4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button4.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.Button5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button5.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.Button6MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button6.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.Button6MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button6.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.Button5MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button5.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.Button4MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button4.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.Button3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button3.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button2.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button1.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton31MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton31.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton32MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton32.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton33MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton33.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton34MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton34.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton35MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton35.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton36MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton36.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton37MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton37.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton38MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton38.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton31MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton31.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton32MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton32.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton33MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton33.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton34MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton34.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton35MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton35.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton36MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton36.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton37MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton37.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton38MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton38.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton25MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton25.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton25MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton25.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton26MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton26.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton27MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton27.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton28MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton28.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton30MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton30.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton27MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton27.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton26MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton26.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton28MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton28.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton30MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton30.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton18MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton18.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton19MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton19.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton20MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton20.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton21MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton21.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton22MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton22.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton23MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton23.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton23MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton23.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton22MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton22.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton21MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton21.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton20MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton20.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton19MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton19.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton18MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton18.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton41MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton41.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton42MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton42.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton43MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton43.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton41MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton41.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton42MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton42.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton43MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton43.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton39MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton39.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton39MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton39.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton29MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton29.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton29MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton29.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.xpbutton24MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton24.BevelOuter:=bvLowered;
end;

procedure THASAPMAKINESI.xpbutton24MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xpbutton24.BevelOuter:=bvRaised;
end;

procedure THASAPMAKINESI.hexaktifClick(Sender: TObject);
begin
Button1.Enabled:=true;
Button2.Enabled:=true;
Button3.Enabled:=true;
Button4.Enabled:=true;
Button5.Enabled:=true;
Button6.Enabled:=true;

Button1.Font.Color:=ClBlack;
Button2.Font.Color:=ClBlack;
Button3.Font.Color:=ClBlack;
Button4.Font.Color:=ClBlack;
Button5.Font.Color:=ClBlack;
Button6.Font.Color:=ClBlack;

end;

procedure THASAPMAKINESI.hexpasifClick(Sender: TObject);
begin
Button1.Enabled:=false;
Button2.Enabled:=false;
Button3.Enabled:=false;
Button4.Enabled:=false;
Button5.Enabled:=false;
Button6.Enabled:=false;

Button1.Font.Color:=clgray;
Button2.Font.Color:=clgray;
Button3.Font.Color:=clgray;
Button4.Font.Color:=clgray;
Button5.Font.Color:=clgray;
Button6.Font.Color:=clgray;

end;

procedure THASAPMAKINESI.Panel12Click(Sender: TObject);
begin
ShowMessage('Bu Program Mustafa MENTEŞOĞLU tarafından Yapılmıştır!!!'+ #13 +'Mail : mustafa_men@hotmail.com');
end;

procedure THASAPMAKINESI.Kopyala1Click(Sender: TObject);

begin
Edit1.Text:=Panel1.Caption;
Edit1.SelectAll;
Edit1.CopyToClipboard;


end;

procedure THASAPMAKINESI.Yaptr1Click(Sender: TObject);
begin
Edit1.Text:='';
edit1.PasteFromClipboard;
Panel1.Caption:=Edit1.Text; 
end;

procedure THASAPMAKINESI.Fahrenhayt2Click(Sender: TObject);
var
f: real;
begin
f:=StrToFloat(Panel1.Caption);
f:=CelsiusToFahrenheit(f);
panel1.Caption:=FloatToStr(f);

end;

procedure THASAPMAKINESI.Santigrat2Click(Sender: TObject);
var
f: real;
begin
f:=StrToFloat(panel1.Caption);
f:=FahrenheitToCelsius(f);
panel1.Caption:=FloatToStr(f);

end;

procedure THASAPMAKINESI.FormShow(Sender: TObject);
begin
derece:='derece';
sayisistemi :='dec'; 
hexpasifClick(sender);
end;

end.

[ertank]

Sayın @ersinlevent_

Hata alıyorum demişsiniz ancak hata nedir yazmamışsınız.
Ayrıca hata almak için gerekli adımları da belirtmemişsiniz.

Sorunuzu biraz daha detaylı şekilde sorabilir misiniz?

[ertank]

sonuc: integer; yerine sonuc: extended; girersin inttostr yerine floattostr..... strtoint yerine strtofloat.....

Kod içinde bölme işleminde DIV kullanılmış. Veri girişi için nokta veya virgül girişine izin verilmemiş. Bu koşullar altında Extended türünde değişken kullanımına gerek yok.

@ersinlevent_ sadece tam sayı işlemleri yapan bir hesap makinesi geliştirmek istemiş gibi gözüküyor şu anda. Ancak bu bilgi bizimle paylaşılmamış.

[ersinlevent_]

değerli abilerim bilimsel hesap makinesi ödevim var,delphi de henüz başlangıç aşamasındayım.okulda öğrendiğim komutlar çok fazla değil ve ödevi de bunlarla yapmak zorundayım.yukarda söylediğim hataları düzelttim.hesap makinesi ödevine yeni komutlar eklemeliyim.sayının kuvvetini alan(a üzeri b),
logaritma fonksiyonu(loga'b) ve arc sin arccos arctan arccot kodları lazım.ödevi raporlu sunmam gerektiği için mantığını öğrenmem gerekiyor.hesap makinesinde bir tane memo penceresi olacak ve aşağıda yer alan tanımlar çerçevesinde yardımcı olursanız sevinirim.yani başlangıç seviyesinde komutlar kullandım.yazdığım kodlar aşağıda teşekkürler..


unit Unit1;

interface

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

type
TForm1 = class(TForm)
bir: TButton;
iki: TButton;
uc: TButton;
dort: TButton;
bes: TButton;
alti: TButton;
yedi: TButton;
sekiz: TButton;
dokuz: TButton;
sifir: TButton;
arti: TButton;
eksi: TButton;
carpi: TButton;
bolu: TButton;
esittir: TButton;
sil: TButton;
kare: TButton;
kup: TButton;
degistir: TButton;
kok: TButton;
yuzde: TButton;
birbolu: TButton;
faktoriyel: TButton;
onuzeri: TButton;
euzeri: TButton;
tam: TButton;
ondalik: TButton;
logiki: TButton;
lna: TButton;
logar: TButton;
mutlak: TButton;
pi: TButton;
sinus: TButton;
cosinus: TButton;
tanjant: TButton;
cotanjant: TButton;
esayisi: TButton;
Memo1: TMemo;
rnd: TButton;
vakit: TTimer;
Label1: TLabel;
Label2: TLabel;
virgul: TButton;
kok2: TButton;
kok3: TButton;
procedure birClick(Sender: TObject);
procedure ikiClick(Sender: TObject);
procedure ucClick(Sender: TObject);
procedure artiClick(Sender: TObject);
procedure esittirClick(Sender: TObject);
procedure dortClick(Sender: TObject);
procedure besClick(Sender: TObject);
procedure altiClick(Sender: TObject);
procedure yediClick(Sender: TObject);
procedure sekizClick(Sender: TObject);
procedure dokuzClick(Sender: TObject);
procedure sifirClick(Sender: TObject);
procedure eksiClick(Sender: TObject);
procedure carpiClick(Sender: TObject);
procedure boluClick(Sender: TObject);
procedure silClick(Sender: TObject);
procedure kareClick(Sender: TObject);
procedure kupClick(Sender: TObject);
procedure degistirClick(Sender: TObject);
procedure kokClick(Sender: TObject);
procedure yuzdeClick(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure onuzeriClick(Sender: TObject);
procedure euzeriClick(Sender: TObject);
procedure tamClick(Sender: TObject);
procedure ondalikClick(Sender: TObject);
procedure lnaClick(Sender: TObject);
procedure mutlakClick(Sender: TObject);
procedure rndClick(Sender: TObject);
procedure piClick(Sender: TObject);
procedure sinusClick(Sender: TObject);
procedure cosinusClick(Sender: TObject);
procedure tanjantClick(Sender: TObject);
procedure cotanjantClick(Sender: TObject);
procedure faktoriyelClick(Sender: TObject);
procedure esayisiClick(Sender: TObject);
procedure vakitTimer(Sender: TObject);
procedure logarClick(Sender: TObject);
procedure logikiClick(Sender: TObject);
procedure virgulClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

sonuc:real;

sayi1:real;

sayi2:real;

islem:integer;

sayi3:integer;
sayi:integer;
sonuc1:integer;


implementation

{$R *.dfm}



procedure TForm1.birClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'1';
end;



procedure TForm1.ikiClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'2';
end;



procedure TForm1.ucClick(Sender: TObject);
begin
If(memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'3';
end;




procedure TForm1.esittirClick(Sender: TObject);
begin
sayi2:=strtofloat(memo1.lines.Strings[0]);

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;

memo1.lines.Strings[0]:=floattostr(sonuc);

end;



procedure TForm1.dortClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'4';
end;



procedure TForm1.besClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'5';
end;



procedure TForm1.altiClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'6';
end;



procedure TForm1.yediClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'7';
end;



procedure TForm1.sekizClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'8';
end;



procedure TForm1.dokuzClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'9';
end;



procedure TForm1.sifirClick(Sender: TObject);
begin
If (memo1.lines.Strings[0]) = '0' Then memo1.lines.strings[0]:='';

memo1.lines.Strings[0]:=memo1.lines.Strings[0]+'0';
end;



procedure TForm1.artiClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

islem:=1;

memo1.lines.Strings[0]:='0';

end;




procedure TForm1.eksiClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

islem:=2;

memo1.lines.Strings[0]:='0';
end;



procedure TForm1.carpiClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

islem:=3;

memo1.lines.Strings[0]:='0';
end;



procedure TForm1.boluClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

islem:=4;

memo1.lines.Strings[0]:='0';
end;



procedure TForm1.silClick(Sender: TObject);
begin

memo1.lines.Strings[0]:=' ';

sayi1:=0;

sayi2:=0;

memo1.lines.Strings[0]:=' 0';

end;

procedure TForm1.kareClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=sayi1*sayi1;

memo1.lines.Strings[0]:=floattostr(sonuc);

end;

procedure TForm1.kupClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=sayi1*sayi1*sayi1;

memo1.lines.Strings[0]:=floattostr(sonuc);

end;

procedure TForm1.degistirClick(Sender: TObject);
begin
memo1.lines.Strings[0]:='-'+memo1.lines.Strings[0]
end;

procedure TForm1.kokClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=sqrt(sayi1);

memo1.lines.Strings[0]:=floattostr(sonuc);
end;

procedure TForm1.yuzdeClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=sayi1/100;

memo1.lines.Strings[0]:=floattostr(sonuc);

end;

procedure TForm1.Button22Click(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=1/sayi1;

memo1.lines.Strings[0]:=floattostr(sonuc);

end;




procedure TForm1.onuzeriClick(Sender: TObject);
begin
sayi1:=StrTofloat(memo1.lines.Strings[0]);

sonuc:= Trunc( Exp( Sayi1 * Ln(10)) );

memo1.lines.Strings[0] := floatToStr(sonuc);

Sayi1:=0 ;
end;

procedure TForm1.euzeriClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0] );

sonuc:=Exp(sayi1);

memo1.lines.Strings[0] :=floattostr(sonuc);

sayi1:=0;


end;

procedure TForm1.tamClick(Sender: TObject);

begin

sayi1:=strtofloat(memo1.lines.Strings[0] );

sonuc1:=Trunc(sayi1);

memo1.lines.Strings[0] :=inttostr(sonuc1);

end;

procedure TForm1.ondalikClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0] );

sonuc:=frac(sayi1);

memo1.lines.Strings[0] :=floattostr(sonuc);

end;

procedure TForm1.lnaClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=Ln(sayi1);

memo1.lines.Strings[0] :=floattostr(sonuc);

end;


procedure TForm1.mutlakClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=abs(sayi1);

memo1.lines.Strings[0]:=floattostr(sonuc);

end;

procedure TForm1.rndClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);
sonuc:=round(sayi1*100)/100;
memo1.lines.Strings[0]:=floattostr(sonuc);
end;



procedure TForm1.piClick(Sender: TObject);
begin
memo1.lines.Strings[0]:=floattostr(3.14159265358);
end;




procedure TForm1.sinusClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);
sonuc:=sin(sayi1*3.14159265358/180);
memo1.lines.Strings[0]:=floattostr(sonuc);
end;



procedure TForm1.cosinusClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=cos(sayi1*3.14159265358/180);

memo1.lines.Strings[0]:=floattostr(sonuc);

end;




procedure TForm1.tanjantClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=(sin(sayi1*3.14159265358/180))/(cos(sayi1*3.14159265358/180));

memo1.lines.Strings[0]:=floattostr(sonuc);

end;




procedure TForm1.cotanjantClick(Sender: TObject);
begin

sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=(cos(sayi1*3.14159265358/180))/(sin(sayi1*3.14159265358/180));

memo1.lines.Strings[0]:=floattostr(sonuc);
end;



procedure TForm1.faktoriyelClick(Sender: TObject);
var sayi:integer;

begin

sonuc:=1;

for sayi:=1 to strtoint(memo1.lines.Strings[0]) do

begin

sonuc:=sonuc*sayi;

end;

memo1.lines.Strings[0]:=floattostr(sonuc);

sonuc:=0;

end;

procedure TForm1.esayisiClick(Sender: TObject);
begin
memo1.lines.Strings[0]:=floattostr(2.71882818284590);
end;

procedure TForm1.vakitTimer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
label2.Caption:=datetostr(date);
end;
procedure TForm1.logarClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=Log10(sayi1);

memo1.lines.Strings[0] :=floattostr(sonuc);

end;

procedure TForm1.logikiClick(Sender: TObject);
begin
sayi1:=strtofloat(memo1.lines.Strings[0]);

sonuc:=Log2(sayi1);

memo1.lines.Strings[0] :=floattostr(sonuc);
end;

procedure TForm1.virgulClick(Sender: TObject);
begin
If StrToInt(memo1.lines.Strings[0]) = 0 Then memo1.lines.Strings[0]:= ' ' ;
memo1.lines.Strings[0]:=memo1.lines.Strings[0]+',';
end;

end.

[ersinlevent_]

Değerli abilerim ikinci olarak hesap makinesin standart ve bilimsel diye ayırmak istiyorum.Bilimsel ve standart adı altında butonları gruplandirip isteğe bağlı olarak tıklandığında formun genişleyip tüm butonları görünür hale gelmesini istiyorur.Umarim ne demek istediğimi anlamışsınızdır.acil yardımcı olursaniz çok sevinirim.Tesekkurler.

[greenegitim]

pagecontrol kullanabilirsin ayrı bir form yapabilirsin hangisi kolayına geliyorsa.