Var mısın Yok musun Oyunu Yapalım

Bu dersimizde en basit haliyle bir klasik haline gelen "Var mısın Yok musun?" isimli yarışmanın bir versiyonunu yapalım.

Bu dersimizde en basit haliyle bir klasik haline gelen "Var mısın Yok musun?" isimli yarışmanın bir versiyonunu yapalım.

Bu oyun her şeyiyle bana aittir.

İlk önce ben size oyunun açılış kısmını göstermek istiyorum:



Burada Flash gibi görünmesini sağlamak için arkaplanlar kullandım.

Şimdi kod kısmına geçiyoruz..

Kodlarla ilgili açıklamaları tırnak içinde belirttim:


Public Class Form1



    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        TextBox1.Text = ""

        PictureBox1.Visible = 0 '1 canta tıklandığında yok oluyor'

        MsgBox("100.000 TL")

        PictureBox17.Visible = 0 '1 canta tıklandığında kutudan cıkan para yantarafta yok oluyor'

        TextBox1.Text = "100.000 TL"

    End Sub



    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

        TextBox1.Text = ""

        PictureBox3.Visible = 0

        MsgBox("0,01 TL")

        PictureBox11.Visible = 0

        TextBox1.Text = "0,01 TL"

    End Sub



    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        TextBox1.Text = ""

        PictureBox2.Visible = 0

        MsgBox("500 TL")

        PictureBox14.Visible = 0

        TextBox1.Text = "500 TL"

    End Sub



    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click

        TextBox1.Text = ""

        PictureBox4.Visible = 0

        MsgBox("1.000.000 TL")

        PictureBox20.Visible = 0

        TextBox1.Text = "1.000.000 TL"

    End Sub



    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click

        TextBox1.Text = ""

        PictureBox5.Visible = 0

        MsgBox("1.000 TL")

        PictureBox15.Visible = 0

        TextBox1.Text = " 1.000 TL"

    End Sub



    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click

        TextBox1.Text = ""

        PictureBox6.Visible = 0

        MsgBox("400.000 TL")

        PictureBox18.Visible = 0

        TextBox1.Text = "400.000 TL"

    End Sub



    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click

        TextBox1.Text = ""

        PictureBox7.Visible = 0

        MsgBox("100 TL")

        PictureBox13.Visible = 0

        TextBox1.Text = "100 TL"

    End Sub



    Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click

        TextBox1.Text = ""

        PictureBox8.Visible = 0

        MsgBox("25.000 TL")

        PictureBox16.Visible = 0

        TextBox1.Text = "25.000 TL"

    End Sub



    Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click

        TextBox1.Text = ""

        PictureBox9.Visible = 0

        MsgBox("750.000 TL")

        PictureBox19.Visible = 0

        TextBox1.Text = "750.000 TL"

    End Sub



    Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click

        TextBox1.Text = ""

        PictureBox10.Visible = 0

        MsgBox("25 TL")

        PictureBox12.Visible = 0

        TextBox1.Text = "25 TL"

    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.Visible = 0

        PictureBox2.Visible = 0

        PictureBox3.Visible = 0

        PictureBox4.Visible = 0

        PictureBox5.Visible = 0

        PictureBox6.Visible = 0

        PictureBox7.Visible = 0

        PictureBox8.Visible = 0

        PictureBox9.Visible = 0

        PictureBox10.Visible = 0

        PictureBox11.Visible = 0

        PictureBox12.Visible = 0

        PictureBox13.Visible = 0

        PictureBox14.Visible = 0

        PictureBox15.Visible = 0

        PictureBox16.Visible = 0

        PictureBox17.Visible = 0

        PictureBox18.Visible = 0

        PictureBox19.Visible = 0

        PictureBox20.Visible = 0

        TextBox1.Visible = 0

        Button4.Visible = 0

        'ilk açılışta kutular ve yeni oyun buttonu pasif '

    End Sub



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

        PictureBox21.Visible = 0 'PictureBox pasif oluyor'

        Button1.Visible = 0 'button pasif oluyor'

        Button2.Visible = 0 'button pasif oluyor'

        Button3.Visible = 0 'button pasif oluyor'

        PictureBox1.Visible = 1 'PictureBox aktif oluyor'

        PictureBox2.Visible = 1 'PictureBox aktif oluyor'

        PictureBox3.Visible = 1 'PictureBox aktif oluyor'

        PictureBox4.Visible = 1 'PictureBox aktif oluyor'

        PictureBox5.Visible = 1 'PictureBox aktif oluyor'

        PictureBox6.Visible = 1 'PictureBox aktif oluyor'

        PictureBox7.Visible = 1 'PictureBox aktif oluyor'

        PictureBox8.Visible = 1 'PictureBox aktif oluyor'

        PictureBox9.Visible = 1 'PictureBox aktif oluyor'

        PictureBox10.Visible = 1 'PictureBox aktif oluyor'

        PictureBox11.Visible = 1 'PictureBox aktif oluyor'

        PictureBox12.Visible = 1 'PictureBox aktif oluyor'

        PictureBox13.Visible = 1 'PictureBox aktif oluyor'

        PictureBox14.Visible = 1 'PictureBox aktif oluyor'

        PictureBox15.Visible = 1 'PictureBox aktif oluyor'

        PictureBox16.Visible = 1 'PictureBox aktif oluyor'

        PictureBox17.Visible = 1 'PictureBox aktif oluyor'

        PictureBox18.Visible = 1 'PictureBox aktif oluyor'

        PictureBox19.Visible = 1 'PictureBox aktif oluyor'

        PictureBox20.Visible = 1 'PictureBox aktif oluyor'

        TextBox1.Visible = 1 'paraları gös. textbox aktif oluyor'

        Button4.Visible = 1 ' yeni oyun button aktif oluyor'

        'varım buttonuna tıkladıgımızda oyun açılıyor'

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        MsgBox(" rıdvan berçin") 'açılışta yapanlar buttonuna tıkladıgımızda mesaj veriyor'

    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        PictureBox1.Visible = 1

        PictureBox2.Visible = 1

        PictureBox3.Visible = 1

        PictureBox4.Visible = 1

        PictureBox5.Visible = 1

        PictureBox6.Visible = 1

        PictureBox7.Visible = 1

        PictureBox8.Visible = 1

        PictureBox9.Visible = 1

        PictureBox10.Visible = 1

        PictureBox11.Visible = 1

        PictureBox12.Visible = 1

        PictureBox13.Visible = 1

        PictureBox14.Visible = 1

        PictureBox15.Visible = 1

        PictureBox16.Visible = 1

        PictureBox17.Visible = 1

        PictureBox18.Visible = 1

        PictureBox19.Visible = 1

        PictureBox20.Visible = 1

        TextBox1.Visible = 1

        'yeni oyun buttonunun içeriği buttona tıkladığımızda pictureboxlar aktif oluyor'

        ' ve yeni oyun başlıyor'

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        MsgBox("bu oyun bir tahmin oyunudur..") 'açılışta nedir buttonuna tıkladığımızda bize mesaj veriyor'



    End Sub

