Kod:
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.
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.tasarimkodlama.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
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
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