Contoh Program Menggunakan Visual Basic 2010 : Latihan 6

'Latihan 6 (Mencari nama bulan dan jumlah hari berdasarkan kode bulan)



                             'Tampilan Form

'Coding

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_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub Latihan_6_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    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