Milli Piyango Şanslı Numara örnek VB.Net
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.
Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.
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