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


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: WgHack    5 Yorum    290 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 23.12.2015, 23:36:41 #1
WgHack Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorumları:3 Konuları:1 Kayıt Tarihi:08.12.2015 Rep Puanı: 4

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ı

[b]Kod:
Label1.Text = " Veri Alınıyor ... "
ProgressBar1.Visible = False


[/b]
Button1_Click Kodları



HTML-Kodu:
Timer1.Start()



Timer Tick Kodları

PHP- Kodu:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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  


Paylaşım Tarihi: 24.12.2015, 05:04:15 #2
Chronic #Unknown
******
Süper Moderator
Status: Çevrimdışı Yorumları:1,105 Konuları:38 Kayıt Tarihi:13.12.2015 Rep Puanı: 1,029

Ne kadar yararlı bilmem ancak yinede teşekkürler.

Kullanıcı İmzası
Resim http://i.hizliresim.com/g2b2a2.png

Paylaşım Tarihi: 14.03.2017, 16:32:38 #3
hackerSahti F!CK
Ultra Üye
Status: Çevrimdışı Yorumları:1,242 Konuları:156 Kayıt Tarihi:05.10.2016 Rep Puanı: 83

(14.03.2017, 16:30:33)Emin266 Adlı Kullanıcıdan Alıntı: Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş YapınVe bence konu kitlenmeli doğru değilmi ?
Big Grin hortlattım diye ban yemiyim de

bence yemelisin kardeşim. 2 yıllık konuyu hortlatmışsın.

Paylaşım Tarihi: 14.03.2017, 16:37:21 #4
FedreanDS
Ultra Üye
Status: Çevrimdışı Yorumları:666 Konuları:183 Kayıt Tarihi:04.09.2016 Rep Puanı: 22

vay be hll emin

Kullanıcı İmzası
Smoking is ba but the reason I smoke is worse.

Resim https://scontent.cdninstagram.com/hphotos-xaf1/t51.2885-15/e15/11350852_1428330880821525_2077818940_n.jpg

Paylaşım Tarihi: 14.03.2017, 16:40:12 #5
BozkurtTeam Ağır ağabey
Onaylı Uye
Status: Dışarıda Yorumları:749 Konuları:37 Kayıt Tarihi:04.08.2016 Rep Puanı: 72

Hhaaha 2 yıllık konuyu hortlatıyoz değerini bilin

Kullanıcı İmzası
Çalışıyor.  (Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın)
LygVEz.jpgResim http://i.hizliresim.com/vboDO4.jpg

Düşmanın ülkesi viran olacak,Türkiye büyüyüp TURAN olacak !











Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi