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 .
[code language=”vb”]Dim a As Integer[/code]
Değişkeni atatıktan sonra rastgele sayıyı bulmanın komutlarını yazıyoruz.
[code language=”vb”]Randomize()
a = Int(Rnd() * 7)[/code]
kodlarınıda yazdıktan sonra bir şart belirtiyoruz .
Örneğin Eğer a eşitse 0 ‘a label2’nin textinde Pazartesi yazacak .
[code language=”VbNet”]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"[/code]
Bu şekilde yaptığımızda program çalışacaktır .
Programı İndir:Şanslı Günü Bulma