Delphi – Basit Hesap Makinesi Yapımı

Ceys

Yaşayan Forum Efsanesi
2 Nis 2016
7,669
4,964
Orhun Nehri
Merhaba arkadaşlar,

Sizlere delphi ile basit hesap makinesi yapımını göstereceğim.

Mantığı ve yapımı oldukça basit olan hesap makinemiz için başlangıç olarak delphi ile açmış olduğumuz formumuza 4 adet buton, 2 adet edit ve 1 adet label ekliyoruz. Eklemiş olduğumuz bu bileşenlerden butonları çarpma,bölme,toplama ve çıkarma işlemlerini yaptırmak için, editleri sayı girişleri için ve labeli sonucu göstermek için kullanacağız. Şimdi sadece yapmamız gereken çarpma,bölme,toplama ve çıkarma olarak adlandırdığımız butonların içine yani click olayına aşağıdaki kodları yazmak.


Çarpma için:
procedure TForm1.Button1Click(Sender: TObject);
var
say1,say2,sonuc:Double;
begin
say1:=strtofloat(Edit1.Text);
say2:=strtofloat(edit2.Text);
sonuc:=say1*say2;
label1.Caption:=FloatToStr(sonuc);

end;

Bölme için:

procedure TForm1.Button1Click(Sender: TObject);
var
say1,say2,sonuc:Double;
begin
say1:=strtofloat(Edit1.Text);
say2:=strtofloat(edit2.Text);
sonuc:=say1/say2;
label1.Caption:=FloatToStr(sonuc);

end;

Toplama için:

procedure TForm1.Button1Click(Sender: TObject);
var
say1,say2,sonuc:Double;
begin
say1:=strtofloat(Edit1.Text);
say2:=strtofloat(edit2.Text);
sonuc:=say1+say2;
label1.Caption:=FloatToStr(sonuc);

end;

Çıkarma için:

procedure TForm1.Button1Click(Sender: TObject);
var
say1,say2,sonuc:Double;
begin
say1:=strtofloat(Edit1.Text);
say2:=strtofloat(edit2.Text);
sonuc:=say1-say2;
label1.Caption:=FloatToStr(sonuc);

end;

Kodlarımızın çalışma mantığı ise şöyle:

İlk olarak sayısal(double) olarak sayı1,sayı2 ve sonuç değişkenimizi tanımladık. Ve sonrasında sayı1 ve sayı2 değişkenlerimize veriyi editlerden alacağını gösterdik ve gelen veriyi float ile sayısala dönüştürdük. Dönüştürme işlemimiz sonrasında sonuc değişkenimizde yapılması gereken işlemi yaptırıp labelde gösterdik.
 
Son düzenleme:
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.