Milli Piyango Şanslı Numara

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

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.