domingo, 22 de julio de 2012

Dias de la semana

Dias de la semana

Como todos sabemos contamos con 7 dias a la semana que son:
Lunes
Martes
Miercoles
Jueves
Viernes
Sabado
Domingo.

En el siguiente programa sabremos que dia es ingresando un numero del 1 al 7.

Paso 1: Crear Formulario.

Label:2
Textbox:1
Button:3


Paso 2: Comenzamos a Programar dandole Click al Button Ok.





Declaramos
Public Class Form1
    Dim semana(6) As String
    Dim num As Integer






Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        num = TextBox1.Text

        If num >= 1 And num <= 7 Then

            Label2.Text = "El dia de la semana es: " + CStr(semana(num - 1))

        Else
            MsgBox("No esta dentro del rango")


        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        semana(0) = "lunes"
        semana(1) = "martes"
        semana(2) = "miercoles"
        semana(3) = "jueves"
        semana(4) = "viernes"
        semana(5) = "sabado"
        semana(6) = "domingo"


    End Sub




Le damos doble click al button limpiar y programamos
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        Label2.Text = ""

Y finalizamosprogramando con el button de salir

me.close ()












Ejemplo final


No hay comentarios:

Publicar un comentario