Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: Sayı Tahmin 2  (Okunma sayısı 853 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Sayı Tahmin 2
« : 27 Mayıs 2009 14:04:07 »
Açık Kaynak bölümümüzü geziniyordum ilk projem olan sayı tahmin adındaki oyunumsu şey o haline rağmen 46 defa indirilmiş, dikkatimi çekti, eski günleri yad ederekten bir elden geçireyim dedim. İndireceğiniz dosyada eksiside  yeniside mevcut. Bence ilki daha güzel en azından çıldırmak üzere iken sayıyı göster deyince merakımızı yenebiliyorduk, ama yenisine de  2 tane ipucu ekledim



http://rapidshare.com/files/237764765/DDMemo.rar.html
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Sayı Tahmin 2
« Yanıtla #1 : 27 Mayıs 2009 23:12:38 »
Eline sağlık güzel olmuş, fakat yeni sürümde tahmin kısmında rakam girdiğimiz 4 haneden ilkini geçip diğer üçüne değer girince geçersiz integer değer hatası veriyor(Kıllık değil mi alla alla :) ) ilginç sadece ilk editi es geçebildim ilk edit boş olmayınca diğerlerine değer girmeden atlayamıyorsun, bir kurcala istersen ne dersin.
sanıyorum son editin onexit olay işleyicisinde bir takım kontroller yapıyorsun, enazından böyle zönk !! diye çıkan gıcık bir hata uyarısı yerine kullanıcıyı kibarca "Güzel kardeşim niye kıllık yapıp doğru dürüst değer girmiyorsun" gibi bir uyarı verecek şekilde, güzel bir istisna yönetim kodu yazsan daha iyi olur gibime geldi giblerden sanki diye düşünüyor gibiyim herhalde, kem, küm. :):)

Not: Birde editlere girilen rakamlar değiştirilemiyor(bu kuralsa bir şey demiycem), bu arada rakamlardaki efektler güzel olmuş. Tekrar eline emeğine sağlık.

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: Sayı Tahmin 2
« Yanıtla #2 : 28 Mayıs 2009 08:56:18 »
:) :)

Allahım yarabbim yaa, her halde tek kontrol ettirmediğim tuş tab idi, onuda nasıl buldun şaşırdım daha doğrusu sizden rakam girilmesi istenen bir yerde tab'a niçin basıyorsunuz kardeşim :) ben kendimi pisikopat sanıyordum ama ben yunmuş yıkanmışım meğerse....
Abi şaka bir yana gerçekten proje önemsiz olsada projedeki en önemli hatayı yakalamışsın. Herhangi bir hata uyarısı verdirmedim çünkü, amacım kullanıcının hiç bir şekilde hata yapmamasını sağlamaktı. Neyse onuda şöyle halettim

if (edit1.Text='') or (edit4.Text ='') or (edit4.text= edit1.Text) or
   (edit4.text= edit2.Text) or (edit4.text= edit3.Text)   then
begin
      if edit1.Text='' then
      begin
         edit1.SetFocus;
       //  ShowMessage('edit1 boş');
         exit ;
      end;
      edit4.Text:='';
      edit4.SetFocus;
end
else
   tahmin.Click;

Yani ilk rakam tab'la geçilince diğer editler doldurulabiliyor ama tekrar başa dönüyorsunuz.

Editlerdeki rakamlar değiştirilemiyor çünkü şey, ıııım şey yaa, bir editin nerdeyse tüm eventlarını işlediğimden değil şeyden, kural kural, evet bu bir kural... :)

Tab tuşundan oldum olası hazzetmem zaten, yaktı beni...
Oysa beni en çok, KALAN RAKAMLAR bölümünde "olmayan rakamlardan birini sil" yardımını hazırlamak yormuştu...

http://rapidshare.com/files/238058355/DDMemo.rar.html

Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)