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!

• 12 yıl önce
yani güzel tasarım tebrikler
• 12 yıl önce
paylaştıgınız için teşekkurler..
• 12 yıl önce
deneyeceğim nasılmış bakalım :) ellerine sağlık
• 12 yıl önce
asp de denedim :) oluyo biraz hata verebiliyo :)
• 12 yıl önce
..ç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:
• 12 yıl önce
çok güzel olmuş sağolun yardımlarınız ve bilgileriniz için
• 12 yıl önce
Bu gayet güzel kodlara forumda link verecem :)
• 12 yıl önce
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
• 12 yıl önce
güzel kardes ellerine sağlık
• 11 yıl önce
evet güzel bir çalışma olmuş
• 11 yıl önce
FENA DEÐİL..
• 11 yıl önce
ben çok yeni oldugum için yapamadim ya daha iyisi için yardım edersenız sevinirim
• 11 yıl önce
bende böyle dersler arıyordum çok tşkler :kirp:
• 11 yıl önce
çok sağol:)ellerine sağlık
• 11 yıl önce
burda level yazan yerle 1. levelı kazandınız blümü boş YARDIM ACİL
• 11 yıl önce
button1 özzeLLiğine ' tahmin = TextBox1.Text ' şunu yazıyorum Sarı yazıyLa hata veriyo nasL düzeLtebiLirim aciL biLen yazsın arkadaşLar ..!
• 8 yıl önce
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