BilisiMerkez

Randomize Kullanarak Sayi Tahmin Oyunu VB

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:

http://img.sanalkurs.net/uploads/ran.jpg

Ş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:
http://img.sanalkurs.net/uploads/2009_03_04_192311.jpg

Kolay gelsin.
 
Bu yazıda hatalar varsa yazarlarımız yorum olarak düzeltme belirtebilirler. Bu düzenlemeler yöneticiler tarafından en kısa sürede derse uygulanacaktır.
Randomize Kullanılarak Sayı Tahmin Oyunu Dersini Yazdirin
Yazdır

Facebook'ta Paylaş | Sayfanın Çıktısını Al | Foxit'le PDF Olarak Kaydet

Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol