Anasayfa » VB.NET Dersler ve Örnekler » VB.NET İle Basit Sayı Tahmin Oyunu Yapalım

VB.NET İle Basit Sayı Tahmin Oyunu Yapalım

Örneğimizde üretilen rastgele bir sayıyı kullanıcı tahmin etmeye çalışmaktadır. Kullanıcının 5 defa tahmin hakkı bulunmaktadır. Kullanıcı bu 5 defa tahmin hakkı dolmadan önce yönlendirilmekte ve “küçük sayı giriniz”, “büyük sayı giriniz” şeklinde yönlendirilmektedir. Bu 5 hakkı dolunca “Hakkınız Doldu” şeklinde uyarılmaktadır. Hakkı dolmadan bildiğinde ise “Bravo. Bildiniz” şeklinde uyarılmaktadır.

Formumuzun üzerine cmdtahmin ve cmdyenile ismi ile iki buton, lblMessage adıyla da bir adet label nesnesi ekliyoruz.
__________________________________________________________________________

Kodumuz ise şu şekilde olacak:

Public Class Form1
    Dim hak, tahmininiz, sayi As Byte
    Private Sub cmdtahmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles cmdtahmin.Click
        uret()
        If hak = 0 Then cmdtahmin.Enabled = False
        tahmininiz = Val(InputBox("Tahmininizi Giriniz"))
        If (Val(tahmininiz) <= 100) And (Val(tahmininiz) >= 0) Then
            If sayi < 100 Or sayi >= 0 Then
                If tahmininiz < sayi Then
                    lblMessage.Text = "Daha Büyük!" + Str(hak) + " hakkiniz kaldi"
                End If
                If tahmininiz > sayi Then
                    lblMessage.Text = "Daha Küçük!" + Str(hak) + " hakkiniz kaldi"
                End If
                If tahmininiz = sayi Then
                    lblMessage.Text = "Bravo! Bildiniz..."
                End If
                If hak > 0 Then
                    hak = hak - 1
                Else
                    lblMessage.Text = "Sayıyı Bulamadınız. Tutulan 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
        hak = 5
    End Sub
    Private Sub cmdyenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles cmdyenile.Click
        hak = 5
        lblMessage.Text = "..."
        cmdtahmin.Enabled = True
        Dim rastgele As New Random
        Dim tutulansayi As Integer = rastgele.Next(1, 100)
    End Sub
    Private Sub uret()
        sayi = 0
        Dim rastgele As New Random
        Dim tutulansayi As Integer = rastgele.Next(1, 100)
        sayi = tutulansayi
    End Sub

End Class
_____________________________________________________________________________________

Programımızda uret alt programı ile rastgele sayı üretme işlemi yapılmaktadır.

Dim rastgele As New Random

 

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

Dim tutulansayi As Integer = rastgele.Next(1, 100)

Tutulansayi değişkenine ise 1 ile 100 arasında üretilen rastgele tamsayı atanmaktadır.

Yenile düğmesine basıldığında yine aynı kod satırları ile programdan çıkmadan yeni bir rastgele sayı oluşturulması sağlanmaktadır.

2 yorum

  1. Denedim kodları çalışıyor çok teşekkürler.

Cevapla

E-posta adresiniz yayınlanmayacak. Gerekli alanlar işaretlenmelidir *

*