Delphi ile kolay ve basit bir hesap makinası yapımı

Jameica

Yazar Şefi
Moderatör
Katılım
9 Eki 2022
Konular
23
Mesajlar
44
Tepki puanı
68
Puanları
1,610
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.

Kod:
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;


Kod:
Çı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;


Kod:
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;


Kod:
Ç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;

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.

Toplama için:
carpma-min.png

Çarpma için:
carpma-min.png
 

Ekli dosyalar

  • toplama-min.png
    toplama-min.png
    3 KB · Görünt.: 73
Son düzenleme:

Diezombie92

Yazar Şefi
Katılım
15 Kas 2019
Konular
29
Mesajlar
81
Çözümler
1
Tepki puanı
88
Puanları
2,610
Yanlış anlamadıysam toplama için koyulan ekran görüntüsü yerine aynı çarpan sonucu veren ekran görüntüsü koyulmuş. Yine de aşağıda da toplama ekran görüntüsü var, emeğine sağlık.
 
  • Beğen
Tepkiler: Jameica

Jameica

Yazar Şefi
Moderatör
Katılım
9 Eki 2022
Konular
23
Mesajlar
44
Tepki puanı
68
Puanları
1,610
Yanlış anlamadıysam toplama için koyulan ekran görüntüsü yerine aynı çarpan sonucu veren ekran görüntüsü koyulmuş. Yine de aşağıda da toplama ekran görüntüsü var, emeğine sağlık.
Teşekkürler. Okuldayken Biraz Sıkıntılı Oldu Tam Olarak Kontrol Edemedim Telefondan Bildirimin için saol.:)