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

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

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ı


Label1.Text = " Veri Alınıyor ... "

ProgressBar1.Visible = False



Button1_Click Kodları


Timer1.Start()



Timer Tick Kodları


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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git