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;
pek çok din vardır ama ahlak tektir...
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
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.
Eski dos'tan windows olmaz.
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
pek çok din vardır ama ahlak tektir...
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
Eski dos'tan windows olmaz.
Cevapla
#7
Smile Smile Smile
Yarabbim Sen Büyüksün
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
pek çok din vardır ama ahlak tektir...
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Question memo uzun veri ekleme sıkıntısı BY-HAYALET 4 163 06-04-2018, Saat: 17:04
Son Yorum: BY-HAYALET
Question memo bileşeni sıkıntısı BY-HAYALET 8 271 20-03-2018, Saat: 18:51
Son Yorum: BY-HAYALET
Question yazı fontu sıkıntısı BY-HAYALET 11 398 17-03-2018, Saat: 11:13
Son Yorum: Bay_Y
Question apk boyut sıkıntısı BY-HAYALET 14 422 13-03-2018, Saat: 12:45
Son Yorum: mustafasivlin
Question farklı dosya boyutu sıkıntısı BY-HAYALET 2 154 31-01-2018, Saat: 11:17
Son Yorum: BY-HAYALET



Konuyu Okuyanlar: 1 Ziyaretçi