Visual Basic Doğum Tarihine Göre Burcunu Bulan Program

admin Şubat 24, 2021Temmuz 14, 2022 0 Comments

Visual Basic programı gelişim aşamasında karşımıza visual basic girilen doğum tarihine göre burcunu bul nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte kendinizi geliştirebilirsiniz. Girilen doğum tarihine göre burcunu bul hesabını kolayca yapabileceksiniz.

İçindekiler

Visual Basic Doğum Tarihine Göre Burcunu Bul
Diğer Kod Örneklerine Göz Atın

Visual Basic Doğum Tarihine Göre Burcunu Bul

Doğum tarihine göre burçları bulma programı basit bil algoritmaya göre çalışmaktadır.

Kullanıcının girdiği tarihleri analiz ederek sizlerde kendi programınızda burçları bulma kısmı ekleyebilirsiniz.

Programın algoritması kısaca girilen tarihler arasında karşılaştırma yaparak if koşulu ile textboxlara değişkenleri yansıtmaktadır.

Dim gun, ay As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
gun = DateTimePicker1.Value.Day
ay = DateTimePicker1.Value.Month
If (ay = 12 And gun >= 23) Or (ay = 1 And gun <= 20) Then
TextBox1.Text = "OĞLAK"

End If
If (ay = 9 And gun >= 22) Or (ay = 10 And gun <= 23) Then
TextBox1.Text = "TERAZİ"

End If
If (ay = 1 And gun >= 21) Or (ay = 2 And gun <= 19) Then
TextBox1.Text = "KOVA"

End If
If (ay = 2 And gun >= 20) Or (ay = 3 And gun <= 20) Then
TextBox1.Text = "BALIK"

End If
If (ay = 3 And gun >= 21) Or (ay = 4 And gun <= 20) Then
TextBox1.Text = "KOÇ"

End If
If (ay = 4 And gun >= 21) Or (ay = 5 And gun <= 21) Then
TextBox1.Text = "BOĞA"

End If
If (ay = 5 And gun >= 22) Or (ay = 6 And gun <= 21) Then
TextBox1.Text = "İKİZLER"

End If
If (ay = 6 And gun >= 22) Or (ay = 7 And gun <= 23) Then
TextBox1.Text = "YENGEÇ"

End If
If (ay = 7 And gun >= 24) Or (ay = 8 And gun <= 23) Then
TextBox1.Text = "ASLAN"

End If
If (ay = 8 And gun >= 24) Or (ay = 9 And gun <= 23) Then
TextBox1.Text = "BAŞAK"

End If
If (ay = 10 And gun >= 23) Or (ay = 11 And gun <= 22) Then
TextBox1.Text = "AKREP"

End If
If (ay = 11 And gun >= 23) Or (ay = 12 And gun <= 22) Then
TextBox1.Text = "YAY"

End If
End Sub
End Class

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

Visual Basic ile ilgili kavramlara ek olarak, Visual Basic öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.