Bu derste hangi gün doğduğunuzu ve ne zaman doğum gününüz olduğunu hesaplayan küçük bir uygulama yapalım.
Aşağıdaki resim gibi görsel hazırlıyoruz. Yani formumuza 1 adet textbox, 2 adet buton, 2 adet label ekliyoruz.
Labellerin text özelliğini ekranda görüldüğü gibi yazıyoruz.
Public class form1
Dim d_tarih, gun
button1_click
Do
d_tarih = TextBox1.Text
Loop While Not IsDate(d_tarih)
Select Case Weekday(d_tarih)
Case 1 : gun = "Pazar"
Case 2 : gun = "Pazartesi"
Case 3 : gun = "Salı"
Case 4 : gun = "Çarşamba"
Case 5 : gun = "Perşembe"
Case 6 : gun = "Cuma"
Case 7 : gun = "Cumartesi"
End Select
MsgBox(gun & " Günü Doğmuşsunuz", MsgBoxStyle.Information, "SONUÇ")
button2_click
d_tarih = TextBox1.Text
If d_tarih <= Now.Date Then
MsgBox("Daha geçerli bir tarih giriniz.")
Else
Do
Loop While Not IsDate(d_tarih)
Select Case Weekday(d_tarih)
Case 1 : gun = "Pazar"
Case 2 : gun = "Pazartesi"
Case 3 : gun = "Salı"
Case 4 : gun = "Çarşamba"
Case 5 : gun = "Perşembe"
Case 6 : gun = "Cuma"
Case 7 : gun = "Cumartesi"
End Select
MsgBox(gun & " Günü Doğum Gününüz.", MsgBoxStyle.Information, "SONUÇ")
End If
