Bugünkü oynayacağınız şans oyunlarında sizin yerinize şanslı rakamları buluyor.
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ı
HTML-Kodu:
Timer1.Start()
Timer Tick Kodları
PHP- Kodu:
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ı
HTML-Kodu:
Timer1.Start()
Timer Tick Kodları
PHP- Kodu:
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
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
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 
hortlattım diye ban yemiyim de
