Randomize Kullanılarak Sayı Tahmin Oyunu

Bu dersimizde random özelliğini kullanarak sayı tahmin oyunu hazırlayalım.

Bu dersimizde random özelliğini kullanarak sayı tahmin oyunu hazırlayalım.

Visual Studio 2008'de bu oyunu randomize kullanarak yapacağız.

Randomize ne işe yarar?
Randomize rastgele sayı atamaya yarıyor. Aynı sayılar değil de, her defasında farklı sayılar atıyor.

Kullanılacak toolbox'lar:

1 tane buton yeterli, ama yazı yazmak için 1 tane de label ekledim.

Oyunumuzun görünümü aşağıdaki gibi olacak:



Şimdi de kodları yazıyoruz:


Public Class Form1

    Dim sayı As Integer = (Rnd() * 50), tahmin As Integer 'genel degişken atıyoruz'



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        On Error Resume Next

        Randomize()

        For I = 1 To 7

            tahmin = InputBox("Tahmininiz: ", "sayı  Tahmin")

            If tahmin = sayı Then

                MsgBox(" tebrikler bildiniz")

                Continue For

                sayı = (Rnd() * 50)

            ElseIf sayı < tahmin Then

                MsgBox(" küçük deger giriniz")

            ElseIf sayı > tahmin Then

                MsgBox(" büyük deger giriniz")

            End If



        Next I

        MsgBox("game ower")



    End Sub



Programımızın son hali:


Kolay gelsin.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Güzel OLmuş Tebrik eDERİM :gul:
e süper olmuss
hocam süper olmus ama randomize her defasında aynı sayıyı seçiyor
hocam süper olmus ama randomize her defasında aynı sayıyı seçiyor
bu visual basic 2005 olmazmı:sasir:

Yukarı Git