VB.Net Sayı Tahmin Oyunu

Bu Konumda Sayı Tahmin Oyununu Sizlere Nasıl Yapıldığı Hakkında Bilgi Vereceğim.

Programımızın Çalışma Mantığına Bakalım

Örneğimizde rastgele bir sayı üretilecek ve kullanıcı bu sayıyı bilmeye çalışacaktır.Oyuna biraz renk katalım ve kullanıcıya 5 hak verelim. Kullanıcı bu 5 defa tahmin hakkı dolmadan önce yönlendirilmekte ve "Küçük", "Büyük" şeklinde yönlendirilmektedir. Bu 5 hakkı dolunca "Üzgünüm :(" şeklinde uyarılmaktadır. Hakkı dolmadan bildiğinde ise “MaşAllah Bildin” şeklinde uyarılmaktadır.

New Project > Visual Basic > Windows Forms Application

Projemizi açıyoruz.

Formumuza btntahmin ve btnbasla isimli iki adet buton ve bir adet lblMessage adında label nesnesini ekliyoruz.

Kodumuz aşağıdaki gibi olacaktır.

Public Class Form1
    Dim hakki, ktahmini, sayi As Byte
    Private Sub btntahmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntahmin.Click

        If hakki = 0 Then btntahmin.Enabled = False
        ktahmini = Val(InputBox("Merhaba Tahminini Girermisin?"))
        If (Val(ktahmini) <= 100) And (Val(ktahmini) >= 0) Then
            If sayi < 100 Or sayi >= 0 Then
               If ktahmini < sayi Then
                    lblMessage.Text = " Büyük Lütfen " & hakki & " hakkin kaldi"
               End If
               If ktahmini > sayi Then
                    lblMessage.Text = " Küçük Lütfen" & hakki & " hakkin kaldi"
               End If
               If ktahmini = sayi Then
                    lblMessage.Text = "MaşAllah Bildin..."
               End If
               If hakki > 0 Then
                    hakki = hakki - 1
               Else
                    lblMessage.Text = "Üzgünüm :( Bulamadın Tuttugum Sayı= " & sayi
               End If
            End If
        End If
    End Sub
---------------------------
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        hakki = 5
    End Sub
---------------------------
    Private Sub uretiyorum()
        sayi = 0
        Dim karisik As New Random
        Dim tsayi As Integer = karisik.Next(1, 100)
        sayi = tsayi
    End Sub
---------------------------
    Private Sub btnbasla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbasla.Click
        hakki = 5
        lblMessage.Text = "Başlayın"
        btntahmin.Enabled = True
        uretiyorum()
    End Sub
End Class

Oyunumuzda uretiyorum alt programı ile rastgele sayı üretme işlemi yapılmaktadır.

Dim karisik As New Random

Satırında karisik adında bir değişken random olarak yani rastgele değişken tipi olarak tanımlanmaktadır.

Dim tsayi As Integer = karisik.Next(1, 100)

tsayi değişkenimizde ise 1 ile 100 arasında rastgele bir tam sayı atanmaktadır.

Programımızın kodlama aşamasını bitirdik birde resimlerine bakalım.

Başlayın butonuna basıldığında yine aynı kod satırları ile programdan çıkmadan yeni bir rastgele sayı oluşturulması sağlanmaktadır.

Tahmin butonuna tıklandığında ekrana gelen giriş penceresi yardımıyla kullanıcı tahminini girmektedir.