Bonzai ve Zararları Nedir? yangın kapısı eskişehir vinç renkli saç boyası sinema

Doğum Günü Hesaplama Programı

ibrahim fırat | Cuma, Nisan 17, 2015 | 0 yorum

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.

Doğum Günü Hesaplama Programı

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.



İçeriği Sosyal Ağlarda Paylaşmak için Alttaki Butonları Kullanabilirsiniz


Kategori: ,

Yazar Hakkında:
!BR@H!M F!R@T Blogumuzda paylaşılan her şey tanıtım amaçlıdır. Telif ihlali olan paylaşımları iletişim kutusundan veya ibo.firat@gmail.com adresinden bize ulaştırabilirsiniz.

0 yorum

Lütfen konuyla alakasız yorumlardan kaçının. Sadece link almak amaçlı ( spam ) yorumlar yazmayınız. ( anında silinir ). Argo, küfür, siyasi vb. içerik barındıran yorumlar yazmayınız.

Not: Yorum yapabilmek için (yorumlama biçiminden) Anonim ( isimsiz olarak ) veya Adı/URL'yi ( Adı ( gerekli ) / URL ( kısmını boş bırakınız ), fonksiyonlarından seçim yaparak yorumlarınızı yazabilirsiniz.

Ancak Google + profili ile yapılan yorumları onaylamıyorum bilginize. Yorum yaparken Adı/URL kısmından yaparsanız sadece isim yazmanız yeterli. Site adresi, URL eklerseniz yorumunuz onaylanmaz.

if