{"id":237,"date":"2011-04-07T20:37:00","date_gmt":"1970-01-01T00:00:00","guid":{"rendered":"http:\/\/www.yazilimmutfagi.com\/?p=237"},"modified":"2011-04-07T20:37:00","modified_gmt":"1970-01-01T00:00:00","slug":"visual-basic-net-ile-puzzle-uygulamasi","status":"publish","type":"post","link":"https:\/\/www.yazilimmutfagi.com\/index.php\/2011\/04\/07\/visual-basic-net-ile-puzzle-uygulamasi\/","title":{"rendered":"Visual Basic .NET ile Puzzle Uygulamasi"},"content":{"rendered":"\n<p>\n<h2>Visual Basic .NET ile Puzzle Uygulamasi<\/h2>\nMerhaba arkadaslar. Yapboz oyununu sever misiniz? Bug\u00fcn vb.net&#8217;te basit bir puzzel yapalim istiyorum. \u00d6yle fazla abartili b\u00fcy\u00fck olmasin. 4 s\u00fctun 3 satirdan olussa k\u00e2fidir ssanirim.\n<\/p>\n<p>\nO zaman hemen visual studiomuzu a\u00e7ip yeni bir proje baslatalim ve formumuza 12 + 1 tane picturebox yerlestirelim. Unutmayin yukarida belirttigimiz gibi 4&#215;3 olacak.\n<\/p>\n<p>\nSimdi de hemen bir resim se\u00e7elim ve bu resmi 12 esit par\u00e7aya ayiralim. Ayirdigimiz par\u00e7alara 1,2,3&#8230; veya resim1, resim2, resim3&#8230; gibi muntazaman isimler verelim. \n<\/p>\n<p>\nBurada dikkat etmemiz gereken husus resmin bir par\u00e7asinin ve pictureboxlarin boyutlarinin ayni olmasi gerektigidir. Aksi taktirde bazi uyumsuzluklar yasanabilir.\n<\/p>\n<p>\nSimdi sira geldi 12 par\u00e7aya ayrilmis resmimizi projemize eklemeye. Projemizin oldugu klas\u00f6re yeni bir klas\u00f6r a\u00e7ip (mesela: resimler) par\u00e7alara ayirdigimiz resimleri oraya kopyalayalim.\n<\/p>\n<a href='www.yazilimmutfagi.com'>.<\/a>\n<p>\nFormumuza ekledigimiz pictureboxlara o resimleri gelisig\u00fczel yerlestirelim Fakat pictureboxun biri bos kalsin, yani resmin bir par\u00e7asini kullanmayacagiz. Ben resim4&#8217;\u00fc kullanmadim mesela. Siz de k\u00f6selere gelen resimlerden birini se\u00e7in ve onu kullanmayin.\n<\/p>\n<img decoding=\"async\" loading=\"lazy\" src=\"http:\/\/www.yazilimmutfagi.com\/yuklenendosyalar\/image\/ahmet\/puzzle\/puzzel_programi_2.jpg\" alt=\"Puzzle\" width=\"531\" height=\"375\" longdesc=\"http:\/\/www.yazilimmutfagi.com\" \/>  \n<p>\nGelelim programimizin kodlarina ve program mantigina : Yapbozun herhangi bir par\u00e7asina tikladigimiz zaman, eger varsa, yanindaki bos kareye ge\u00e7meli.\nPuzzel tahtamizta tek bir kare bos kalacakti hatirlarsaniz. Bizim yapmamiz gereken en \u00f6nemli sey tiklanan par\u00e7anin yaninda bos kare var mi? Varsa hangi tarafinda? Bunu bildirirsek isimiz kolaydir.\n<\/p>\n<p>\nBu noktada hayal g\u00fcc\u00fcm\u00fcze birazcik is d\u00fcs\u00fcyor o kadar.\n<\/p>\n<img decoding=\"async\" loading=\"lazy\" src=\"http:\/\/www.yazilimmutfagi.com\/yuklenendosyalar\/image\/ahmet\/puzzle\/puzzel_programi.jpg\" alt=\"Puzzle\" width=\"531\" height=\"375\" longdesc=\"http:\/\/www.yazilimmutfagi.com\" \/>  \n<p>\nResimde de g\u00f6rd\u00fcg\u00fcn\u00fcz gibi 3&#8217;\u00fcnc\u00fc par\u00e7anin kayabilecegi \u00fc\u00e7 yer var: 2&#8217;inci par\u00e7a, 4&#8217;\u00fcnc\u00fc par\u00e7a ve 7&#8217;inci par\u00e7a. Bunu vb.net dilinde su sekilde yazabiliriz:\n<\/p>\n<code>\n<div  class=\"code\">\n  <p>Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click<br \/>\n    If PictureBox4.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox4.Image = PictureBox3.Image<br \/>\n    PictureBox3.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox2.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox2.Image = PictureBox3.Image<br \/>\n    PictureBox3.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox7.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox7.Image = PictureBox3.Image<br \/>\n    PictureBox3.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<\/p>\n<\/div>\n<\/code>\n<p>\n\nBurada dikkatinizi PictureBoxBos \u00e7ekmistir. Hani basta 12 + 1 tane picturebox yerlestirin demistim ya? Iste sebebi buydu. Yani bos biraktigimiz pictureboxu, \u00fczerine tikladigimiz pictureboxun bos olup olmadigini karsilastirirken kullaniyoruz. &#8220;Eger picturebox3 esittir pictureboxbos ise&#8230;&#8221;\n<\/p>\n<p>\n<a href='www.yazilimmutfagi.com'>.<\/a>\nBirinci kareye bakalim bir de:\n<\/p>\n<code>\n<div  class=\"code\">\n  <p><br \/>\n    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click<br \/>\n    If PictureBox5.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox5.Image = PictureBox1.Image<br \/>\n    PictureBox1.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox2.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox2.Image = PictureBox1.Image<br \/>\n    PictureBox1.Image = PictureBoxBos.Image<br \/>\n    End If<\/p>\n  <p> End Sub<\/p>\n<\/div>\n<\/code>\n<p>\nG\u00f6rd\u00fcg\u00fcn\u00fcz gibi son derece basit.\n<\/p>\n<p>\nProgram mantigini tekrar etmek gerekirse:  Yapbozun herhangi bir par\u00e7asina tikladigimiz zaman, eger varsa, yanindaki bos kareye ge\u00e7meli.\n<\/p>\n<p>\n<h4>Kodlarin tamami:<\/h4>\n<\/p>\n<code>\n<div  class=\"code\">\n  <p>Public Class Form1<\/p>\n  <p> Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click<br \/>\n    If PictureBox5.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox5.Image = PictureBox1.Image<br \/>\n    PictureBox1.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox2.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox2.Image = PictureBox1.Image<br \/>\n    PictureBox1.Image = PictureBoxBos.Image<br \/>\n    End If<\/p>\n  <p> End Sub<\/p>\n  <p> Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click<br \/>\n    If PictureBox1.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox1.Image = PictureBox2.Image<br \/>\n    PictureBox2.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox3.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox3.Image = PictureBox2.Image<br \/>\n    PictureBox2.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox6.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox6.Image = PictureBox2.Image<br \/>\n    PictureBox2.Image = PictureBoxBos.Image<\/p>\n  <p> End If<\/p>\n  <p> End Sub<\/p>\n  <p> Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click<br \/>\n    If PictureBox4.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox4.Image = PictureBox3.Image<br \/>\n    PictureBox3.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox2.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox2.Image = PictureBox3.Image<br \/>\n    PictureBox3.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox7.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox7.Image = PictureBox3.Image<br \/>\n    PictureBox3.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<br \/>\n  <\/p>\n  <p> Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click<br \/>\n    If PictureBox3.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox3.Image = PictureBox4.Image<br \/>\n    PictureBox4.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox8.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox8.Image = PictureBox4.Image<br \/>\n    PictureBox4.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n  <\/p>\n  <p> End Sub<\/p>\n  <p> Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click<\/p>\n  <p> If PictureBox1.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox1.Image = PictureBox5.Image<br \/>\n    PictureBox5.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox6.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox6.Image = PictureBox5.Image<br \/>\n    PictureBox5.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox9.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox9.Image = PictureBox5.Image<br \/>\n    PictureBox5.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<\/p>\n  <p> Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click<br \/>\n    If PictureBox2.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox2.Image = PictureBox6.Image<br \/>\n    PictureBox6.Image = PictureBoxBos.Image<br \/>\n    ElseIf PictureBox5.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox5.Image = PictureBox6.Image<br \/>\n    PictureBox6.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox7.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox7.Image = PictureBox6.Image<br \/>\n    PictureBox6.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox10.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox10.Image = PictureBox6.Image<br \/>\n    PictureBox6.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<\/p>\n  <p> Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click<br \/>\n    If PictureBox6.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox6.Image = PictureBox7.Image<br \/>\n    PictureBox7.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox3.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox3.Image = PictureBox7.Image<br \/>\n    PictureBox7.Image = PictureBoxBos.Image<br \/>\n    End If<\/p>\n  <p> If PictureBox8.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox8.Image = PictureBox7.Image<br \/>\n    PictureBox7.Image = PictureBoxBos.Image<br \/>\n  <br \/>\n    ElseIf PictureBox11.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox11.Image = PictureBox7.Image<br \/>\n    PictureBox7.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<\/p>\n  <p> Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click<\/p>\n  <p> If PictureBox7.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox7.Image = PictureBox8.Image<br \/>\n    PictureBox8.Image = PictureBoxBos.Image<br \/>\n  <br \/>\n    ElseIf PictureBox4.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox4.Image = PictureBox8.Image<br \/>\n    PictureBox8.Image = PictureBoxBos.Image<br \/>\n  <br \/>\n    ElseIf PictureBox12.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox12.Image = PictureBox8.Image<br \/>\n    PictureBox8.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<\/p>\n  <p> Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click<br \/>\n    If PictureBox5.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox5.Image = PictureBox9.Image<br \/>\n    PictureBox9.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox10.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox10.Image = PictureBox9.Image<br \/>\n    PictureBox9.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n  <\/p>\n  <p> End Sub<\/p>\n  <p> Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click<br \/>\n    If PictureBox9.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox9.Image = PictureBox10.Image<br \/>\n    PictureBox10.Image = PictureBoxBos.Image<br \/>\n  <br \/>\n    ElseIf PictureBox11.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox11.Image = PictureBox10.Image<br \/>\n    PictureBox10.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox6.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox6.Image = PictureBox10.Image<br \/>\n    PictureBox10.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<\/p>\n  <p> Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.Click<br \/>\n    If PictureBox7.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox7.Image = PictureBox11.Image<br \/>\n    PictureBox11.Image = PictureBoxBos.Image<br \/>\n  <br \/>\n    ElseIf PictureBox10.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox10.Image = PictureBox11.Image<br \/>\n    PictureBox11.Image = PictureBoxBos.Image<\/p>\n  <p> ElseIf PictureBox12.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox12.Image = PictureBox11.Image<br \/>\n    PictureBox11.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<\/p>\n  <p> Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click<br \/>\n    If PictureBox8.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox8.Image = PictureBox12.Image<br \/>\n    PictureBox12.Image = PictureBoxBos.Image<br \/>\n  <br \/>\n    ElseIf PictureBox11.Image Is PictureBoxBos.Image Then<\/p>\n  <p> PictureBox11.Image = PictureBox12.Image<br \/>\n    PictureBox12.Image = PictureBoxBos.Image<br \/>\n    End If<br \/>\n    End Sub<br \/>\n    End Class<\/p>\n<\/div>\n<\/code>\n<a href='www.yazilimmutfagi.com'>.<\/a>","protected":false},"excerpt":{"rendered":"<p>Merhaba arkadaslar. Yapboz oyununu sever misiniz? Bug&#252;n vb.net&#39;te basit bir puzzel yapalim istiyorum. &#214;yle fazla abartili b&#252;y&#252;k olmasin. 4 s&#252;tun 3 satirdan olussa k&#226;fidir ssanirim.<\/p>\n","protected":false},"author":519,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[418],"tags":[5572,4205,5312,5986,4941,5829,4575],"_links":{"self":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/posts\/237"}],"collection":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/users\/519"}],"replies":[{"embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/comments?post=237"}],"version-history":[{"count":0,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/posts\/237\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/media?parent=237"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/categories?post=237"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/tags?post=237"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}