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.
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
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
