Visual Basic DateTimePicker İle Burçları Bulan Program

Bu örneğimizde DateTimePicker nesnesi ile kullanıcının doğum tarihine göre hangi burçtan olduğunu bulan program yapacağız. Formumuza bir tane datetimepicker nesnesi bir tane textbox nensesi ve bir tane de picturebox nesnesi ekliyoruz. Daha sonra kullanıcının seçmiş olduğu tarihe göre o tarihe denk gelen burç hangisi ise burcu buluyoruz ve daha sonra da o burca ait olan görseli resim kutusunda göstermesini sağlıyoruz.

Programın Visual Basic kodları:

Public Class Form1
    Dim gun, ay As Integer
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

        gun = DateTimePicker1.Value.Day 'Sadece gün bilgisi alınıyor.
        ay = DateTimePicker1.Value.Month 'Sadece ay bilgisi alınıyor.

        'www.bilisimkonulari.com

        If (ay = 12 And gun >= 23) Or (ay = 1 And gun <= 20) Then
            TxtBurc.Text = "OĞLAK"
            PictureBox1.ImageLocation = "oglak.jpg"
        End If

        If (ay = 9 And gun >= 22) Or (ay = 10 And gun <= 23) Then
            TxtBurc.Text = "TERAZİ"
            PictureBox1.ImageLocation = "terazi.jpg"
        End If

        If (ay = 1 And gun >= 21) Or (ay = 2 And gun <= 19) Then
            TxtBurc.Text = "KOVA"
            PictureBox1.ImageLocation = "kova.jpg"
        End If

        If (ay = 2 And gun >= 20) Or (ay = 3 And gun <= 20) Then
            TxtBurc.Text = "BALIK"
            PictureBox1.ImageLocation = "balik.jpg"
        End If

        'www.bilisimkonulari.com

        If (ay = 3 And gun >= 21) Or (ay = 4 And gun <= 20) Then
            TxtBurc.Text = "KOÇ"
            PictureBox1.ImageLocation = "koc.jpg"
        End If

        If (ay = 4 And gun >= 21) Or (ay = 5 And gun <= 21) Then
            TxtBurc.Text = "BOĞA"
            PictureBox1.ImageLocation = "boga.jpg"
        End If

        If (ay = 5 And gun >= 22) Or (ay = 6 And gun <= 21) Then
            TxtBurc.Text = "İKİZLER"
            PictureBox1.ImageLocation = "ikizler.jpg"
        End If

        If (ay = 6 And gun >= 22) Or (ay = 7 And gun <= 23) Then
            TxtBurc.Text = "YENGEÇ"
            PictureBox1.ImageLocation = "yengec.jpg"
        End If

        'www.bilisimkonulari.com

        If (ay = 7 And gun >= 24) Or (ay = 8 And gun <= 23) Then
            TxtBurc.Text = "ASLAN"
            PictureBox1.ImageLocation = "aslan.jpg"
        End If

        If (ay = 8 And gun >= 24) Or (ay = 9 And gun <= 23) Then
            TxtBurc.Text = "BAŞAK"
            PictureBox1.ImageLocation = "basak.jpg"
        End If

        If (ay = 10 And gun >= 23) Or (ay = 11 And gun <= 22) Then
            TxtBurc.Text = "AKREP"
            PictureBox1.ImageLocation = "akrep.jpg"
        End If

        'www.bilisimkonulari.com

        If (ay = 11 And gun >= 23) Or (ay = 12 And gun <= 22) Then
            TxtBurc.Text = "YAY"
            PictureBox1.ImageLocation = "yay.jpg"
        End If

    End Sub
End Class

Programın ekran görüntüleri: