Programlama | Programlama Dilleri | C Programlama Dili |C++

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
Anasayfa Programlama C++ Builder Say? Bulma Oyunu


Say? Bulma Oyunu

AÇIKLAMA

C++ Builder 6 projesidir.

Bilgisayar?n tuttu?u bir say?y? bulmay? sa?layan br oyundur. Sizin girdi?iniz rakama göre bilgisayar sizi girilecek say?y? büyültmeniz yada küçültmeniz yönünde bir uyar? mesaj? vererek en sonunda say?y? bulman?z? sa?lar.Kullan?lan hak say?s?na göre bilgisayar sonuçta sizin puan?n?z? belirler.

Program?n Tamam?n? A?a??daki Linkten ?ndirebilirsiniz

Linki Görebilmeniz ?çin Üye Olman?z Gerekmektedir...

Üye Kay?t

 

Program Kodu:

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13. : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17.  
  18. void __fastcall TForm1::Button1Click(TObject *Sender)
  19. {
  20. int ts,gs,puan;
  21. randomize;
  22. ts=random(100);
  23. puan=1000;
  24. gs=StrToInt(InputBox("Say? Giriniz","Say? Girin","100"));
  25. while (ts!=gs)
  26. {
  27. if ((gs!=ts)&&(gs<ts))
  28. {
  29. ShowMessage("Girilecek Say?y? Büyültünüz");
  30. gs=StrToInt(InputBox("Say? Giriniz","Say? Girin",""));
  31. }
  32. else
  33. if ((gs!=ts)&&(gs>ts))
  34. {
  35. ShowMessage("Girilecek Say?y? Küçültünüz");
  36. gs=StrToInt(InputBox("say? giriniz","say? girin",""));
  37. }
  38. puan=puan-50;
  39. x=x+1;
  40. Label2->Caption=IntToStr(puan);
  41. Label4->Caption=IntToStr(x);
  42. }
  43. ShowMessage("Tebrikler:"+IntToStr(x)+" kere denediniz ve:"+IntToStr(puan)+"puan ald?n?z");
  44. }
  45. //---------------------------------------------------------------------------
  46.  
  47. void __fastcall TForm1::FormCreate(TObject *Sender)
  48. {
  49. ShowMessage("OYUNUMA HO?GELD?N EJDER");
  50. }
  51. //---------------------------------------------------------------------------
  52. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  53. {
  54. ShowMessage("?N?ALLAH OYUNUMDA E?LENM??S?ND?R EJDER");
  55. int c;
  56. c=MessageDlg("OYUNUMDAN C?DDEN ÇIKACANMI??",mtConfirmation, TMsgDlgButtons()<<mbYes <<mbNo,0);
  57. if (c==mrNo)//No seçildiyse
  58. Action=caNone;//Ç?k??? iptal et
  59. }
  60. //---------------------------------------------------------------------------
  61.  
  62.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Perşembe, 07 Nisan 2011 22:48 )  
amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım