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.