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.