Cómo crear un programa de Visual Basic que utiliza el Si Else y For Loop

En el mundo de programación Visual Basic, la afirmación "Else If ..." es a debe tener en casi cualquier programa de ordenador. La "Si ... entonces ... Else" es uno de los más básico de todos los estados de flujo de control. Se prueba una condición - y si es verdad - que ejecutar las sentencias que siguen "Entonces". Si la declaración es falsa, entonces se ejecutan las instrucciones que siguen a la cláusula "si no". El "For ... Next" en Visual Basic se repetirá un grupo de instrucciones para un número determinado de veces.

Instrucciones

1 Lanzamiento de Microsoft Visual Basic Express. Haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla del ordenador, y haga clic en "Visual Basic" por debajo de Plantillas instaladas. Haga clic en "Aplicación de Windows Forms" y haga clic en "Aceptar" para crear un nuevo proyecto.

2 Haga doble clic en "botón" en el panel de la caja de herramientas para agregar un nuevo control de botón. Haga doble clic en "Button1" para abrir la ventana de Visual Basic y cree un evento de clic del botón. Escriba lo siguiente en el evento click para crear cuatro nuevas variables:

Dim DayNum Como DayOfWeek = DateTime.Now.DayOfWeek

Dim hour As Integer = DateTime.Now.Hour

Dim como secuencia DateString

Dim dayCntr como número entero

3 Escribe lo siguiente para comprobar si hoy es miércoles con el "si ... entonces":

If DayNum = DayOfWeek.Wednesday Then

Si hora = 14 horas O = 18 A continuación,

MessageBox.Show ( "Hoy es miércoles entre 2 y 6 PM")

Terminara si

Si hoy es miércoles, el código también pondrá a prueba si la hora es de entre 2 y 6 pm.

4 Escriba el siguiente código para averiguar el día de la semana usando un "For ... Next" y un "Si ... entonces ... Else":

Else

Para dayCntr = 1 a 6

Si DayNum = 1 A continuación,

DateString = "Lunes"

ElseIf DayNum = 2 A continuación,

DateString = "Martes"

ElseIf DayNum = 2 A continuación,

DateString = "Jueves"

ElseIf DayNum = 2 A continuación,

DateString = "Viernes"

ElseIf DayNum = 2 A continuación,

DateString = "Sábado"

Más

DateString = "Sunday"

Terminara si

Si DateString & lt;> "" Entonces

dayCntr = 8

Terminara si

Siguiente

No hay necesidad de probar para el miércoles, ya que está probado en la primera sentencia "If ... Else".

5 Escriba el siguiente código para mostrar el nombre del día de hoy y la hora actual a través de un cuadro de mensaje:

dateString = "Today is not Wednesday, today is " & dateString

DateString = DateString & ". Hora exacta es" & DateTime.Now.TimeOfDay.ToString

MessageBox.Show (DateString)

Terminara si

6 Pulse la tecla "F5" para ejecutar el programa. Haga clic en "Button1" para ejecutar el código.