Visual Basic'te Sayı Oyunu

3 levelden oluşan basit bir sayı tahmin oyunu yapmaya ne dersiniz?

3 levelden oluşan basit bir sayı tahmin oyunu yapmaya ne dersiniz? Gelin o zaman birlikte Visual Basic .NET'de sayı tahmin oyunu yapalım..

İlk önce vb projesi oluşturuyoruz...

Forma 1 adet buton, 3 adet textbox 1 adet label ve 1 adet listbox koyalım...Form görüntüsünü aşağıdaki gibi yapabiliriz...



Sonra kod kısmına geldiğimiz zaman formloaded ve bottom kodlarıının dışına şu kodları yazalım.


Dim tahmin As Integer

    Dim tutulan As Integer

    Dim level As Integer = 1

    Dim a As Integer

    Sub sayiuret()   'Random sayı üretmek

        Randomize()

        a = Rnd() * 100

        tutulan = a * level

    End Sub



Daha sonra formu iki kere çift tıklayınca karşımıza çıkan kod bölümüne ; aşağıdaki kodu yazıyoruz.


sayiuret()



Bu yukarıda yazdığımız sub fonksiyonunu form açıldığı zaman çağırıyor ve sayiuret fonksiyonun içindeki random sayı atama olayını gerçeklestiriyor.

Butonu çift tıkladığımız zaman çıkan kod kısmına da geri kalan kodlarımızı yazalım.


tahmin = TextBox1.Text



        If level <= 3 Then



            Select Case tahmin



                Case Is < tutulan

                    TextBox3.Text = "Yukari"



                Case Is > tutulan

                    TextBox3.Text = "Asagi"



                Case Else

                    TextBox3.Text = "Kazandiniz"

                    ListBox1.Items.Add(level & ". Level'i kazandiniz..")

                    level += 1

                    sayiuret()



            End Select

            TextBox2.Text = level



        Else



            MsgBox("Oyun Bitti...")



        End If



Ve programımızı çalıştırdığımızda form görüntüleri aşağıdaki gibi olacaktır:

  • Etiketler;
Yorum Yaz

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

yani güzel tasarım tebrikler
paylaştıgınız için teşekkurler..
deneyeceğim nasılmış bakalım :) ellerine sağlık
asp de denedim :) oluyo biraz hata verebiliyo :)
..çok iyi ama ben yeniyim anlamam için ilk önce gereli araç gereçleri bilgisayarıma yüklemem lazım .... kardeş bunları çalışmak için bilgisayarımda ne bulundurmam gerektiğini söylersen bana cok yardımcı olmus olcaksın...:kirp:
çok güzel olmuş sağolun yardımlarınız ve bilgileriniz için
Bu gayet güzel kodlara forumda link verecem :)
hepsi benim açımdan super şeylerde bir yapa bilsem ben bu işi öğrenmeye kararlıyım bana bu işin temelinde bahsedecek site varmıdır onu söyleye bilirmisiniz. selamlar
güzel kardes ellerine sağlık
evet güzel bir çalışma olmuş
FENA DEÐİL..
ben çok yeni oldugum için yapamadim ya daha iyisi için yardım edersenız sevinirim
bende böyle dersler arıyordum çok tşkler :kirp:
çok sağol:)ellerine sağlık
burda level yazan yerle 1. levelı kazandınız blümü boş YARDIM ACİL
button1 özzeLLiğine ' tahmin = TextBox1.Text ' şunu yazıyorum Sarı yazıyLa hata veriyo nasL düzeLtebiLirim aciL biLen yazsın arkadaşLar ..!
Bir soum alacak? örneğin random olarak 1 ile 9 arası sayı ürettim. bu çıkan sayıya göre text(çıkan sayı)="merhaba" yazdırabilir miyiz?

Yukarı Git