Pazartesi, 30 Nisan 2012 17:17

Random ile M.P. On Numara Şans Oyunu

Yazan
Öğeyi Oyla
(2 oy)

                             

Evet arkadaşlar öncelikli olarak herkese selamlar.Random komutu ile Milli Piyango idaresinin yürütmüş olduğu on numara oyununun numaralarını bulan programı yapmış bulunmaktayım.Artık Şansınıza kalmış belkide bu program sayesinde zengin olursunuz.


Programda 2 adet Buton+22 adet Label kullanmış bulunmaktayım...
Programın kaynak kodları: 

private void button1_Click(object sender, EventArgs e)
{
int[] sayi = new int[22];
Random rnd = new Random();

int sayici = 0;
int rasgele = 0;

while (sayici < 22)
{
rasgele = rnd.Next(1, 80);

if (Array.IndexOf(sayi, rasgele) == -1)
sayi[sayici++] = rasgele;
}

Array.Sort(sayi); // diziyi kendi arasında sıralar
label1.Text = sayi[0].ToString();
label2.Text = sayi[1].ToString();
label3.Text = sayi[2].ToString();
label4.Text = sayi[3].ToString();
label5.Text = sayi[4].ToString();
label6.Text = sayi[5].ToString();
label7.Text = sayi[6].ToString();
label8.Text = sayi[7].ToString();
label9.Text = sayi[8].ToString();
label10.Text = sayi[9].ToString();
label11.Text = sayi[10].ToString();
label12.Text = sayi[11].ToString();
label13.Text = sayi[12].ToString();
label14.Text = sayi[13].ToString();
label15.Text = sayi[14].ToString();
label16.Text = sayi[15].ToString();
label17.Text = sayi[16].ToString();
label18.Text = sayi[17].ToString();
label19.Text = sayi[18].ToString();
label20.Text = sayi[19].ToString();l
abel21.Text = sayi[20].ToString();
label22.Text = sayi[21].ToString();

}
private void button2_Click(object sender, EventArgs e)
{
MessageBox.Show("Programı kullandığınız için teşekkür ederim. \nProgram Yazarı:UMUTCAN GÜLER");
Close();
}}}

Buton2 programı kapatmaya,Buton1 ise programı konfigure etmeye yarar.
Umarım faydalı bir çalışma olmuştur.Programın kaynak koduna ekteki dosyadan ulaşabilirsiniz.
Diğer programlarda görüşmek dileğiyle...


Okunma 6841 defa Son Düzenlenme Pazartesi, 30 Nisan 2012 18:18
Umutcan GÜLER

Bugün can dediklerimin yarınlarımda umuda karıştığı yerdeyim...

www.facebook.com/umutcangulerr