Şifremi Unuttum?   -   Üye Ol





Elit Üyelik Bilgi Formu İçin Tıklayınız



Yeni Yorum Gönder 
 
Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
DELPHI / Hesap Makinesi...... Basit Bir Hesap Makinasi İhtiyaci Olanlar İçin. Gelisti
Yazar Konu
magnito Çevrimdışı
Forum Üyesi
**
avatar
Yorum Sayısı: 7
Üyelik Tarihi: Dec 2013
Rep Puanı: 0
Yorum: #1
DELPHI / Hesap Makinesi...... Basit Bir Hesap Makinasi İhtiyaci Olanlar İçin. Gelisti
// Formunuza yeterli sayıda 29 buton ve 1 adet label yerleştirin ve adlarını
aşağıdaki programa uygun şekilde değiştirin. Tüm butonları ekrana hesap makinası
şeklinde yerleştirin. Label'da sonuçların görüneceği ekran olarak kullanılacak.
// Biraz font ve renklerle oynayarak güzel görünümler elde edebilirsiniz.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Buton_0 : TButton;
Buton_1 : TButton;
Buton_2 : TButton;
Buton_3 : TButton;
Buton_4 : TButton;
Buton_5 : TButton;
Buton_6 : TButton;
Buton_7 : TButton;
Buton_8 : TButton;
Buton_9 : TButton;
Buton_Nokta : TButton;
Buton_ON : TButton;
Buton_OFF : TButton;
Buton_MR : TButton;
Buton_MArti : TButton;
Buton_Min : TButton;
Buton_C : TButton;
Buton_Sin : TButton;
Buton_Cos : TButton;
Buton_Tan : TButton;
Buton_Pi : TButton;
Buton_Karekok : TButton;
Buton_x2 : TButton;
Buton_Eksi : TButton;
Buton_Arti : TButton;
Buton_Bolu : TButton;
Buton_Carpi : TButton;
Buton_Esittir : TButton;
Buton_ArtiEksi : TButton;
SonucEkrani : TLabel;
procedure Buton_ONClick(Sender: TObject);
procedure Buton_OFFClick(Sender: TObject);
procedure Buton_0Click(Sender: TObject);
procedure Buton_2Click(Sender: TObject);
procedure Buton_1Click(Sender: TObject);
procedure Buton_3Click(Sender: TObject);
procedure Buton_4Click(Sender: TObject);
procedure Buton_5Click(Sender: TObject);
procedure Buton_6Click(Sender: TObject);
procedure Buton_7Click(Sender: TObject);
procedure Buton_8Click(Sender: TObject);
procedure Buton_9Click(Sender: TObject);
procedure Buton_CClick(Sender: TObject);
procedure Buton_CarpiClick(Sender: TObject);
procedure Buton_BoluClick(Sender: TObject);
procedure Buton_ArtiClick(Sender: TObject);
procedure Buton_EksiClick(Sender: TObject);
procedure Buton_EsittirClick(Sender: TObject);
procedure Buton_MArtiClick(Sender: TObject);
procedure Buton_x2Click(Sender: TObject);
procedure Buton_ArtiEksiClick(Sender: TObject);
procedure Buton_KarekokClick(Sender: TObject);
procedure Buton_SinClick(Sender: TObject);
procedure Buton_CosClick(Sender: TObject);
procedure Buton_TanClick(Sender: TObject);
procedure Buton_MinClick(Sender: TObject);
procedure Buton_MRClick(Sender: TObject);
procedure Buton_NoktaClick(Sender: TObject);
procedure Buton_PiClick(Sender: TObject);
private
{ Private declarations }
public
Islem,Kontrol : integer;
GeciciSayi3,
GeciciSayi2,
GeciciSayi,
IlkSayi,
IkinciSayi,
Hafiza,
IslemSonucu : real;
Sonuc : string[9];
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Buton_ONClick(Sender: TObject);
begin
Islem:=0;
Kontrol:=1;
Sonuc:=('0');
SonucEkrani.Caption:=Sonuc;
IkinciSayi:=0;
IlkSayi:=0;
end;

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

procedure TForm1.Buton_0Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('0');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_2Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('2');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_1Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('1');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_3Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('3');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_4Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('4');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_5Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('5');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_6Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('6');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_7Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('7');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_8Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('8');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_9Click(Sender: TObject);
begin
if Kontrol=1 then begin
if Sonuc=('0') then Sonuc:=('');
Sonuc:=Sonuc+('9');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_CClick(Sender: TObject);
begin
if Kontrol=1 then begin
Sonuc:=('0');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_CarpiClick(Sender: TObject);
begin
if Kontrol=1 then begin
Islem:=2;
IlkSayi:=strtofloat(Sonuc);
Sonuc:=('0');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_BoluClick(Sender: TObject);
begin
if Kontrol=1 then begin
Islem:=3;
IlkSayi:=strtofloat(Sonuc);
Sonuc:=('0');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_ArtiClick(Sender: TObject);
begin
if Kontrol=1 then begin
Islem:=1;
IlkSayi:=strtofloat(Sonuc);
Sonuc:=('0');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_EksiClick(Sender: TObject);
begin
if Kontrol=1 then begin
Islem:=4;
IlkSayi:=strtofloat(Sonuc);
Sonuc:=('0');
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_EsittirClick(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);
SonucEkrani.Caption:=Sonuc;
end;
end;

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

