Visual Basic ile Sayı Oyunu Yapma

ads

ads

Vb.Net 2010 - Sayı Oyunu Yapımı

Bu dersimizde  basit bir  sayı oyunu yapmayı işleyeceğiz.   Oyun sayı tahmin oyunudur.  Visual basic 2010 ile yazacağız.

Forma eklemeniz gerekenler:

1 Adet Button

3 adet Textbox

1 adet Label

1 tanede ListBox ekleyin ve form tasarımını aşağıdaki gibi yapabilirsiniz.

İlk olarak eklemeniz kod en üst bölüme aşağıdaki kodu ekleyiniz.

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

Sonrasında form'a çift tıklayın ve kod bölümüne aşağıdaki kodu yazınız.

sayiuret()

Son yazmanız gereken kodu Buttona çift tıklayarak görünen bölüme yazınız.

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 = "Başardınız"
                    ListBox1.Items.Add(level & ". Tebrikler Level'i geçtiniz.")
                    level += 1
                    sayiuret()

            End Select
            TextBox2.Text = level

        Else

            MsgBox("The End..")

        End If

ads