Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
İF-ELSE sıkıntısı
#1
Question 
iki değer arasında çıkartma işlemi yaparken şart koştuğum * eğer birinci sayı ikinci sayıdan küçükse işlemi yapma  veya butonu false durumuna getir * olayı butona bastıktan sonra yinede işlemi yapıyor DAHA SONRA benim şart koştuğum işlemi kontrol edip butonu false yapıyor.  benim istediğim ; butona basmadan önce birinci değer küçükse işlemi yapmasın ve butonu false yapsın..

çok kolay gelebilir ama uzun süre uğraşmama rağmen yapabilmiş değilim Sad

if else kodu
if label1.text < '100' then

button1.enabled := false;

/////

if label1.text < '100' then
begin
button1.enabled := false
end;
                    Basit Mantık :
Neyin Neyini Neye Ne Yapmak İstiyorsun ? 
Cevapla
#2
Merhaba,

Filden ağaca tırmanmasını istemişsiniz Smile ilgili kısmı şöyle yapın;



if  StrToInt(label1.text) < 100 then ...

şu yazıyı da bir gözden geçirin;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Peyami Safa: "Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır". 
Cevapla
#3
merhaba,

sayıları string olarak karşılaştırman hatalı sonuçlar döndürebilir.
'9' < '100' ile 9 < 100 alalım
'9' < '100' false sonuç döndürür
9 < 100 true sonuç döndürür
Cevapla
#4
(24-01-2018, Saat: 14:21)uparlayan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,

Filden ağaca tırmanmasını istemişsiniz Smile ilgili kısmı şöyle yapın;



if  StrToInt(label1.text) < 100 then ...

şu yazıyı da bir gözden geçirin;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
  Üstat olayı bizzat teamviewer ile müdahalede bulundum fakat ya benim bilmediğim bir şey var ya da sorunu göremiyorum. İlk olarak kodu gördüğümde zaten string olan veriyi direkt convert ettim ama ettiğim an program telefondan atmaya başladı. Sonrasında olayı biraz daha inine girdim (form1 de bulunan labelde ki veriyi if ile karşılaştırdığı için) labele hangi kod ile veriyi yazdığını görmek için timer'a bağlanmış prosedüre indim. Form6'da (if in çalışacağı yer) bir public integer tipli bir değişken yazdım. Form1'den oraya değer atadım. Form1'den convert edince yine atmaya başladı(bu arada labele verilen değer Real tipinde, toplama işlemi yapılmış.) Real veriyi Integer veriye nasıl yazarım convert etmeden diye düşünürken ceil fonksiyonu aklıma geldi onu denedim yine olmadı. En son ağlayarak bilgisayarımdan kalktım  Confused Confused teamviewer'ı kapattım. Sorun görmediğim bir yerde veya kendi cahilliğimden kaynaklanıyor.

NOT: Ceil veriyi ondalıklı sayıya çevirsin diye yaptım, Integer kabul eder diye ama yine hüsran.

Saygılarımla.
May the force be with you!
Cevapla
#5
(24-01-2018, Saat: 14:29)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(24-01-2018, Saat: 14:21)uparlayan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,

Filden ağaca tırmanmasını istemişsiniz Smile ilgili kısmı şöyle yapın;



if  StrToInt(label1.text) < 100 then ...

şu yazıyı da bir gözden geçirin;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
  Üstat olayı bizzat teamviewer ile müdahalede bulundum fakat ya benim bilmediğim bir şey var ya da sorunu göremiyorum. İlk olarak kodu gördüğümde zaten string olan veriyi direkt convert ettim ama ettiğim an program telefondan atmaya başladı. Sonrasında olayı biraz daha inine girdim (form1 de bulunan labelde ki veriyi if ile karşılaştırdığı için) labele hangi kod ile veriyi yazdığını görmek için timer'a bağlanmış prosedüre indim. Form6'da (if in çalışacağı yer) bir public integer tipli bir değişken yazdım. Form1'den oraya değer atadım. Form1'den convert edince yine atmaya başladı(bu arada labele verilen değer Real tipinde, toplama işlemi yapılmış.) Real veriyi Integer veriye nasıl yazarım convert etmeden diye düşünürken ceil fonksiyonu aklıma geldi onu denedim yine olmadı. En son ağlayarak bilgisayarımdan kalktım  Confused Confused  teamviewer'ı kapattım. Sorun görmediğim bir yerde veya kendi cahilliğimden kaynaklanıyor.

NOT: Ceil veriyi ondalıklı sayıya çevirsin diye yaptım, Integer kabul eder diye ama yine hüsran.

Saygılarımla.

sorun çözüldüüü !!! tek yapmam gereken buymuş  Smile

procedure TForm6.Timer5Timer(Sender: TObject);
var a: real;
begin

a := strtofloat(form1.label4.Text) ;

if  a < 25000000000000 then
     button4.Enabled := false;


end;

(24-01-2018, Saat: 14:21)uparlayan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,

Filden ağaca tırmanmasını istemişsiniz Smile ilgili kısmı şöyle yapın;



if  StrToInt(label1.text) < 100 then ...

şu yazıyı da bir gözden geçirin;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
attığınız link hayat kurtardı diyebilirim  Smile  saolun Shy
                    Basit Mantık :
Neyin Neyini Neye Ne Yapmak İstiyorsun ? 
Cevapla
#6
(24-01-2018, Saat: 14:44)BY-HAYALET Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(24-01-2018, Saat: 14:29)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol  Üstat olayı bizzat teamviewer ile müdahalede bulundum fakat ya benim bilmediğim bir şey var ya da sorunu göremiyorum. İlk olarak kodu gördüğümde zaten string olan veriyi direkt convert ettim ama ettiğim an program telefondan atmaya başladı. Sonrasında olayı biraz daha inine girdim (form1 de bulunan labelde ki veriyi if ile karşılaştırdığı için) labele hangi kod ile veriyi yazdığını görmek için timer'a bağlanmış prosedüre indim. Form6'da (if in çalışacağı yer) bir public integer tipli bir değişken yazdım. Form1'den oraya değer atadım. Form1'den convert edince yine atmaya başladı(bu arada labele verilen değer Real tipinde, toplama işlemi yapılmış.) Real veriyi Integer veriye nasıl yazarım convert etmeden diye düşünürken ceil fonksiyonu aklıma geldi onu denedim yine olmadı. En son ağlayarak bilgisayarımdan kalktım  Confused Confused  teamviewer'ı kapattım. Sorun görmediğim bir yerde veya kendi cahilliğimden kaynaklanıyor.

NOT: Ceil veriyi ondalıklı sayıya çevirsin diye yaptım, Integer kabul eder diye ama yine hüsran.

Saygılarımla.

sorun çözüldüüü !!! tek yapmam gereken buymuş  Smile

procedure TForm6.Timer5Timer(Sender: TObject);
var a: real;
begin

a := strtofloat(form1.label4.Text) ;

if  a < 25000000000000 then
     button4.Enabled := false;


end;

(24-01-2018, Saat: 14:21)uparlayan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,

Filden ağaca tırmanmasını istemişsiniz Smile ilgili kısmı şöyle yapın;



if  StrToInt(label1.text) < 100 then ...

şu yazıyı da bir gözden geçirin;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
attığınız link hayat kurtardı diyebilirim  Smile  saolun Shy
 Ben yapınca niye atıyordu o zaman yav  Dodgy
May the force be with you!
Cevapla
#7
Smile Smile Smile
Yarabbim Sen Büyüksün
Peyami Safa: "Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır". 
Cevapla
#8
Aslında tek yapılması gereken biraz araştırma yapmak.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#9
(24-01-2018, Saat: 14:55)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlAslında tek yapılması gereken biraz araştırma yapmak.

insan ve özelliklede genç olduğumuz için  aceleci davranmak normal sanırım  Shy
                    Basit Mantık :
Neyin Neyini Neye Ne Yapmak İstiyorsun ? 
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Question play console reddetme sıkıntısı ? BY-HAYALET 5 200 10-06-2018, Saat: 11:06
Son Yorum: BY-HAYALET
Question memo uzun veri ekleme sıkıntısı BY-HAYALET 4 290 06-04-2018, Saat: 17:04
Son Yorum: BY-HAYALET
Question memo bileşeni sıkıntısı BY-HAYALET 8 379 20-03-2018, Saat: 18:51
Son Yorum: BY-HAYALET
Question yazı fontu sıkıntısı BY-HAYALET 11 582 17-03-2018, Saat: 11:13
Son Yorum: Bay_Y
Question apk boyut sıkıntısı BY-HAYALET 14 638 13-03-2018, Saat: 12:45
Son Yorum: mustafasivlin



Konuyu Okuyanlar: 1 Ziyaretçi