Sayısal loto programı

Bu yayında sayısal loto programını yaptık.

Programın İşlevi:

Belirle butonuna basıldığı zaman 6 tane label den rastgele sayılar oluşturmaktadır.

Forma eklenecekler:

6 tane label

1 tane button

Sayısal loto yapımı vb.net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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 'visualbasicdersleri.com
        While sayac < 6
            rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor
            If (Array.IndexOf(sayilar, rsayi) = -1) Then
                sayilar(sayac) = rsayi
                sayac = sayac + 1
            End If
        End While
        Array.Sort(sayilar)
        Label1.Text = sayilar(0)
        Label2.Text = sayilar(1)
        Label3.Text = sayilar(2)
        Label4.Text = sayilar(3)
        Label5.Text = sayilar(4)
        Label6.Text = sayilar(5)
    End Sub
End Class

Paylaş :