Rastgele Çift Sayı Üretmek Vb.Net

Rastgele Çift Sayı Üretmek Vb.Net

Soru: Üret butonuna tıklandığında 0 ile 100 arasında rastgele çift sayı üretip  label2′de gösteren programın kodlarını yazınız.

[code language=”vbnet”]

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) = 0 Then

‘üretilen sayının ikiye bölümünden kalan 0 ise yani çift 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 çift sayıyı label2’de göster

End Sub

End Class

[/code]

 

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 https://www.gorselprogramlama.com/rastgele-sayi-uretmek-vb-net-ders-5  linkine tıklayınız.