Sayısal Loto Programı

rapcy1

0
İyinet Üyesi
Katılım
23 Şubat 2011
Mesajlar
302
Reaction score
6
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


sayisalloto.jpg


Kod:
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

kaynak : www.visualbasicdersleri.com
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara
pubg mobile uc
Üst