Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Milli Piyango Şanslı Numara

Milli Piyango Şanslı Numara.

Bu programı yaparken 1 buton ve 1 label kullanacağız. Aşağıdaki şekilde görüldüğü gibi olacak.

 

resim11

Daha sonra 6 tane farklı değişken tanımlayacağız. Bunlar a ,b ,c d, f,g olabilir.

Dim a, b, c, d, f, g As Byte

Sonra butonumuzun click’ine ; butona tıklandığı zaman rastgele 6 tane otomatik sayı bulduracağımız için randomize komutunu kullanacağız. Randomize komutunu yazdıktan sonra her değişkenimize rastgele farklı bir sayı buldurmak için “ int(rnd()*9) “yazacağız. *9 Yazmamızdaki sebep “0” ile “9” arasında ki sayılardan bulması gerektiği için “ *9 “ yazıyoruz. Bulduğumuz sonucu label’da yazdıracağımız için
Bu kodu yazarız.
Kodlarımız şu şekilde olacak:


Randomize() a = Int(Rnd() * 9) b = Int(Rnd() * 9) c = Int(Rnd() * 9) d = Int(Rnd() * 9) f = Int(Rnd() * 9) g = Int(Rnd() * 9) Label1.Text = a & " " & b & " " & c & " " & d & " " & f & " " & g

Programımız aşağıdaki gibi çalışacaktır.

resim2






Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 13 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=