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