VISUAL BASIC BASICO Unidad 1: Paso 2 - Identificar las estructuras básicas de programación
Presentado por: JOHN MAURICIO TEJADA GUTIERREZ FAIVER HERNEY BRAVO JAMIOY DANNA ZABALA CASTILLO JORGE EDUARDO PLAZAS DIAZ JEFERSSON RAMIREZ ROJAS
Cód. 4520348 Cód. 12181127 Cód. 1073177748 Cód. Cód.
Presentado a: Ing. JAIME RUBIANO LLORENTE Tutor Grupo 201416_3
UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA UNAD Escuela de Ciencias Básica, Tecnología e Ingeniería ECBTI
Octubre 2017 INTRODUCCION La consolidación de los conceptos básicos de la programación es vital a la hora de dar movimiento a una aplicación. Por esta razón, esta actividad se enfoca en Identificar las estructuras básicas de programación, que se deben tener en primera línea, para condicionar objetivos, de tal manera que se pueda ser restrictivo en nuestros objetivos.
1. Estructuras While y do While
La estructura de control While (Mientras) Do While (hacer mientras) permite ejecutar un bloque de instrucciones mientras se cumpla una condición que se evalúa a un booleano true o false. Como en el caso de la estructura de control “if”, las llaves solo son obligatorias si el bloque de instrucciones está formado por más de una instrucción. La sintaxis de esta instrucción condicional, se define de la siguiente manera: While (Condición) { //Instrucción Numero <= 0 Acceso = False } La diferencia entre While y Do While, es básicamente que la estructura While primero comprueba la condición y si se cumple ejecuta el bloque de instrucciones, en cambio en la estructura de control do…While primero se ejecutan las instrucciones y después se comprueba la condición. Esta estructura de expresa básicamente de la siguiente manera: Do { //Instrucciones } While (condición); Ejemplo Aplicativo del empleo de estas dos estructuras de control. Imprimir los números del 1 al 10 con un While, y eventualmente imprimir los números del 10 al 1 con la estructura de control Do While. Private Sub Button2_Click (sender As Object, e As EventArgs) Handles Button2.Click txtConteo.Text += 1 While txtConteo.Text >= 11 End While
End Sub
//Con un Do While, se imprime mientras el número sea mayor que 1 Do { System.out.println (“Numero: “+ --numero); }
While (numero>1; } } En el ejemplo anterior, vemos como la ejecución de imprimir los números de uno en uno, hasta llegar al 10, esto nos indica, como While permite que se ejecute el proceso, mientras no rompa la condición, que ser menor que 11, si el 10 es menor que 11, lo ejecutara, como 11 es igual al número pues hasta el numero anterior se permitirá esta actividad. En el primer condicional, vemos como While anuncia su condición antes de ejecutar la orden, mientras si vemos en el segundo ejercicio, la ejecución se ejecuta, la función, y luego analiza si cumple la condición. Diagrama de Flujo Estructura While
Declaramos la Variable Numero = 0 Se da la instrucción Número < 11
Si cumple, imprimirá Número
Si cumple, imprimirá Número + 1 hasta completar el ciclo a 10 Termina ciclo
Diagrama de Flujo Estructura do While
Declaramos la Variable Numero = 10
Imprimirá Número
Si cumple, imprimirá Número -1 Si cumple, imprimirá Número 1 1 hasta completar el ciclo a 1 Termina ciclo
ESTRUCTURAS DE CONDICIONALES IF ELSE SIMPLES Y ANIDADAS
If Simple: Tiene como estructura básica, la generación de una interrogante, donde su respuesta, es simplemente, Verdadero o Falso (Si – No). IF significa SI (condicional) en español. Su funcionamiento es simple. Se evalúa una condición, si es verdadera ejecuta un código, si es falsa, ejecuta otro código (o continúa con la ejecución del programa). Else, significa entonces, por lo que la condición se expone, si no se cumple, entonces (else) se da otra alternativa u opción. Inicio Lectura: Variable i Asignar If (Condición) { Imprimir } Fin If (condición) ejecuta esto si la condición es verdadera else ejecuta esto si la condición es falsa
En el siguiente Diagrama de Flujo podremos ver el claro ejemplo de restricción de edad, Donde pide la edad del individuo, pero si esta es Menor a 18, no tendrá acceso, pero si es igual o mayor a 18, se podrá acceder.
Tomando otro ejemplo de esta condicional If Else simple en visual Basic tenemos lo siguiente. Private Sub Button1_Click (sender As Object, e As EventArgs) Handles Button1.Click If txtEdad.Text >= 18 Then Estatus.Text = "Bienvenido" Else Estatus.Text = "Prohibido el Ingreso a Menores de Edad" End If End Sub
Condición If Else Anidadas En el siguiente ejemplo, vemos como la opción If Else, toma 3 condiciones, donde 1 especifica que si la edad es Igual a 18 (edad = 18) se tendrá como resultado un mensaje de texto que diga "Bienvenido, Usted Acaba de Cumplir 18 Años de Edad"), si esta condición no se cumple tendrá otra condición más que indica que si tiene la edad es mayor a 18 (edad>18) el mensaje será ("Bienvenido, Usted es mayor de 18 edad", y si las dos condiciones anteriores no se cumple entonces el mensaje será "Lo siento, Regrese cuando tenga 18 Años", cumpliendo de esta manera la condición IF ELSE ANINADA. If txtEdad.Text = 18 Then MsgBox ("Bienvenido, Usted Acaba de Cumplir 18 Años de Edad") ElseIf txtEdad.Text > 18 Then MsgBox ("Bienvenido, Usted es mayor de 18 edad") Else MsgBox ("Lo siento, Regrese cuando tenga 18 Años") End If
ESTRUCTURA CICLO FOR Repite un grupo de instrucciones un número de veces especificado. Funcionan mejor cuando conoce de antemano la cantidad de veces que es necesario evaluar una expresión. ... La variable i se conoce como variable de contador ya que su valor cambia con cada iteración del ciclo For. Es decir, se usa para contar las iteraciones del ciclo. Sintaxis For counter [ As datatype ] = start To end [ Step step ] [ statements ] [ Exit For ] [ statements ] Next [ counter ]
Partes Counter Se requiere en la instrucción For. Variable numérica. Variable de control para el bucle. datatype Obligatorio, a menos que counter ya se haya declarado. Tipo de datos de counter. Start Obligatorio. Expresión numérica. Valor inicial de counter. End Obligatorio. Expresión numérica. Valor final de counter.
Step Opcional. Expresión numérica. Cantidad en la que se incrementa counter cada vez que se recorre el bucle. Statements Opcional. Una o más instrucciones entre For y Next que se ejecutan un número especificado de veces. Exit For Opcional. Transfiere el control fuera del bucle For. Next Obligatorio. Termina la definición del bucle For. Diagrama de Flujo
Ejemplo ciclo For Se requiere imprimir una serie de números pares utilizando el ciclo For, especificando que x comienza con un valor de 2, y que tendrá incrementos de 2 en 2 mientras sea menor a 20, el resultado será la impresión de valores del 2 al 18(solo números pares). Codificación Public Class Form1 Private Sub ButtImprimir_Click(sender As Object, e As EventArgs) Handles ButtImprimir.Click 'Declaración de variables Dim i As Integer 'ciclo for que se incrementa de 2 For i = 2 To 20 Step 2 'adiciona a la lista los numeros pares ListPares.Items.Add(i) Next i End Sub End Class
En Ejecución
Ciclo For Aninado Es una función que nos permite repetir una instrucción la cantidad de veces que nosotros le indiquemos. El siguiente ejemplo es un ejemplo genérico de cómo la sintaxis “For … next” se puede anidar. Lo que se va a hacer es utilizar una For…next dentro de un For…next Esto con la finalidad de anidar los datos que vamos a agregar. Vamos a trabajar sobre la siguiente plantilla Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Dim Dim Dim Dim Dim
sueldo As String Titulo As String Suma As Integer Sueldo1 As Double = 0 Sueldo2 As Double = 0 Sueldo3 As Double = 0
Titulo = "¿Cual es Tu Sueldo Diario?" For a = 1 To 7 For i = 1 To 1 sueldo = InputBox(Titulo, "Ingresa Valor Sueldo Por Semana") If sueldo > 0 Then Suma = Suma + 1 MsgBox("Valor Ingresado Correctamente") End If If sueldo > 100 And sueldo > 0 Then Sueldo1 = Sueldo1 + 1 TextBox1.Text = Sueldo1 End If If sueldo < 100 And sueldo > 0 Then Sueldo2 = Sueldo2 + 1 TextBox2.Text = Sueldo2 End If If sueldo = 100 Then Sueldo3 = Sueldo3 + 1 TextBox3.Text = Sueldo3 End If Next i TextBox4.Text = Suma Next a End Sub
Analizando un Diagrama de Flujo un poco más sencillo, tenemos un ejemplo donde el diagrama genera un conteo de uno en uno por un ciclo de 7 dígitos.
ESTRUCTURA CASE Esta estructura Selecciona, dependiendo del caso, un determinado juego de instrucciones. La sintaxis es la siguiente: Select Case variable Case 1 Instrucción a ejecutar si variable = 1 Case 2 Instrucción a ejecutar si variable = 2 Case 3 Instrucción a ejecutar si variable = 3 Case 4 Instrucción a ejecutar si variable = 4 Case Else (Instrucción en caso de que no se cumpla ningún anterior caso) End Select
Funciona así, primero se evalúa la variable, si esa variable tiene como valor el valor1 realizamos las acciones asociadas al caso 1. Si tiene el Caso 2, ejecutamos las acciones relacionadas con este Caso 3, ejecutamos las acciones relacionadas con este Caso 4. Así con cuantos valores deseemos. Por último tenemos un Case Else para realizar acciones en caso de que no hubiesen sido ninguno de los valores anteriores. Este Case Else es opcional. Este procedimiento resulta mucho más sencillo y rápido que las sentencias If Then Else, cuando el margen de elección es mayor que 2. Ejemplo Crear un programa Lo primero que hace es solicitar un número y luego informa del día de la semana con el que corresponde. Si el número no es del 1 al 7 informa de ello también. Para realizarlo use: Ingrese a Visual Basic y abra un nuevo proyecto de formularios Windows Forms y del cuadro de herramientas arrastre un Label cambie la propiedad Text: “Digite Número del Día:”), un TextBox, y un Button cambie la propiedad Text: “Calcular”. Con el uso de la estructura de control case, permite evaluar una variable para realizar diferentes acciones que cumplan con la opción evaluada. Esta procedimiento es posible realizarla con un If else anidado pero con la estructura Case resulta un poco más interesante ya que permite probar un número ilimitado de expresiones booleanas donde se toma el valor true o verdadero para ejecutar la instrucción correspondiente. Siendo un proceso más sencillo que los condicionales If else con más de dos opciones. Comportándose como un menú de opciones Sintaxis: Select Case (variable) Case 1 Ejecuta instrucciones si la variable es igual a 1 Case 2 Ejecuta instrucciones si la variable es igual a 2 Case 3 Ejecuta instrucciones si la variable es igual a 3 Case 4 Ejecuta instrucciones si la variable es igual a 4 End Select
DIAGRAMA DE FLUJO
Ejemplo: Realizar un programa que al ingresar un número entre 1 y 12 indique a que mes del año corresponde. Solución: Usaremos una aplicación de Windows Forms
Usaremos el código dentro del button1 (Consultar) Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim mes As Integer: mes Select Case mes Case 1 MsgBox ("Numero Case 2 MsgBox ("Numero Case 3 MsgBox ("Numero Case 4 MsgBox ("Numero Case 5 MsgBox ("Numero Case 6 MsgBox ("Numero Case 7
= Val(TextBox1.Text)
1 corresponde al mes de Enero") 2 corresponde al mes de Febrero") 3 corresponde al mes de Marzo") 4 corresponde al mes de Abril") 5 corresponde al mes de Mayo") 6 corresponde al mes de Junio")
MsgBox ("Numero 7 corresponde al mes de Julio") Case 8 MsgBox ("Numero 8 corresponde al mes de Agosto") Case 9 MsgBox ("Numero 9 corresponde al mes de Septiembre") Case 10 MsgBox ("Numero 10 corresponde al mes de Octubre") Case 11 MsgBox ("Numero 11 corresponde al mes de Noviembre") Case 12 MsgBox ("Dato fuera de rango, ingrese un número entre 1 y 12") TextBox1.Focus (): TextBox1.Text = "" End Select End Sub
Bucles For Each Un bucle FOR especial, utilizado para recorrer los elementos de una estructura de datos. La estructura de control For Each sirve para moverse por los elementos de una estructura de datos, como podría ser un vector, y realizar acciones para cada una de los elementos. Esta construcción es similar al ciclo For, con la diferencia de que la variable que controla la repetición del bucle no toma valores entre un mínimo y un máximo, sino a partir de los elementos de un array (o de una colección de objetos). Su estructura es la siguiente: For Each variable In grupo [Sentencias] Next
Ejemplo en donde elegimos una Cantidad numérica, aparece en listado y finalmente se va realizando la suma y sale el total. Para realizarlo use: Ingrese a Visual Basic y abra un nuevo proyecto de formularios Windows Forms y del cuadro de herramientas arrastre tres Label cambie la propiedad Text: “Cantidad, Detalles y Total:”), un ListBox en donde aparecerá el listado de lo que se va eligiendo, y un TextBox para el total.
Damos doble clic en el ComboBox e ingresamos el siguiente código debajo del evento SelectedIndexChanged para agregar los valores.
Debajo Para cargar los valores regresamos a Diseño y damos doble click en la parte superior del formulario para que se genere el evento Load, ingresamos “agregar ()” y se carguen los datos al programa
Ingresamos código de For Each Sub sumar() Dim total As Integer For Each elementos In ListBox1.Items total += elementos.ToString Next TextBox1.Text = total End Sub
Finalmente código en el evento SelectedIndexChanged ListBox1.Items.Add (ComboBox1.Text) sumar()
Ejecutamos con F5 y probamos
CONCLUSIONES Es importante hacer un reconocimiento básico, intermedio y profundo de las herramientas que nos ofrece la programación, esto con el objeto de poder aplicar las respectivas condiciones que le queramos imponer al sistema, y de esta manera obtener una aplicación con límites y restricciones.
REFERENCIAS BIBLIOGRAFICAS
El rincón de un parásito virtual. (20 de Octubre de 2010). Obtenido de Rincón de aprendizaje autodidacta sobre temas relacionados con la informática: https://parasitovirtual.wordpress.com/2010/10/20/estructura-de-control-while-y-dowhile-en-java/ LLORENTE, I. J. (2017). Visual Basic Basico. Colombia: UNAD. MICROSOFT. (2017). Descargas de Visual Studio. Obtenido de https://www.visualstudio.com/es/downloads/ portuguez, d. (16 de Mayo de 2015). YouTobe. Obtenido de operaciones aritmeticas en visual basic: https://www.youtube.com/watch?v=Z4zBK1HgOQE
