Ö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.



Read more: http://murataktas.org/vb-net-ile-basit-sayi-tahmin-oyunu-yapalim/


0'DAN VİSUAL BASİC.NET PROGRAMLAMA DİLİNİ ÖĞRENMEK İSTEYEN ARKADAŞLARI http://murataktas.org/category/vb-net-dersler-ve-ornekler/ BLOGUMDAKİ VB.NET DERSLERİ VE ÖRNEKLERİ KATEGORİSİNE BEKLİYORUM