Visual Basic ile (Oto) Şans Rakamları Oluşturmak

**KaRaqiZz** · 07.02.2015, 21:49

Visual Basic ile (Oto) Şans Rakamları Oluşturmak

Bugünkü oynayacağınız şans oyunlarında sizin yerinize şanslı rakamları buluyor (kesinlik garantisi yoktur

)

1 Adet Button
1 Adet Timer
1 Adet ProgressBar
6 Adet TextBox

Form1_Load Kodları

Kod:

Label1.Text = " Veri Alınıyor ... "
ProgressBar1.Visible = False

Button1_Click Kodları

Kod:

Timer1.Start()

Timer Tick Kodları

Kod:

If ProgressBar1.Value = ProgressBar1.Maximum Then
            ProgressBar1.Value = 1
            Dim sayi1, sayi2, sayi3, sayi4, sayi5, sayi6 As Integer
            Randomize()
            sayi1 = Rnd(2) * 50
            sayi2 = Rnd(2) * 50
            sayi3 = Rnd(2) * 50
            sayi4 = Rnd(2) * 50
            sayi5 = Rnd(2) * 50
            sayi6 = Rnd(2) * 50
            TextBox1.Text = sayi1
            TextBox2.Text = sayi2
            TextBox3.Text = sayi3
            TextBox4.Text = sayi4
            TextBox5.Text = sayi5
            TextBox6.Text = sayi6
            Label1.Text = " Sayılar Oynandı. :) İyi şanslar"
            Timer1.Stop()
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox1.Text = sayi1
            TextBox2.Text = sayi2
            TextBox3.Text = sayi3
            TextBox4.Text = sayi4
            TextBox5.Text = sayi5
            TextBox6.Text = sayi6

        Else
            ProgressBar1.Value = ProgressBar1.Value + 1
'sanalkurs.net 
            Dim sayi1, sayi2, sayi3, sayi4, sayi5, sayi6 As Integer
            Randomize()
            sayi1 = Rnd(2) * 50
            sayi2 = Rnd(2) * 50
            sayi3 = Rnd(2) * 50
            sayi4 = Rnd(2) * 50
            sayi5 = Rnd(2) * 50
            sayi6 = Rnd(2) * 50
            TextBox1.Text = sayi1
            TextBox2.Text = sayi2
           'İyi kullanımlar CanAşık
            TextBox3.Text = sayi3
            TextBox4.Text = sayi4
            TextBox5.Text = sayi5
            TextBox6.Text = sayi6
            Label1.Text = " Sayılar Oynanyor. :) İyi şanslar"
        End If