- 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.
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:
Çarpma için:
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:
Çarpma için:
Ekli dosyalar
Son düzenleme: