N
NeStLe
Ziyaretçi
Ziyaretçi
Açıklama : Belirle isimli butonun click olayında 1'den 49'a kadar 6 adet rastgele (random) sayı oluşturuluyor. 6 tane olma olayını da sayac tutarak gerçekleştirdim.
Public Class Form1
Private Sub Belirle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Belirle.Click
Dim sayilar(5) As Integer 'Sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu.
Dim rsayi, sayac As Integer
sayac = 0
While sayac < 6 'Sayac 6 dan küçük olduğu zaman
rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor
If (Array.IndexOf(sayilar, rsayi) = -1) Then 'Dizinin içinde aynı sayı yoksa
sayilar(sayac) = rsayi 'Üretilen rastgele sayiyi dizinin sayac kaç ise o elemanına ata
sayac = sayac + 1 ' Sayacı bir artır
End If
End While
Array.Sort(sayilar)
Label1.Text = sayilar(0) 'Label1 e sayilar dizisinin 1.elemanını yaz
Label2.Text = sayilar(1) 'Label2 e sayilar dizisinin 2.elemanını yaz
Label3.Text = sayilar(2) 'Label3 e sayilar dizisinin 3.elemanını yaz
Label4.Text = sayilar(3) 'Label4 e sayilar dizisinin 4.elemanını yaz
Label5.Text = sayilar(4) 'Label5 e sayilar dizisinin 5.elemanını yaz
Label6.Text = sayilar(5) 'Label6 e sayilar dizisinin 6.elemanını yaz
End Sub
End Class
Public Class Form1
Private Sub Belirle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Belirle.Click
Dim sayilar(5) As Integer 'Sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu.
Dim rsayi, sayac As Integer
sayac = 0
While sayac < 6 'Sayac 6 dan küçük olduğu zaman
rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor
If (Array.IndexOf(sayilar, rsayi) = -1) Then 'Dizinin içinde aynı sayı yoksa
sayilar(sayac) = rsayi 'Üretilen rastgele sayiyi dizinin sayac kaç ise o elemanına ata
sayac = sayac + 1 ' Sayacı bir artır
End If
End While
Array.Sort(sayilar)
Label1.Text = sayilar(0) 'Label1 e sayilar dizisinin 1.elemanını yaz
Label2.Text = sayilar(1) 'Label2 e sayilar dizisinin 2.elemanını yaz
Label3.Text = sayilar(2) 'Label3 e sayilar dizisinin 3.elemanını yaz
Label4.Text = sayilar(3) 'Label4 e sayilar dizisinin 4.elemanını yaz
Label5.Text = sayilar(4) 'Label5 e sayilar dizisinin 5.elemanını yaz
Label6.Text = sayilar(5) 'Label6 e sayilar dizisinin 6.elemanını yaz
End Sub
End Class