Visual Basic'te Sayı Oyunu (Farklı)

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

3 levelden oluşan basit bir sayı tahmin oyunu yapmaya ne dersiniz? Gelin o zaman birlikte Visual Basic .NET'de sayı tahmin oyunu yapalım..

İlk önce vb projesi oluşturuyoruz...

Forma 1 adet buton, 3 adet textbox 1 adet label ve 1 adet listbox koyalım...Form görüntüsünü aşağıdaki gibi yapabiliriz...

Sonra kod kısmına geldiğimiz zaman formloaded ve bottom kodlarıının dışına şu kodları yazalım.

Dim tahmin As Integer
    Dim tutulan As Integer
    Dim level As Integer = 1
    Dim a As Integer
    Sub sayiuret()   'Random sayı üretmek
        Randomize()
        a = Rnd() * 100
        tutulan = a * level
    End Sub

Daha sonra formu iki kere çift tıklayınca karşımıza çıkan kod bölümüne ; aşağıdaki kodu yazıyoruz.

sayiuret()

Bu yukarıda yazdığımız sub fonksiyonunu form açıldığı zaman çağırıyor ve sayiuret fonksiyonun içindeki random sayı atama olayını gerçeklestiriyor.

Butonu çift tıkladığımız zaman çıkan kod kısmına da geri kalan kodlarımızı yazalım.

tahmin = TextBox1.Text

        If level <= 3 Then

            Select Case tahmin

                Case Is < tutulan
                    TextBox3.Text = "Yukari"

                Case Is > tutulan
                    TextBox3.Text = "Asagi"

                Case Else
                    TextBox3.Text = "Kazandiniz"
                    ListBox1.Items.Add(level & ". Level'i kazandiniz..")
                    level += 1
                    sayiuret()

            End Select
            TextBox2.Text = level

        Else

            MsgBox("Oyun Bitti...")

        End If

Ve programımızı çalıştırdığımızda form görüntüleri aşağıdaki gibi olacaktır:

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.

 

[ßyMesMes]

Rica ederim.

 

[umit99]

Eline sağlık.