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:
Bölme için:
Toplama için:
Çıkarma için:
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.
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,sonucouble;
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,sonucouble;
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,sonucouble;
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,sonucouble;
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: