DELPHI Basit Bir Yardım Lazım . .

Tahribat.com Forumları
line

Delphi - Pascal
line

18/Haz/08 18:25 Kısayol Şikayet Özel Mesaj

manyaki

Kayıt Tarihi: 27/Temmuz/2005

Şimdi hocalar delphiye başlayalı 1 hafta oldu sorum kolay gelebilir lütfen ezmeyin :) Basit bir hesap makinası yaptım.. Fakat EditBox lara sayıdan farklı bir şey yazınca hata verip kapanıyor program.. Bunu nasıl engelleyebilirim ? sayıdan farklı birşey yazınca Bir mesaj çıkıp Lütfen Bir Sayı Girin dicek mesela.. Yardımlar için şimdiden teşekkürler..
DipNot: Ayrıca ben öğrenirken, "zaten boş boş duruyorum öğrenmende benimde payım olsun biryerde takılrsan sorarsın" diye msn vermek isteyen olursa bana özelden ulaşırsa çok makbule geçer :)

since 2005 // tbt

Alıntı yap
18/Haz/08 18:27 Kısayol Şikayet Özel Mesaj

manyaki

Kayıt Tarihi: 27/Temmuz/2005

bu arada şimdi farkettim TextBox un birini boş bırakınca da uyarı verip kapanıyor onada bir çözüm bulmak lazım :(

since 2005 // tbt

Alıntı yap
18/Haz/08 18:31 Kısayol Şikayet Özel Mesaj

hotboy

Kayıt Tarihi: 08/Ağustos/2005

yazdığın kodu buraya bi eklede ona göre yardımcı olalım

Alıntı yap
18/Haz/08 18:38 Kısayol Şikayet Özel Mesaj

manyaki

Kayıt Tarihi: 27/Temmuz/2005

4 Label, 2TextBox, 4 Button
4.Label = lblSonuc
Button1 e
lblSonuc.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
Button2 e
lblSonuc.Caption:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));
Button3 e
lblSonuc.Caption:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
Button4 e
lblSonuc.Caption:=FloatToStr(StrToInt(Edit1.Text)/StrToInt(Edit2.Text));

since 2005 // tbt

Alıntı yap
18/Haz/08 18:51 Kısayol Şikayet Özel Mesaj

manyaki

Kayıt Tarihi: 27/Temmuz/2005

doğru mu yazıyorum bilmiyorum ama mantık olarak şöyle birşey düşündüm olabilir mi..?

if edit1.text>0 else edit1.text<9 then
begin
end

gibi.. büyük ihtimalle yanlış yazdım zaten ama mantık olarak sordum

since 2005 // tbt

Alıntı yap
18/Haz/08 19:10 Kısayol Şikayet Özel Mesaj

hotboy

Kayıt Tarihi: 08/Ağustos/2005

  if ( StrScan('0123456789.-',Key) <> nil ) or
     ( Key = Char(VK_BACK) ) then
begin

end
else
    Key := #0;

yukarıdaki hedeyi editlerin onkeypress eventine yaz

Alıntı yap
18/Haz/08 19:11 Kısayol Şikayet Özel Mesaj

wert

Kayıt Tarihi: 19/Eylül/2005

if strtoint(edit1.text)>0 else strtoint(edit1.text)<9 then

|sadece aptalların başarısı ders notu ile ölçülür|

Alıntı yap
18/Haz/08 19:15 Kısayol Şikayet Özel Mesaj

manyaki

Kayıt Tarihi: 27/Temmuz/2005

wert bunu yazdı:
-----------------------------
if strtoint(edit1.text)>0 else strtoint(edit1.text)<9 then
-----------------------------
hotboy bunu yazdı:
-----------------------------
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then
begin

end
else
Key := #0;

yukarıdaki hedeyi editlerin onkeypress eventine yaz

-----------------------------

wert hocam sağolasın..
hotboy.. hocam bir de bana yazdıklarının mantığını anlatırsan çok makbule geçer.. ayrıca snde çok sağol..

since 2005 // tbt

Alıntı yap
18/Haz/08 19:18 Kısayol Şikayet Özel Mesaj

hotboy

Kayıt Tarihi: 08/Ağustos/2005

eğer girilen tuş 123456789.- iiçnden deilse yada silme tuşu deilse girilen hedeyi geri çevir

edit: o koddan "-" yi çıkar istersen ama nokta kalsın

Alıntı yap
18/Haz/08 19:23 Kısayol Şikayet Özel Mesaj

manyaki

Kayıt Tarihi: 27/Temmuz/2005

anladım sanırım (: yardımlar içn sağol bir de 2. postumda yazdığım şey mümkün mü ? Mesela 2 TextBox a da sayı girilmeden Enable özelliği false olsun..?

since 2005 // tbt

Alıntı yap
18/Haz/08 19:26 Kısayol Şikayet Özel Mesaj

hotboy

Kayıt Tarihi: 08/Ağustos/2005

manyaki bunu yazdı:
-----------------------------
anladım sanırım (: yardımlar içn sağol bir de 2. postumda yazdığım şey mümkün mü ? Mesela 2 TextBox a da sayı girilmeden Enable özelliği false olsun..?
-----------------------------
şöyle yap;
if (edit1.text<>'') and (edit2.text<>'') then
begin

buraya kodlar

end;

Alıntı yap

Toplam Hit: 8662 Toplam Mesaj: 27

Cevapla