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.
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 .
İ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 .
Ö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"
