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:
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.
