Arkadaşlar
Bugün size şanslı gün bulan prgoramın nasıl yapılcağını göstereceğim . Şanslı günü bulmak için Butona basıldığında Şanslı günün labelda yazılması lazım bunun içinde bir adet buton açıklama yapmak için  ve butona basıldıüında Şanslı günün yazılacağı 2 adet label eklenecektir.

Kodlar :
İlk olarak şanslı gün hergün rastgele bulanacağı için Randomize Komutu yazacağız bu komutuda a değişkenin içine atacağımız için değişken belirlememiz lazım .

Dim a As Integer

Değişkeni atatıktan sonra rastgele sayıyı bulmanın komutlarını yazıyoruz.

Randomize()
a = Int(Rnd() * 7)

kodlarınıda yazdıktan sonra bir şart belirtiyoruz .
Örneğin Eğer a  eşitse 0 ‘a label2’nin textinde Pazartesi yazacak .

If a = 0 Then Label2.Text = "Pazartesi"
If a = 1 Then Label2.Text = "Salı"
If a = 2 Then Label2.Text = "Çarşamba"
If a = 3 Then Label2.Text = "Perşembe"
If a = 4 Then Label2.Text = "Cuma"
If a = 5 Then Label2.Text = "Cumartesi"
If a = 6 Then Label2.Text = "Pazar"

Bu şekilde yaptığımızda program çalışacaktır .

Programı İndir:Şanslı Günü Bulma

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.