Hanoi Kuleleri Oyunu

HANOİ KULELERİ OYUNU

Kodlar : 


Imports DevExpress.XtraEditors


Public Class frmOyun
    Dim BaslangicZamani As Date
    Dim GeceZaman As Integer
    Dim tst As Integer = 0
    Dim Tasi As Boolean = False
    Dim x, y As Integer
    Dim Taslar(10) As PictureBox
    Dim Uzaklik As Integer
    Dim SeciliNesne As PictureBox
    Dim K1(10) As PictureBox
    Dim K2(10) As PictureBox
    Dim K3(10) As PictureBox
    Dim Ka1, Ka2, Ka3 As Integer
    Dim EskiNokta As Point
    Dim AdimSayisi As Integer = 0


    Sub YeniOyun()
        For i As Integer = 0 To 3
            Dim btn As New PictureBox
            btn.Width = 130 - (i * 20)
            btn.Height = 25
            btn.Top = 500 - (30 * i)
            btn.Left = 50 + (i * 10)
            Taslar(i) = btn
            K1(i) = btn
            Ka1 += 1
            btn.BringToFront()
            'btn.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Office2003
            btn.Image = My.Resources.HanoiTas1
            btn.SizeMode = PictureBoxSizeMode.StretchImage
            'btn.Text = "Taş " & i + 1
            AddHandler btn.MouseMove, AddressOf MouseHareketi
            Me.Controls.Add(btn)
            PicBaslik.SendToBack()
            PictureBox3.SendToBack() : PictureBox4.SendToBack() : PictureBox5.SendToBack()
            Kule1.SendToBack()
            Kule2.SendToBack()
            Kule3.SendToBack()
            PictureBox2.SendToBack()
        Next
        BaslangicZamani = Now
        Zaman.Start()
    End Sub

Sql Serverda ISNULL Kullanımı

Sql de 0/0 yada x/0  gibi hesaplamalar sorgumuzun hata fırlatmasına sebebiyet vermektedir. Bunu bölen kısmın 0 olup olmama durumunu CASE WHEN yapısıyla yada en kötü ihtimal IF THEN bloğuyla tespit edip önlememiz muhtemeldir.

Ama ben size bunun daha basit ve daha performanslı bir yöntemini söyleyeyim;

SELECT ISNULL(SAYI1/NULLIF(SAYI2,0),0) FROM TABLOADIMIZ

 nullif fonksiyonu parametre olarak aldığı iki parametre eşit değerde olduğu taktirde  null geri döndürür. Eşit olmama değerinde ise birinci parametreyi geri döndürür. Yukarıda yer alan ifadede ise bolen kolonu 0 a eşit ise fonksiyon null döndürecektir.Bu null değeride en baştaki isnull ifadesiyle 0 olarak geri dönecektir.

NullIf işe yarayan bir fonksiyona benziyor. Aklınızda bulunsun.

Alıntıdır...

Microsoft Student Partner başvuruları başladı..

Genel Bilgiler

2011-2012 öğretim yılı bahar döneminde Microsoft Student Partner olmak isteyen öğrenciler için başvurular başlamıştır. Başvurular için son tarih 15 Eylül 2011 (Saat 23:59'a kadar)'dır.

Başvuru süreci 2 aşamadan oluşmaktadır:
- Aşağıdaki bilgileri dikkate alarak bir video hazırlanması
- Aşağıda verilen formun eksiksiz olarak doldurulması.

Değerlendirme sonuçlarına göre Microsoft Student Partner Programı'na kabul edilen öğrenciler22 Eylül 2011 tarihinde www.msakademik.net adresinde duyurulacaktır.
Microsoft Student Partners programı hakkında detaylı bilgi almak için tıklayın >>

Video Gönderim Bilgileri

Neden Video Çekmeliyim?

MSP Programı uluslararası olarak yürütülen bir programdır. MSP olmak isteyen öğrencilerin dünya çapında Microsoft'u en iyi şekilde temsil edecek öğrenciler olması gerekmektedir. Yüzyüze mülakata gerek kalmadan video görüntüsü sayesinde MSP adaylarının da başvuru süreçlerini kolaylaştıracağı için bu yöntemi tercih ettik.

Başvuru İçin Video Zorunlu mu?

Evet zorunlu. Video görüntüsü olmayan başvurular kabul edilmeyecektir.

Video İçerisinde Neler Yer Almalı?

- Kendinizden kısaca bahseder misiniz? (Adınız, Üniversiteniz, Bölümünüz, Sınıfınız vb.)
- Aktif olarak görev aldığınız organizasyonlar nelerdir? Ne görev yaptınız? (Seminer, Konferans, Eğitim, Çalıştay vb.)
- Neden MSP olmak istiyorsunuz?
- MSP olursanız kısaca neler yapmayı planlıyorsunuz? Not: Video süresi 10dk'yı geçmemelidir.

Video'yu Nereye Yükleyeceğim?

Hazırlamış olduğunuz videoyu izleyebilmemiz için mutlaka bir video paylaşım sitesine yüklenmesi gerekmektedir. İstediğiniz video paylaşım sitelerine girişini yapabilirsiniz. Bir sonraki adımda videonuzun linkini vermeniz istenecektir. MSP seçimleri açıklandıktan sonra videonuzu siteden kaldırabilirsiniz.