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.
[code language=”vb”]Dim a, b, c, d, f, g As Byte[/code]
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:
[code language=”vb”]
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
[/code]
Programımız aşağıdaki gibi çalışacaktır.
Merhabalar;
Bunun yerine bir button koyup, butonun text’ini “Buraya Tıkla ve No. Belirle” Diye yapsaydık ve Button1’in click eventine button1.Text = Int(Rnd() * 999999) yazsak her tıklayışta farklı rakam verecek bu da. 6 tane 9 var; bu da her sayıyı temsil eder. Bence bu fikir daha güzel 🙂
Merhaba bilgin kardeşim.
senden bu söylediğin programın kodunu alabilme şansım varmı