Rastgele Tek ve Çift Sayı Üretmek Vb.Net

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

[code language=”vbnet”]

Public Class Form1

Private rsayi1 As Integer, rsayi2 As Integer

‘rastgele üretilecek sayıları atayacağımız değişkenleri tanımlıyoruz.

‘global olsun diye rsayi1 ve rsayi2’yi burada tanımladık

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim durum1 As Boolean = False, durum2 As Boolean = False

‘ kontrol için iki değişken tanımladım

Dim r As New Random()

While durum1 = False OrElse durum2 = False

‘durum1 veya durum2 false olduğu sürece güzel

‘ parantezler içindeki yap yani durum1 ve durum2 ikiside true yapılana kadar işlemleri yapar

rsayi2 = r.[Next](100)

‘0 ile 100 arasında rastgele sayı üret

rsayi1 = r.[Next](100)

‘0 ile 100 arasında rastgele sayı üret

If (rsayi1 Mod 2) = 1 AndAlso (rsayi2 Mod 2) = 0 Then

‘rsayi1’in 2’ye bölümünden kalan 1 yani tek ise ve

‘rsayi2’in 2’ye bölümünden kalan 0 yani çift ise

durum2 = True

‘durum değişkeni true yap.

‘durum1 ve durum2 değişkenlerinin her ikisi true olunca whilw döngüsü sona erer

durum1 = True

End If

End While

Label3.Text = rsayi1.ToString()

‘üretilen tek sayıyı label3’de göster

Label4.Text = rsayi2.ToString()

‘üretilen çift sayıyı label4’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.