Rastgele Tek ve Çift Sayı Üretmek Vb.Net
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.
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. '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
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.
allah razı olsun oldu saol kardeşim