Visual Basic 2010 Program Hari



Program Hari dengan VB 2010

 Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case TextBox1.Text
            Case "1"
                MessageBox.Show("senin", "Hari", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case "2"
                MessageBox.Show("selasa", "Hari", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case "3"
                MessageBox.Show("rabu", "Hari", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case "4"
                MessageBox.Show("kamis", "Hari", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case "5"
                MessageBox.Show("jumat", "Hari", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case "6"
                MessageBox.Show("sabtu", "Hari", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case "7"
                MessageBox.Show("minggu", "Hari", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Select
    End Sub
End Class


Related Post

close