Doğum Günü Hesaplama (Vb.Net)

ads

ads

Gün hesaplama Programı Yapma - Visual basic ile.

Bu yazımızda basit bir gün hesaplama programı yapacağız. Hangi günde doğduğunuzu gösteren basit ve kullanışlı bir programı hep beraber yapalım.

Forma eklemeniz gereken araçlar:

1 tane TextBox

2 tane Button

ve 2 tane Label ekleyerek  tasarımı aşağıdaki gibi yapıyoruz.

Yazmanız gereken kodlar aşağıda:

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

ads