- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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:
Kod:
ublic 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 SubEnd 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.
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:
Kod:
ublic 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 SubEnd 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.
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
