• Merhaba Ziyaretçi.
    "Yapay Zeka Objektif " Fotoğraf Yarışması başladı. İlgili konuya  BURADAN  ulaşabilirsiniz. Sizi de bu yarışmada görmek isteriz...

Delphi İle Basit Bir Hesap Makinesi

YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Bu dersimizde Delphi basit dört işlemleri yapan bir hesap makinası uygulaması yapıyoruz.

1. Delphi'yi başlatıyoruz.
2. Form üzerine isimlerini değiştirmeden aşağıdaki bileşenleri Standart Sekmesinden ekliyoruz.

3 adet Edit
1 adet RadioGroup
1 adet Buton ekliyoruz.

4. Şimdi formumuza eklediğiniz RadioGroup bileşenine bir kez tıklayıp seçili hale getirip, soldaki Proterties sekmesinde okla gösterilen İtems satırındaki String bölümüne tıklıyoruz ve açılan pencereye sırası ile;

Toplama
Çıkarma
Çarpma
Bölme

yazıp OK butonuna basıyoruz. Artık RadioGroup bileşeni üzerinde eklediğimiz String'ler görünüyor olmalı.

5. Son aşamaya geldik. Buradaki amacımız RadioGroup bileşeninde seçtiğimiz işlemi buton aracılığı ile yaptırmak. Bunun için formumuza eklediğimiz Butonun OnClick yordamına (begin-end arasına) aşağıdaki kodu ekliyoruz.
Kod: 
  case RadioGroup1.ItemIndex of
    0 : Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) + StrTofloat(Edit2.Text));
    1 : Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) - StrTofloat(Edit2.Text));
    2 : Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) * StrTofloat(Edit2.Text));
    3 : Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) / StrTofloat(Edit2.Text));
  end;

Artık derleme işlemine geçebiliriz. (F9)

Oluşan exe dosyamız aşağıdaki gibi olacaktır. Artık basit bir hesap makineniz var :)
 
Melek

Melek

Özel Üye
Özel üye
yardımcı konular eşliğinde kendi yaptığım hesap makinasının resmini sizlerle paylaşmak istedim
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Eğer Delphi'yi kurarsam elbette :)

Ayrıca kaynak kodlar konusunda yardımcı olabilirim @nazenin.

E-Cozum.Net programları altında yayınlanan programların kaynak kodları elimde parçalar halinde verebilirim :)
 
Son düzenleme:
nazenin

nazenin

MiKRoSKoBiKCaNLı
Özel üye
konuyla ilgili paylaşımlarına baktım..
konuya gayet hakimsin.. :)
teşekkürler şimdiden..
bende toparlayabilirsem paylaşırım örnek programlar.. :)
bi programiçin iki saat pc başında oturduğum oluyo heralde..
benim gibi arayanlara kolaylık olsun birazcık .. :)
 
Benzer Konular Başlık Forum Cevap Tarih
YoRuMSuZ Delphi Toolbar Reset Delphi İle Başlangıç 0
YoRuMSuZ Delphi Basit Case Kullanımı - 4 İşlem Delphi İle Başlangıç 0
YoRuMSuZ Delphi RAD Studio 10.4 kurulum Delphi İle Başlangıç 0
H Delphi DNS DEĞİŞTİRME KODLARI Delphi İle Başlangıç 1
YoRuMSuZ Buton Stilini Değiştirmek ve Görev Atamak - Delphi XE7 Delphi İle Başlangıç 0

Top