Miniespana

Basit Bir Sesli Klavye

----------FORM1----

unit Unit1;
interface

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

type
  TForm1 = class(TForm)
    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;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    Button39: TButton;
    Button40: TButton;
    Button41: TButton;
    Button42: TButton;
    Button43: TButton;
    Button44: TButton;
    Image1: TImage;
    Image2: TImage;
    procedure Button42Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button22Click(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 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);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button39Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button41Click(Sender: TObject);
    procedure Button40Click(Sender: TObject);
    procedure Button43Click(Sender: TObject);
    procedure Button44Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2,unit3,unit4,unit5;

{$R *.dfm}

procedure TForm1.Button42Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerçıkışş.wav'),0,SND_SYNC);
  PlaySound(pChar('c:KLAVYEseslerçıkış.wav'),0,SND_SYNC);

close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEseslera.wav'),0,SND_SYNC);


end;
procedure TForm1.Button22Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerş.wav'),0,SND_SYNC);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerb.wav'),0,SND_SYNC);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerc.wav'),0,SND_SYNC);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEseslerç.wav'),0,SND_SYNC);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEseslerd.wav'),0,SND_SYNC);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEseslere.wav'),0,SND_SYNC);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEseslerf.wav'),0,SND_SYNC);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerg.wav'),0,SND_SYNC);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerğ.wav'),0,SND_SYNC);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerı.wav'),0,SND_SYNC);
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleri.wav'),0,SND_SYNC);
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerj.wav'),0,SND_SYNC);
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerk.wav'),0,SND_SYNC);
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerl.wav'),0,SND_SYNC);
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerm.wav'),0,SND_SYNC);
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslern.wav'),0,SND_SYNC);
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslero.wav'),0,SND_SYNC);
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerö.wav'),0,SND_SYNC);
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerp.wav'),0,SND_SYNC);
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerr.wav'),0,SND_SYNC);
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslers.wav'),0,SND_SYNC);
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslert.wav'),0,SND_SYNC);
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleru.wav'),0,SND_SYNC);
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerü.wav'),0,SND_SYNC);
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerh.wav'),0,SND_SYNC);
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerv.wav'),0,SND_SYNC);
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslery.wav'),0,SND_SYNC);
end;

procedure TForm1.Button29Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerz.wav'),0,SND_SYNC);
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler1.wav'),0,SND_SYNC);
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler2.wav'),0,SND_SYNC);
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler3.wav'),0,SND_SYNC);
end;

procedure TForm1.Button34Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler4.wav'),0,SND_SYNC);
end;

procedure TForm1.Button35Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler5.wav'),0,SND_SYNC);
end;

procedure TForm1.Button37Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler6.wav'),0,SND_SYNC);
end;

procedure TForm1.Button38Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler7.wav'),0,SND_SYNC);
end;

procedure TForm1.Button36Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler8.wav'),0,SND_SYNC);
end;

procedure TForm1.Button39Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler9.wav'),0,SND_SYNC);
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesler.wav'),0,SND_SYNC);
end;

procedure TForm1.Button41Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerheceler.wav'),0,SND_SYNC);
form2.show;
end;

procedure TForm1.Button40Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerkelimeler.wav'),0,SND_SYNC);
form3.Show;

end;

procedure TForm1.Button43Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEseslercümleler.wav'),0,SND_SYNC);
form4.show;

end;

procedure TForm1.Button44Click(Sender: TObject);
begin
  PlaySound(pChar('c:KLAVYEseslerhesap makinesi.wav'),0,SND_SYNC);
form5.show;
end;

-----------FORM2-------

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    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 Button10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 uses unit1;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEsesleranamenü.wav'),0,SND_SYNC);
form1.show;
close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerab.wav'),0,SND_SYNC);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerba.wav'),0,SND_SYNC);
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerca.wav'),0,SND_SYNC);
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerde.wav'),0,SND_SYNC);
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerma.wav'),0,SND_SYNC);
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleran.wav'),0,SND_SYNC);
end;

procedure TForm2.Button8Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerne.wav'),0,SND_SYNC);
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerla.wav'),0,SND_SYNC);
end;

procedure TForm2.Button10Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerbe.wav'),0,SND_SYNC);
end;
END.

------------FORM3---------------

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    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 Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
 uses unit1;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEsesleranamenü.wav'),0,SND_SYNC);
 form1.Show;
 close
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerbaba.wav'),0,SND_SYNC);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleranne.wav'),0,SND_SYNC);
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerdede.wav'),0,SND_SYNC);
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleramca.wav'),0,SND_SYNC);
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerabla.wav'),0,SND_SYNC);
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerokul.wav'),0,SND_SYNC);
end;

procedure TForm3.Button8Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerdefter.wav'),0,SND_SYNC);
end;

procedure TForm3.Button9Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerkalem.wav'),0,SND_SYNC);
end;

procedure TForm3.Button10Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerkitap.wav'),0,SND_SYNC);
end;

procedure TForm3.Button11Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerbayrak.wav'),0,SND_SYNC);
end;
end.

-------------------FORM4-------------------

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    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 FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
 uses unit1;
{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleranamenü.wav'),0,SND_SYNC);
form1.show;
close;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerali ata bak.wav'),0,SND_SYNC);
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerali topu at.wav'),0,SND_SYNC);
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleremel eve gel.wav'),0,SND_SYNC);
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEseslerserap okula git.wav'),0,SND_SYNC);
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
PlaySound(pChar('c:KLAVYEsesleradem zil çaldı.wav'),0,SND_SYNC);
end;

procedure TForm4.FormCreate(Sender: TObject);
begin

end;

end.


----------------FORM5-------------

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    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;
    Button28: TButton;
    Button29: TButton;
    Label1: TLabel;
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(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 Button10Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    Islem,Kontrol : integer;
    GeciciSayi3,
    GeciciSayi2,
    GeciciSayi,
    IlkSayi,
    IkinciSayi,
    Hafiza,
    IslemSonucu   : real;
    Sonuc         : string[9];{ Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button12Click(Sender: TObject);
begin
 Islem:=0;
  Kontrol:=1;
  Sonuc:=('0');
  LABEL1.Caption:=Sonuc;
  IkinciSayi:=0;
  IlkSayi:=0;
end;

procedure TForm5.Button13Click(Sender: TObject);
begin
 PlaySound(pChar('c:KLAVYEsesleranamenü.wav'),0,SND_SYNC);
close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('0');
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('1');
                      label1.Caption:=Sonuc;

end;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('2');
                      label1.Caption:=Sonuc;
end; end;

procedure TForm5.Button4Click(Sender: TObject);
begin
  if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('3');
                      label1.Caption:=Sonuc;
end;
end;
procedure TForm5.Button5Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('4');
                      label1.Caption:=Sonuc;
end;
end;

procedure TForm5.Button6Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('5');
                      label1.Caption:=Sonuc;
end;
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('6');
                      label1.Caption:=Sonuc;
end;
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('7');
                      label1.Caption:=Sonuc;
end;
end;

procedure TForm5.Button9Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('8');
                      label1.Caption:=Sonuc;
end;
end;

procedure TForm5.Button10Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      if Sonuc=('0') then Sonuc:=('');
                      Sonuc:=Sonuc+('9');
                      label1.Caption:=Sonuc;
end;
end;

procedure TForm5.Button17Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      Sonuc:=('0');
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button27Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      Islem:=2;
                      IlkSayi:=strtofloat(Sonuc);
                      Sonuc:=('0');
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button26Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      Islem:=3;
                      IlkSayi:=strtofloat(Sonuc);
                      Sonuc:=('0');
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button25Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      Islem:=1;
                      IlkSayi:=strtofloat(Sonuc);
                      Sonuc:=('0');
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button24Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      Islem:=4;
                      IlkSayi:=strtofloat(Sonuc);
                      Sonuc:=('0');
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button28Click(Sender: TObject);
begin
if Kontrol=1 then begin
                      IkinciSayi:=strtofloat(Sonuc);
                      if Islem=1 then begin IslemSonucu:=IlkSayi+IkinciSayi; end;
                      if Islem=4 then begin IslemSonucu:=IlkSayi-IkinciSayi; end;
                      if Islem=2 then begin IslemSonucu:=IlkSayi*IkinciSayi; end;
                      if (Islem=3) and (IlkSayi>0) and (IkinciSayi>0) then begin IslemSonucu:=IlkSayi/IkinciSayi; end;
                      Sonuc:=floattostr(IslemSonucu);
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button15Click(Sender: TObject);
begin
if Kontrol=1 then begin
                      IkinciSayi:=strtofloat(Sonuc);
                      Hafiza:=Hafiza+IkinciSayi;
                    end;
end;

procedure TForm5.Button23Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      GeciciSayi:=strtofloat(Sonuc);
                      GeciciSayi:=GeciciSayi*GeciciSayi;
                      Sonuc:=floattostr(GeciciSayi);
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button29Click(Sender: TObject);
begin
if Kontrol=1 then begin
                      Sonuc:=('-')+Sonuc;
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button22Click(Sender: TObject);
begin
if Kontrol=1 then begin
                      GeciciSayi:=strtofloat(Sonuc);
                      if GeciciSayi>1 then begin
                                             IlkSayi:=strtofloat(Sonuc);
                                             GeciciSayi2:=sqrt(IlkSayi);
                                             Sonuc:=floattostr(GeciciSayi2);
                                             label1.Caption:=Sonuc;
                                           end; end;
end;

procedure TForm5.Button18Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      GeciciSayi:=strtofloat(Sonuc);
                      GeciciSayi2:=sin(GeciciSayi);
                      Sonuc:=floattostr(GeciciSayi2);
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button19Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      GeciciSayi:=strtofloat(Sonuc);
                      GeciciSayi2:=cos(GeciciSayi);
                      Sonuc:=floattostr(GeciciSayi2);
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button20Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      GeciciSayi:=strtofloat(Sonuc);
                      GeciciSayi2:=sin(GeciciSayi);
                      GeciciSayi3:=cos(GeciciSayi);
                      GeciciSayi:=GeciciSayi2/GeciciSayi3;
                      Sonuc:=floattostr(GeciciSayi);
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button16Click(Sender: TObject);
begin
 if Kontrol=1 then Hafiza:=strtofloat(Sonuc);

end;

procedure TForm5.Button14Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      Sonuc:=floattostr(Hafiza);
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button11Click(Sender: TObject);
begin
if Kontrol=1 then begin
                      Sonuc:=Sonuc+(','); // Burada , yerine . kullanabilirsiniz. Ancak İşletim sisteminizin ülke ayarları ile aynı olmalıdır aksi halde hata verir.
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.Button21Click(Sender: TObject);
begin
 if Kontrol=1 then begin
                      Sonuc:=('3,141592'); // Burada , yerine . kullanabilirsiniz. Ancak İşletim sisteminizin ülke ayarları ile aynı olmalıdır aksi halde hata verir.
                      label1.Caption:=Sonuc;
                    end;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin

end;

end.


Bugün 17 ziyaretçi (285 klik) kişi burdaydı!