procedure TForm1.Buton_x2Click(Sender: TObject);
begin
if Kontrol=1 then begin
GeciciSayi:=strtofloat(Sonuc);
GeciciSayi:=GeciciSayi*GeciciSayi;
Sonuc:=floattostr(GeciciSayi);
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_ArtiEksiClick(Sender: TObject);
begin
if Kontrol=1 then begin
Sonuc:=('-')+Sonuc;
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_KarekokClick(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);
SonucEkrani.Caption:=Sonuc;
end;
end;
end;

procedure TForm1.Buton_SinClick(Sender: TObject);
begin
if Kontrol=1 then begin
GeciciSayi:=strtofloat(Sonuc);
GeciciSayi2:=sin(GeciciSayi);
Sonuc:=floattostr(GeciciSayi2);
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_CosClick(Sender: TObject);
begin
if Kontrol=1 then begin
GeciciSayi:=strtofloat(Sonuc);
GeciciSayi2:=cos(GeciciSayi);
Sonuc:=floattostr(GeciciSayi2);
SonucEkrani.Caption:=Sonuc;
end;
end;

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

procedure TForm1.Buton_MinClick(Sender: TObject);
begin
if Kontrol=1 then Hafiza:=strtofloat(Sonuc);
end;

procedure TForm1.Buton_MRClick(Sender: TObject);
begin
if Kontrol=1 then begin
Sonuc:=floattostr(Hafiza);
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_NoktaClick(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.
SonucEkrani.Caption:=Sonuc;
end;
end;

procedure TForm1.Buton_PiClick(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.
SonucEkrani.Caption:=Sonuc;
end;
end;

end.

Benim Yaptıklarımı Sizler Hayal Edemezsiniz !!
[video=youtube]http://www.youtube.com/watch?v=Y_pjCuZoX8Q[/video]
(Bu konu en son: 12-06-2013 Tarihinde, Saat: 06:47 düzenlenmiştir. Düzenleyen: magnito.)
12-06-2013 06:46
Tüm Mesajlarına Bak Alıntı ile Cevapla
Yeni Yorum Gönder 


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi Devexpress Compenent hpeker 0 2,239 01-15-2014 23:30
Son Yorum: hpeker
  Delphi Dersleri - Ders 1 seyinaydin 1 3,049 11-28-2013 16:55
Son Yorum: kuzgun51
  Delphi Dersleri - Ders 2 seyinaydin 1 2,781 11-28-2013 16:54
Son Yorum: kuzgun51
  Google earth ve delphi xemorytr 0 1,661 11-23-2013 18:28
Son Yorum: xemorytr

Hızlı Menü:


Şu anda bu konuyu okuyanlar: 1 Ziyaretçi

İletişim | CesurForum | Yukarı Git | İçeriğe Git | Arşiv | RSS Beslemesi



Bu Web Sitesi Zumbak Hosting Tarafindan Barındırılmaktadır.


5651 Sayılı Kanun’un 8. maddesine ve T.C.K’nın 125. maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Sitemiz, hukuka, yasalara, telif haklarına ve kişilik haklarına saygılı olmayı amaç edinmiştir. Sitemiz, 5651 sayılı yasada tanımlanan “yer sağlayıcı” olarak hizmet vermektedir. İlgili yasaya göre, site yönetiminin hukuka aykırı içerikleri kontrol etme yükümlülüğü YOKTUR!Bu sebeple, sitemiz “uyar ve kaldır” prensibini benimsemiştir. Telif hakkına konu olan eserlerin yasal olmayan bir biçimde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahipleri veya meslek birlikleri, BURADAN bize ulaşabilirler. Buraya ulaşan talep ve şikayetler Hukuk Müşavirimiz tarafından incelenecek, şikayet yerinde görüldüğü takdirde ihlal olduğu düşünülen içerikler sitemizden kaldırılacaktır.Ayrıca, mahkemelerden talep gelmesi halinde hukuka aykırı içerik üreten ve hukuka aykırı paylaşımda bulunan üyelerin tespiti için gerekli teknik veriler sağlanacaktır.Sitemiz üzerinden yapılan satış ilanları sadece firmalar için olup, kötüye kullanımından doğacak hasarlardan kesinlikle sitemiz sorumlu tutulamaz.