HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Gün, ay ve yıl kullanıcı tarafından sayı olarak girilecek, program kaç yaşında olduğunu doğduğun ayı ve mevsimi bulacak.
Kod:
Public Class Form1
Dim a, b, c, g As Integer
Dim d, f As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If b = 1 Then
d = "Ocak"
ElseIf b = 2 Then
d = "Şubat"
ElseIf b = 3 Then
d = "Mart"
ElseIf b = 4 Then
d = "Nisan"
ElseIf b = 5 Then
d = "Mayıs"
ElseIf b = 6 Then
d = "Haziran"
ElseIf b = 7 Then
d = "Temmuz"
ElseIf b = 8 Then
d = "Ağustos"
ElseIf b = 9 Then
d = "Eylül"
ElseIf b = 10 Then
d = "Ekim"
ElseIf b = 11 Then
d = "Kasım"
ElseIf b = 12 Then
d = "Aralık"
End If
If b = 12 Or b = 1 Or b = 2 Then
f = "kış"
ElseIf b = 3 Or b = 4 Or b = 5 Then
f = "ilk bahar"
ElseIf b = 6 Or b = 7 Or b = 8 Then
f = "yaz"
ElseIf b = 9 Or b = 10 Or b = 11 Then
f = "son bahar"
End If
g = 2008 - c
TextBox4.Text = a & " " & d & " " & c & " tarihinde bir " & f & " günü doğdunuz. " & g & " yaşındasınız."
End Sub
End Class
