Doğduğun Günü Bulan Program - Visual Basic

ads

ads

Bu dersimizde  visual basic'de hangi günde  doğduğunuzu bulabilen  kısa bir  program yapmayı deneyeceğiz:

Gereçkli araçlarımız:

1  tane buton işimizi görecektir

Form1 e butonumu ekledikten  sonra

 Buton'un click olayına şu kodları yazalım.

Dim d_tarih, gun
        Do
            d_tarih = InputBox("Doğum Tarihinizi Giriniz :")

        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")

ÖRNEK GÖRÜNTÜ1:



ÖRNEK GÖRÜNTÜ 2:

Örnek Görüntü3:

ads