Contoh Project Visual Basic 2010 Mencari Nama Bulan dan Jumlah hari dari Data yang telah diinputkan

Mencari nama bulan dan jumlah hari sesuai dengan inputan manggunakan Select Case.

• Pembuatan Form

• Atur Propertis form sesuai dengan data berikut ;

• Coding Untuk mencari nama bulan dan jumlah hari.

Public Class Latihan_6

    Dim KodeBulan, jumHari As Integer

    Dim NamaBulan As String

    Sub cariNamaBulan()

        KodeBulan = Val(Me.TextKB.Text)

        Select Case (KodeBulan)

            Case 1

                NamaBulan = "Januari"

                jumHari = 31

            Case 2

                NamaBulan = "Februari"

                jumHari = 28

            Case 3

                NamaBulan = "Maret"

                jumHari = 31

            Case 4

                NamaBulan = "April"

                jumHari = 30

            Case 5

                NamaBulan = "Mei"

                jumHari = 31

            Case 6

                NamaBulan = "Juni"

                jumHari = 30

            Case 7

                NamaBulan = "Juli"

                jumHari = 31

            Case 8

                NamaBulan = "Agustus"

                jumHari = 31

            Case 9

                NamaBulan = "September"

                jumHari = 30

            Case 10

                NamaBulan = "Oktober"

                jumHari = 31

            Case 11

                NamaBulan = "Nopember"

                jumHari = 30

            Case 12

                NamaBulan = "Desember"

                jumHari = 31

            Case Else

                NamaBulan = ""

                jumHari = 0

        End Select

        Me.lbnamabulan.Text = NamaBulan.ToString

        Me.lbjumlahhari.Text = jumHari.ToString

    End Sub

    Private Sub Latihan_6_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.lbnamabulan.Text = ""

        Me.lbjumlahhari.Text = ""

        Me.TextKB.Text = ""

        Me.TextKB.Focus()

    End Sub

    Private Sub TextKB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextKB.TextChanged

        Call cariNamaBulan()

    End Sub

End Class