edit1'e eski maaşı girilcek ve combobox'a for dögüsüyle 3-15 kadar sayı ekledim edite sayıyı girdikten sonra combobox'da sayıyı seçiyoruz ve 2.edite'de otomatik olarak yeni maaşı hesaplanıp yazılıyor. kodu nasıl yapılacak yardım eder misiniz ?
Ödev soruları değil mi?
O zama çözüm de öğretici olsun.
Önce matematik: Bir rakama örneğin yüzde 10 eklemek istersek nasıl bir formül kurulmalı? Bunu araştırıp yazarak başlayalım istersen.
Merhaba,
ComboBox'ın OnCloseUp olayına aşağıdaki kodu yazarak, zam hesaplamasını yapabilirsiniz.
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
if ComboBox1.ItemIndex > -1 then
begin
Edit1.Text := FloatToStr((StrToFloat(Edit1.Text) { Taban Maaş } * StrToFloat(ComboBox1.Items[ComboBox1.ItemIndex])
{ zam oranı olduğunu düşünüyorum } + StrToFloat(Edit1.Text)));
end;
end;
Muhtemelen Edit ve/veya Combobox içine string girilme durumu olacaktır. Bu durumun kontrol edilmediğini varsayarak hata oluşabilir. Bu nedenle StrToFloatDef kullanılması daha uygun olacaktır.
(16-07-2020, Saat: 09:32)mrmarman Adlı Kullanıcıdan Alıntı: [ -> ]Ödev soruları değil mi?
O zama çözüm de öğretici olsun.
Önce matematik: Bir rakama örneğin yüzde 10 eklemek istersek nasıl bir formül kurulmalı? Bunu araştırıp yazarak başlayalım istersen.
Formülde sıkıntı yok yapabilirdim normalde ama zam oranını değişken atıyor değişkeni nasıl matematiksel olarak hesaplanır ki ?
(16-07-2020, Saat: 09:32)mrmarman Adlı Kullanıcıdan Alıntı: [ -> ]Ödev soruları değil mi?
O zama çözüm de öğretici olsun.
Önce matematik: Bir rakama örneğin yüzde 10 eklemek istersek nasıl bir formül kurulmalı? Bunu araştırıp yazarak başlayalım istersen.
Formülde sıkıntı yok yapabilirdim normalde ama zam oranını değişken atıyor değişkeni nasıl matematiksel olarak hesaplanır ki ?
(16-07-2020, Saat: 09:33)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba,
ComboBox'ın OnCloseUp olayına aşağıdaki kodu yazarak, zam hesaplamasını yapabilirsiniz.
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
if ComboBox1.ItemIndex > -1 then
begin
Edit1.Text := FloatToStr((StrToFloat(Edit1.Text) { Taban Maaş } * StrToFloat(ComboBox1.Items[ComboBox1.ItemIndex])
{ zam oranı olduğunu düşünüyorum } + StrToFloat(Edit1.Text)));
end;
end;
teşekkür ederim.
(16-07-2020, Saat: 12:28)3ddark Adlı Kullanıcıdan Alıntı: [ -> ]Muhtemelen Edit ve/veya Combobox içine string girilme durumu olacaktır. Bu durumun kontrol edilmediğini varsayarak hata oluşabilir. Bu nedenle StrToFloatDef kullanılması daha uygun olacaktır.
teşekkür ederim.
Değişkenleri matematiksel olarak hesaplayamazsak program yazamayız zaten.
misal
x: maaş
y: zam oranı
t : yeni maaş olsun
buna göre formülümüz :
t := x * ((y/100)+1) olabilir.
(17-07-2020, Saat: 08:44)esistem Adlı Kullanıcıdan Alıntı: [ -> ]Değişkenleri matematiksel olarak hesaplayamazsak program yazamayız zaten.
misal
x: maaş
y: zam oranı
t : yeni maaş olsun
buna göre formülümüz :
t := x * ((y/100)+1) olabilir.
teşekkür ederim normalde matematiksel hesaplama yapabiliyorum ama for dögüsünden aldığım değişkeni nasıl yapılcağını bilmiyordum ve normalde butona basardım hesaplardı hocanın benden istediği ComboBox'daki veriyi seçer seçmez direk hesaplasın diyince kafam karışmıştı zaten çok iyi değilim birde bilmediğim tarzda olunca böyle oldu.
Butona basınca nasıl OnClick ( click yapıldığında ) olayı tetikleniyor da, siz bu Button1Click() gibi bir procedure altına kodunuzu yazıyorsanız, CombBox'un da değişim olduğunda (değişim olduğunda eventi olabilir mi ?) tetiklenen bir olayı var. Bunu bir araştırın. ComboBox'a bir tıklayıp seçince, EVENT kısmındaki olaylar listesinden size uygun olanı hangisi bir göz atın.
(17-07-2020, Saat: 23:23)mrmarman Adlı Kullanıcıdan Alıntı: [ -> ]Butona basınca nasıl OnClick ( click yapıldığında ) olayı tetikleniyor da, siz bu Button1Click() gibi bir procedure altına kodunuzu yazıyorsanız, CombBox'un da değişim olduğunda (değişim olduğunda eventi olabilir mi ?) tetiklenen bir olayı var. Bunu bir araştırın. ComboBox'a bir tıklayıp seçince, EVENT kısmındaki olaylar listesinden size uygun olanı hangisi bir göz atın.
Teşekkür ederim.
