Rastgele Tek Sayı Üretmek Vb.Net
Rastgele Tek Sayı Üretmek Vb.Net
Soru: Üret butonuna tıklandığında 0 ile 100 arasında rastgele tek sayı üretip label2’de gösteren programın kodlarını yazınız.
Public Class Form1
Private rsayi As Integer
‘rastgele üretilecek sayıyı atayacağımız değişkeni tanımlıyoruz.
‘global olsun diye rsayi yı burada tanımladık
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim durum As Boolean = False
‘Üretilen sayının tek olduğunu kontrol için değişken tanımladım
Dim r As New Random()
‘r isimli random sınıfı oluşturdum
While durum = False
‘durum false olduğu serece güzel parantezler içindeki yap
rsayi = r.[Next](100)
‘0 ile 100 arasında rastgele sayı üret
If (rsayi Mod 2) = 1 Then
‘üretilen sayının ikiye bölümünden kalan 1 ise yani tek sayı ise
durum = True
‘durum değişkeni true yap.(true olunca while döngüsü sona erer)
End If
End While
Label2.Text = rsayi.ToString()
‘üretilen tek sayıyı label2’de göster
End Sub
End Class
Soruda 0 ile 100 arasında dediği için Int(Rnd()*100) kullandık.Rastgele sayı üretmek ile ilgili daha fazla bilgi almak için http://www.gorselprogramlama.com/rastgele-sayi-uretmek-vb-net-ders-5 linkine tıklayınız.
abi güzel bir çalışma yaptımda sitenizde tanıtmak istiyorum.tanıtırsanız çok Sevinirim .Teşekkürler
abi ben sayısal loto programını yaptımda .kolon sayısını yapamadım.bana yardımcı oysanız sevinirim.oymazsanızda canınız sağolsun:Teşekkürler:D
sitedeki sayısal loto örneğine baktın mı. : link vb.net: http://www.gorselprogramlama.com/sayisal-loto-programi-vbnet
c#.net : http://www.gorselprogramlama.com/sayisal-loto-programi-cnetcnet