End Class



Şimdi de size oyunun ana kısmını, yani oyun kısmını göstereceğim:



Kolay gelsin arkadaşlar, yorumlarınızı bekliyorum.
  • Etiketler;
Yorum Yaz

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

süper ya sağol
oyun her başladığında ktudan aynı rakamlar çıkıyo :sasir:
Teklif vermez bu program. Eksik anlatım omuş bence...Ama yinede emeğe saygı
çok güzel olmuş elin sağlık. Ya bende visual basic dersini öğrenmeye çalışıyorumda. Hoca bir ders verdi dört tane derst notunu girip onların ordalamasını bulup ve sonucuna ekleyip sonra 40Tan aşağ ise sınıfta kaldı yukarı ise geçti diye bir yazı yazması gerekiyor bunu nasıl yapabilirim yardımı olacak olan varmı şimdiden teşekür ederim
çok güzel olmuş.
öncelikle arkadaşım 4 adet textbox(notların girilmesi için) , 2 label (labellerin birisi kaldı geçti durumu için biriside ortalamayı yazmak için) ve birde buton ekle forma. butonun click olayına şu algoritmada kod yazarsan sorunu çözersin: label2.caption= (val(text1)+val(text2)+val(text3)+val(text4))/4 'bu ortalama içindi.. if val(label2.caption) <40 then label1.caption="KALDI" else label1.caption="GEÇTİ" end if 'bu ise kaldı geçti durumu içindi...
Güzel bi konu ama daha başarılı bir örnek yapılabilirdi. Bende C#'da yapılmış olan bir örnek var. CETurk'den almıştım. Çok iyi çalışıyor. Teklif felan hepsini veriyor. Teşekkürler.
Ellerinize sağlık çok güzel olmuş.Ben daha yeni üyü oldum bu siteye.Ben de Orta seviyede vbnet biliyorum.Veri tabanı örnekleri arıyorum yardımcı olursanız çok sevinirim.
güzel örnek
arkadaşlar bu oyun sıraya göre gidiyor nasıl diyeceksiniz 5. kutuda 1,000 6.kutuda 25,000 7.kutuda 100,000 bunu nasıl farklı kutularda yapacaz.1de sizden bişey rica etsem bana Microsoft Visual Studio 2008 ile ilgili 10 tane prog lazım gönderirseniz sevinirim şimdiden teşek ederim. emeğe saygı eline sağlık :) :kirp:
Kaynak dosyayı indirmek için tıklayın diyor ama ERRORRR
button 1 , 2 , 3 hangisi oluyor
button 1,2,3 hangisi oluyor
Dosya linki silinmiş yenilermisiniz .s

Yukarı Git