AÇIKLAMA
Bu proje bir çocuk oyunu programının yapımı ile ilgilidir. Bu oyunun ismi asılarak sallanan adamın çizimidir. Amaç adamın vücudunu,kafasını,iki gözünü,iki kulağını,iki bacağını ve iki kolunu çizerek adam resmini tamamlamak.
A-Zar atılarak adamın çiziminin tamamlanıp tamamlanmadığını hesaplayan programı yazınız. Zar atıldığı zaman;
6-gelirse adamın vücudu çizilsin
5-gelirse adamın kafası çizilsin
4-gelirse adamın gözlerinden biri çizilsin
3-gelirse adamın bacaklarından birisi çizilsin
2-gelirse adamın kulaklarından birisi çizilsin
1-gelirse adamın kollarından birisi çizilsin
Ancak belli şartları vardır;
Her şeyden önce adamı kolları tamamlanır.Daha sonra kafası,daha sonra vücudu ve daha sonra da bacakları çizilir. Kafa göz ile kulaklardan önce çizilmelidir.
2 defa arka arkaya aynı random sayı üretilirse adamdan aşağıdan yukarıya doğru bir parça silinecek.Silerken şu sıra takip edilecek;Önce bacakla silinebilir,daha sonra vücut silinebilir,daha sonra gözler veya kulaklar silinebilir.Daha sonra kafa silinebilir ve en sonra kollar silinebilir.
Vücut, kafa,kulaklar, göz, kol ve bacak programda kullanılacak değişkenlerdir. Bunlar integer olarak tanımlanabilirler…
B-Programda zardan çıkan değerlerin kaç defa çıktığını(geldiğini) yazınız.
ÖRNEK:olarak 50 defa zar atıldı.10 defa 1 , 4defa 2 ,……..vb.
Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz
Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...
Üye Kayıt
Program Kodu:
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include <time.h> //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- int zarsay=0,eskizar=0,zar=0; int bir=0,iki=0,uc=0,dort=0,bes=0,alti=0; //--------------------------------------- void __fastcall TForm1::BitBtn1Click(TObject *Sender) { zarsay++; Label15->Caption=zarsay; eskizar=zar; Label1->Caption=zar; switch(zar) { case 1: bir++; Label8->Caption=bir; break; case 2: iki++; Label9->Caption=iki; break; case 3: uc++; Label10->Caption=uc; break; case 4: dort++; Label11->Caption=dort; break; case 5: bes++; Label12->Caption=bes; break; case 6: alti++; Label13->Caption=alti; break; } //--------------------------------------------------------------------------- if(zar==1) //kollar { if(eskizar!=zar) { if(sagkol->Visible==true) solkol->Visible=true; else sagkol->Visible=true; } else if((kafa->Visible==false)&& (govde->Visible==false)&& (solgoz->Visible==false)&& (saggoz->Visible==false)&& (solkulak->Visible==false)&& (sagkulak->Visible==false)&& (solayak->Visible==false)&& (sagayak->Visible==false)) { if(solkol->Visible==true) solkol->Visible=false; else if(sagkol->Visible==true) sagkol->Visible=false; } } //--------------------------------------------------------------------------- if(zar==2) //kulaklar { if((eskizar!=zar)&&(kafa->Visible==true)&&(solgoz->Visible==true)&&(saggoz->Visible==true)) { if(sagkulak->Visible==true) solkulak->Visible=true; else sagkulak->Visible=true; } else if((eskizar==zar)&& (solayak->Visible==false)&& (sagayak->Visible==false)&& (govde->Visible==false)) { if(sagkulak->Visible==true) sagkulak->Visible=false; else if(solkulak->Visible==true) solkulak->Visible=false; } } //--------------------------------------------------------------------------- if(zar==3) //ayaklar { if((eskizar!=zar)&&(govde->Visible==true)) { if(sagayak->Visible==true) solayak->Visible=true; else sagayak->Visible=true; } else if(eskizar==zar) { if(sagayak->Visible==true) sagayak->Visible=false; else if(solayak->Visible==true) solayak->Visible=false; } } //--------------------------------------------------------------------------- if(zar==4) //gözler { if((eskizar!=zar)&&(kafa->Visible==true)) { if(saggoz->Visible==true) solgoz->Visible=true; else saggoz->Visible=true; } else if((eskizar==zar)&& (solayak->Visible==false)&& (sagayak->Visible==false)&& (govde->Visible==false)) { if(saggoz->Visible==true) saggoz->Visible=false; else if(solgoz->Visible==true) solgoz->Visible=false; } } //--------------------------------------------------------------------------- if(zar==5) //kafa { if((eskizar!=zar)&&(solkol->Visible==true)&&(sagkol->Visible==true)&&(kafa->Visible==false)) kafa->Visible=true; else if((eskizar==zar)&& (govde->Visible==false)&& (solayak->Visible==false)&& (sagayak->Visible==false)&& (solgoz->Visible==false)&& (saggoz->Visible==false)&& (solkulak->Visible==false)&& (sagkulak->Visible==false)&& (kafa->Visible==true)) kafa->Visible=false; } //--------------------------------------------------------------------------- if(zar==6) //gövde { if((eskizar!=zar)&& (kafa->Visible==true)&& (solgoz->Visible==true)&& (saggoz->Visible==true)&& (solkulak->Visible==true)&& (sagkulak->Visible==true)&& (solkol->Visible==true)&& (sagkol->Visible==true)&& (govde->Visible==false)) govde->Visible=true; else if((eskizar==zar)&& (solayak->Visible==false)&& (sagayak->Visible==false)&& (govde->Visible==true)) govde->Visible=false; } //--------------------------------------------------------------------------- if((solkol->Visible==true)&& (sagkol->Visible==true)&& (kafa->Visible==true)&& (solgoz->Visible==true)&& (saggoz->Visible==true)&& (solkulak->Visible==true)&& (sagkulak->Visible==true)&& (govde->Visible==true)&& (solayak->Visible==true)&& (sagayak->Visible==true)) { ShowMessage("Bitti"); solkol->Visible=false; sagkol->Visible=false; kafa->Visible=false; solgoz->Visible=false; saggoz->Visible=false; solkulak->Visible=false; sagkulak->Visible=false; govde->Visible=false; solayak->Visible=false; sagayak->Visible=false; eskizar=0; zar=0; zarsay=0; bir=0; iki=0; uc=0; dort=0; bes=0; alti=0; Label1->Caption="0"; Label8->Caption="0"; Label9->Caption="0"; Label10->Caption="0"; Label11->Caption="0"; Label12->Caption="0"; Label13->Caption="0"; Label15->Caption="0"; } }
-
10-06-2012 05:25:17 | thoroesleeçok ufak bi program dahi yazmak çok zormuş tabi hiç bilmeyenler için yani ben
ama öğrenmek için burdayım tabiki öğretirseniz ticaret amaçlı değil tamamen öğrenmek istediğim için merak ediyorum çünkü
eğer öğretirseniz sevinirim teşekkürler
-
10-06-2012 13:05:26 | NEOTicaret amaçlıda yapabilirsiniz o problem değil
ama şu varki o seviyeye gelmek için oldukça iyi derecede programlama bilmek gerekiyor. Bunun için en başta C -> C++ -> Java ve C# şeklinde gitmenizi öneririm. Sitemizdeki kaynak kodlar programlama işine ilk başlayan seviyesinden uzman seviyesine kadar genel bir yelpazede seyretmektedir.
-
25-12-2013 01:10:44 | programcitugbabunu biraz daha c++ uygun yapsanız çünkü biz bu kadar kapsamlı görmediğimiz için yazılanları pek anlayamıyorm