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

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

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.

Diğer Kod Örneklerine Göz Atın

VİSUAL BASİC KAÇ GÜNDÜR YAŞADIĞIMIZI BULAN PROGRAM

3 ADET SAYIDAN EN BÜYÜĞÜNÜ VE EN KÜÇÜĞÜNÜ BULMA VİSUAL BASİC

VİSUAL BASİC STANDART SAPMA

 

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir