BilisiMerkez

Varmisin Yokmusun Oyunu Yapimi VB

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:

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

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:

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

Kolay gelsin arkadaşlar, yorumlarınızı bekliyorum.

Kaynak dosyayı indirmek için tıklayın

 
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.
Var mısın Yok musun Oyunu Yapalım Dersini Yazdirin
Yazdır

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

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=