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.
Programızı Çalıştırdığımızdaki Resimlere Bir Göz Atalım
Tutulan Sayıyı Bildigimizde
Tutulan Sayıyı Bulamadınız Zaman(5 Hakkınız Var)
5 Hakkınız Bittiği Takdirde Ve Bulamadığınız Takdirde
