Sayısal Loto ( Randomize-Rnd )

            Artık yılbaşı geldi. Çoğumuz yılbaşı çekilişi için bilet almıştır. Şimdiden bu programla size çıkacak büyük ikramiyeye hazırlanın :D 

KODLAR

Public Class Form1

    Dim a, b, c, d, f, g, sayi As Integer

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

        Randomize()

        sayi = Rnd() * 49

        If TextBox1.Text = "" Then

            TextBox1.Text = sayi

        ElseIf TextBox2.Text = "" Then

            TextBox2.Text = sayi

        ElseIf TextBox3.Text = "" Then

            TextBox3.Text = sayi

        ElseIf TextBox4.Text = "" Then

            TextBox4.Text = sayi

        ElseIf TextBox5.Text = "" Then

            TextBox5.Text = sayi

        ElseIf TextBox6.Text = "" Then

            TextBox6.Text = sayi

            a = TextBox1.Text

            b = TextBox2.Text

            c = TextBox3.Text

            d = TextBox4.Text

            f = TextBox5.Text

            g = TextBox6.Text

            ListBox1.Items.Add(a & " - " & b & " - " & c & " - " & d & " - " & f & " - " & g)

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

            TextBox5.Text = ""

            TextBox6.Text = ""

        End If

    End Sub

End Class