Doğum Günü Hesaplama Programı

Bu dersimizde visual basic ile doğum günü hesaplama  programı yapacağız.

Forma eklemeniz gereken araçlar:

1 tane Button
4 tane Label
4 tane TextBox

Tasarımı aşağıdaki gibi yapabilirsiniz.

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 = 2015 - c
        TextBox4.Text = a & " " & d & " " & c & " tarihinde bir " & f & " günü doğdunuz. " & g & " yaşındasınız."
    End Sub
End Class

Yaş Hesaplama Programı Video İzle

Bir önceki visual basic dresimizde Vb.Net 2010 ile Arka Plan Rengi Ayarlama programının yapımını anlattık.