MANUAL DE USUARIO
Visual Basic .NET Visual Basic .NET (VB .NET) Es un lenguaje de programación orientado or ientado a objetos, que se puede considerar una evolución de Visual Basic implementada sobre el framework .NET.
INTRODUCCION Este manual proporciona los detalles y requerimientos para el uso del programa. La aplicación fue diseñada para la creación precisa de herramientas de cálculo en determinadas áreas. Esté facilita el manejo de sus funciones, permitiendo el dominio de todas sus características, mostrando los pasos que debes seguir en las tareas que tengas que realizar para en el uso de este programa. Contiene el uso de los principales controles y herramientas que brinda visual basic.net 2013 además de las estructuras secuenciales, estructuras de decisión, estructuras repetitivas y otros. El documento proporciona los detalles y requerimientos para el uso correcto del programa, esto con la finalidad de brindar al usuario una herramienta que asegure el uso correcto del software.
1. OBJETIVOS Se pretende mostrar de una manera clara y concisa el funcionamiento del programa “Aplicaciones en visual basic.net 2013”.
2. ESTRUCTURA ORGANIZACIONAL DE APLICACIONES APLICACIONES a) Estructuras Secuenciales
Área del cuadrado
Boleta de venta
Área de esfera
Sueldo neto
b) Estructuras de Decisión 1. If …End If a. Importe bruto b. Edad de una persona 2. If…Else…EndIf a. Divisibilidad de dos números b. Pago por grupo grupo de personas personas 3. If......ElseIf……Else…EndIf a. Lectura de dos números b. Evaluación de un numero 4. Select Case……EndSelect a. Consumo en restaurant b. Días de la semana c) Controles I 1. RadioButton a. Matricula de cursos b. Venta de artículos 2. CheckBox a. Librería b. Sueldo de un empleado d) Estructuras Repetitivas 1. Do while……Loop
a. Serie de: 2, 6, 10, 14, 18, 22... b. Serie de: 30, 25, 19, 12, 4, -5, -15 ... c. Serie de: 6, 13, 22, 33, 46 ... 2. While…End While a. Potencia b. Contar de dos en dos c. Suma de números 3. Do……Loop While a. Notas de cinco números b. Serie de: 8,2,-5,-13,-22,-32... c. Cantidad y promedio de alumnos 4. For………Next a. Suma y producto b. Suma de números enteros c. Numero primo e) Controles II 1. ListBox a. Adicionar, eliminar y limpiar elementos elementos b. Notas de estudiante 2. ComboBox a. Sueldo por turno turno y categoría b. Tienda de accesorios f) Funciones 1. Funciones de cadena a. Caracteres en forma individual b. Cadenas c. Convertir texto 2. Funciones numéricas a. Función matemática b. Retorno de un valor c. Función numérica 3. Funciones de fecha y hora a. Fecha de nacimiento b. Calendario
c. Fechas g) Menús Contextuales 1. Promedio de notas 2. Sueldo de un vendedor 3. Área de un triangulo h) Utilitarios 1. Office a. Word b. Excel c. Power Point d. Access 2. Accesorios a. Bloc de notas b. Calculadora c. Paint d. Explorador de Windows 3. INGRESO A LA APLICACIÓN Esta aplicación ha sido desarrollada para trabajar bajo ambiente Windows, por lo cual l os usuarios sistema deben estar familiarizados con este ambiente de trabajo y conocer aspectos básicos como: ·
Uso del Mouse ·
Manejo de ventanas (abrir, cerrar, minimizar, maximizar, moverlas con el mouse, etc.)
Uso de botones ·
Desplazamiento de datos dentro de una ventana, utilizando barras de avance horizontal y vertical
3.1. Iniciar Sistema La pantalla de inicio de la aplicación da la bienvenida al usuario al sistema y ofrece las distintas alternativas y funcionalidades que se definen en los apartados posteriores. El formato de la pantalla de ingreso al sistema se presenta continuación:
3.2. APARTADO SECUENCIALES 1. AREA DEL CUADRADO Si deseamos calcular el área de un cuadrado, nos ubicaremos en el apartado de” secuencias” y daremos clic sobre el para luego seguir con un clic sobre la opción” área del cuadrado” o a través de la combinación de teclas CTRL + A, nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click Try Dim lado As Single Dim area As Single lado = CSng(txtlado.Text) area = lado * lado lblarea.Text = area.ToString Catch ex As Exception MsgBox(ex.Message, 16, "verifique") txtlado.Clear() lblarea.Text = "" End Try End Sub
2. BOLETA DE VENTA Si deseamos calcular el total a pagar de una boleta de venta, nos ubicaremos en el apartado de “secuencias ” y daremos clic sobre el para luego seguir con un clic sobre la opción “” boleta de venta ” o a través de la combinación de teclas CTRL + B, nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Try Dim precio As Integer Dim cantidad As Integer Dim stotal As Single Dim igv As Single Dim itotal As Single If txtprecio.Text <> "" AndAlso IsNumeric(txtprecio.Text) AndAlso (txtprecio.Text) > 0 Then precio = CSng(txtprecio.Text)
Else MsgBox("Debe ingresar el Cantidad correctamente" , 64, "corregir") txtprecio.Clear() txtprecio.Focus() Exit Sub End If precio = CSng(txtprecio.Text) If txtcantidad.Text <> "" AndAlso IsNumeric(txtcantidad.Text) AndAlso (txtcantidad.Text) > 0 Then cantidad = CInt(txtcantidad.Text) Else MsgBox("Debe ingresar el Cantidad correctamente" , 64, "corregir") txtcantidad.Clear() txtcantidad.Focus() Exit Sub End If stotal = precio * cantidad igv = stotal * 0.18 itotal = stotal + igv lblstotal.Text = stotal.ToString lbligv.Text = igv.ToString lblitotal.Text = itotal.ToString Catch ex As Exception MsgBox(ex.Message, 16, "verifique") End Try End Sub
3. AREA DE ESFERA Si deseamos calcular el área de un a esfera, nos ubicaremos en el apartado de” secuencias” y daremos clic sobre el para luego seguir con un clic sobre la opción”
área de una esfera ” o a través de la combinación de teclas CTRL + C, nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click Try Const pi As Double = 3.15159 Dim radio As Single Dim area As Single Dim volumen As Single radio = CSng(txtradio.Text) area = (4 * pi * radio ^ 2) volumen = (4 / 3 * pi * radio ^ 3) lblarea.Text = area.ToString lblvolumen.Text = volumen.ToString Catch ex As Exception MsgBox(ex.Message, 16, "verifique") txtradio.Clear() lblarea.Text = "" lblvolumen.Text = "" End Try End Sub
4. SUELDO NETO Si deseamos calcular el total a pagar de un sueldo neto, nos ubicaremos en el apartado de “secuencias ” y daremos clic sobre el para luego seguir con un clic sobre la opción “” sueldo neto” o a través de la combinación de teclas CTRL + D, nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click Dim v1, v2, v3 As Single Dim sneto As Single
Dim sbase As Single = 250 Dim sventas As Single Dim pv As Single If txtventa1.Text <> "" AndAlso IsNumeric(txtventa1.Text) AndAlso (txtventa1.Text) > 0 Then v1 = CSng(txtventa1.Text) Else MsgBox("Debe ingresar la venta correctamente" , 64, "corregir") txtventa1.Clear() txtventa1.Focus() Exit Sub End If If txtventa2.Text <> "" AndAlso IsNumeric(txtventa2.Text) AndAlso (txtventa2.Text) > 0 Then v2 = CSng(txtventa2.Text) Else MsgBox("Debe ingresar la venta2 correctamente", 64, "corregir") txtventa2.Clear() txtventa2.Focus() Exit Sub End If If txtventa3.Text <> "" AndAlso IsNumeric(txtventa3.Text) AndAlso (txtventa3.Text) > 0 Then v3 = CSng(txtventa3.Text) Else MsgBox("Debe ingresar la venta3 txtventa3.Clear() txtventa3.Focus() Exit Sub End If
correctamente" , 64, "corregir")
sventas = v1 + v2 + v3 pv = sventas * 0.12 sneto = pv + sbase lblsventas.Text = sventas.ToString lblporcentajevendido.Text = pv.ToString lblsneto.Text = sneto.ToString End Sub
3.3. APARTADO ESTRUCTURA DE DECISIÓN 1. IMPORTE BRUTO Si deseamos calcular el total a pagar de un sueldo neto, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sobre la opción “if…end if” seguido de otro clic sobre la opción “importe bruto” o a través de la combinación de teclas ALT + A, nos aparecerá la ventana
donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Dim Descuento, importeneto, ImporteBruto As Single If TxtImporteBruto.Text <> "" AndAlso IsNumeric(TxtImporteBruto.Text) AndAlso TxtImporteBruto.Text > 0 Then ImporteBruto = CSng(TxtImporteBruto.Text) Else MsgBox("DEBE INGRESAR EL PESO BRUTO CORRECTAMENTE" , 64, "CORREGIR") TxtImporteBruto.Clear() TxtImporteBruto.Focus() Exit Sub End If If ImporteBruto Descuento = importeneto End If If ImporteBruto Descuento = importeneto End If
< 20000 Then 0 = ImporteBruto - Descuento > 20000 Then ImporteBruto * 0.15 = ImporteBruto - Descuento
LblDescuento.Text = Descuento.ToString LblNeto.Text = importeneto.ToString End Sub
2. EDAD DE UNA PERSONA Si deseamos determinar si una persona es mayor de edad o no, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sob re la opción “if…end if” seguido de otro clic sobre la opción “edad de una persona ” o a través de la combinación de teclas ALT + B, nos
aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Try Dim edad As Byte If TxtEdad.Text <> "" AndAlso IsNumeric(TxtEdad.Text) AndAlso (TxtEdad.Text) > 0 And TxtEdad.Text <= 120 Then edad = CByte(TxtEdad.Text) Else MsgBox("Debe ingresar la edad correctamente", 64, "corregir") TxtEdad.Clear() TxtEdad.Focus() Exit Sub End If edad = TxtEdad.Text If edad >= 18 Then LblR.Text = "Es mayor de edad" LblR.ForeColor = Color.Blue End If If edad < 18 Then LblR.Text = "Es menor de edad" LblR.ForeColor = Color.Red End If Catch ex As Exception MsgBox(ex.Message, 16, "verifique") TxtEdad.Clear() End Try End Sub
3. DIVISILIDAD DE DOS NUMEROS Si deseamos determinar si dos números son divisibles, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sobre la opción “if…else…end if” seguido de otro clic sobre la opción “divisilidad de dos números”, nos aparecerá la ventana donde ingresaremos los
datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Try Dim num1, num2 As Single Dim Resultado As Single If TxtNum1.Text <> "" AndAlso IsNumeric(TxtNum1.Text) Then num1 = CSng(TxtNum1.Text) Else MsgBox("DEBE INGRESAR EL PRIMER NÚMERO CORRECTAMENTE" , 64, "CORREGIR") TxtNum1.Clear() TxtNum1.Focus() Exit Sub End If If TxtNum2.Text <> "" AndAlso IsNumeric(TxtNum2.Text) Then num2 = CSng(TxtNum2.Text) Else MsgBox("DEBE INGRESAR EL SEGUNDO NUMERO CORRECTAMENTE " , 64, "CORREGIR") TxtNum2.Clear() TxtNum2.Focus() Exit Sub End If Resultado = num1 / num2 If num2 <> 0 Then If num1 Mod num2 = 0 Then LblCondicion.Text = "Si es divisible" LblCondicion.ForeColor = Color.Green Else LblCondicion.Text = "No es divisible" LblCondicion.ForeColor = Color.Red End If Else
LblCondicion.Text = "Indeterminado" LblCondicion.ForeColor = Color.Brown End If LblResultado.Text = Resultado.ToString Catch ex As Exception MsgBox(ex.Message, 16, "verifique") End Try End Sub
4. PAGO POR GRUPO DE PERSONAS Si deseamos calcular el total de pago por grupo de persona, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sob re la opción “if…else…end if” seguido de otro clic sobre la opción “pago por grupo de personas” , nos aparecerá la ventana donde ingresaremos los
datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Dim personas As Integer Dim pagó As Single Dim total As Single If TxtGperson.Text <> "" AndAlso IsNumeric(TxtGperson.Text) AndAlso (TxtGperson.Text) > 0 Then personas = CInt(TxtGperson.Text) Else MsgBox("DEBE INGRESAR EL NÚMERO DE PERSONAS CORRECTAMENTE" , 64, "CORREGIR") TxtGperson.Clear() TxtGperson.Focus() Exit Sub End If If personas < 10 Then pagó = 16.5 total = personas * 16.5 Else pagó = 10.5 total = personas * 10.5 End If
LblPago.Text = pagó.ToString LblTotal.Text = total.ToString End Sub
5. LECTURA DE UN NUMERO Si deseamos determinar la lectura de un número mayor, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sobre la opción “if…elseif…end if” seguido de otro clic sobre la opción “lectura de un número”, nos aparecerá la ventana donde ingresaremos los datos
requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Dim num1, num2 As Single If Txtnum1.Text <> "" AndAlso IsNumeric(Txtnum1.Text) Then num1 = CSng(Txtnum1.Text) Else MsgBox("DEBE INGRESAR EL PRIMER NUMERO CORRECTAMENTE" , 64, "CORREGIR") Txtnum1.Clear() Txtnum1.Focus() Exit Sub End If If txtnum2.Text <> "" AndAlso IsNumeric(txtnum2.Text) Then num2 = CSng(txtnum2.Text) Else MsgBox("DEBE INGRESAR EL SEGUNDO NUMERO CORRECTAMENTE" , 64, "CORREGIR") txtnum2.Clear() txtnum2.Focus() Exit Sub End If If num1 <> num2 Then End If If num1 > num2 Then LblNmayor.Text = num1.ToString
LblNmayor.ForeColor = Color.Blue LblCondición.Text = "EL primer Nº es mayor" LblCondición.ForeColor = Color.Blue ElseIf num2 > num1 Then LblNmayor.Text = num2.ToString LblNmayor.ForeColor = Color.Red LblCondición.Text = "El segundo Nº es mayor" LblCondición.ForeColor = Color.Red Else LblCondición.Text = "Son Iguales" LblCondición.ForeColor = Color.Green End If End Sub
6. EVALUACION DE UN NUMERO Si deseamos determinar la lectura de un número menor, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sobre la opción “if…elseif…end if” seguido de otro clic sobre la opción “evaluación de un número”, nos aparecerá la ventana donde ingresaremos los
datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnEvaluar_Click(sender As Object, e As EventArgs) Handles BtnEvaluar.Click Dim num1, num2, num3 As Integer If Txtnum1.Text <> "" AndAlso IsNumeric(Txtnum1.Text) Then num1 = CInt(Txtnum1.Text) Else MsgBox("DEBE INGRESAR EL PRIMER NÚMERO CORRECTAMENTE" , 64, "CORREGIR") Txtnum1.Clear() Txtnum1.Focus() Exit Sub End If
If txtnum2.Text <> "" AndAlso IsNumeric(txtnum2.Text) Then num2 = CSng(txtnum2.Text) Else MsgBox("DEBE INGRESAR EL SEGUNDO NÚMERO CORRECTAMENTE" , 64, "CORREGIR") txtnum2.Clear() txtnum2.Focus() Exit Sub End If If txtnum3.Text <> "" AndAlso IsNumeric(txtnum3.Text) Then num3 = CSng(txtnum3.Text) Else MsgBox("DEBE INGRESAR EL TERCER NÚMERO CORRECTAMENTE" , 64, "CORREGIR") txtnum3.Clear() txtnum3.Focus() Exit Sub End If If num1 <> num2 And num1 <> num3 And num2 <> num3 Then If num1 < num2 And num3 > num1 Then LblMenor.Text = num1 LblMenor.ForeColor = Color.Blue LblCondicion.Text = "EL PRIMER Nº ES MENOR" LblCondicion.ForeColor = Color.Blue ElseIf num2 < num1 And num3 > num2 Then LblMenor.Text = num2 LblMenor.ForeColor = Color.Red LblCondicion.Text = "EL SEGUNDO Nº ES MENOR" LblCondicion.ForeColor = Color.Red ElseIf num3 < num2 And num1 > num3 Then LblMenor.Text = num3 LblMenor.ForeColor = Color.BlueViolet LblCondicion.Text = "El TERCER Nº ES MENOR" LblCondicion.ForeColor = Color.BlueViolet End If Else MsgBox("Los números ingresados deben ser diferentes" , 16, "CORREGIR") Txtnum1.Clear() txtnum2.Clear() txtnum3.Clear() Txtnum1.Focus() End If End Sub
7. RESTAURANT Si deseamos calcular el total de un restaurant, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sobre la opción “select case…end select” seguido de otro clic sobre la opción “restaurant”, nos aparecerá la ventana donde ingresaremos los datos requeridos
para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Dim consumo, importetotal, descuento As Single If TxtConsumo.Text <> "" AndAlso IsNumeric(TxtConsumo.Text) AndAlso (TxtConsumo.Text) > 0 Then consumo = CInt(TxtConsumo.Text) Else MsgBox("Debe ingresar el consumo correctamente" , 64, "corregir") TxtConsumo.Clear() TxtConsumo.Focus() Exit Sub End If consumo = TxtConsumo.Text Select Case consumo Case Is <= 50 descuento = consumo * 0.1 importetotal = consumo - descuento Case Is > 50 And consumo <= 80 descuento = consumo * 0.15 importetotal = consumo - descuento Case Is > 80 And consumo <= 120 descuento = consumo * 0.2 importetotal = consumo - descuento Case Else descuento = consumo * 0.3 importetotal = consumo - descuento End Select
LblDescuento.Text = descuento.ToString LblImporteTotal.Text = importetotal.ToString End Sub
8. DIAS DE LA SEMANA Si deseamos calcular el total de un restaurant, nos ubicaremos en el apartado de “estructura de decisión” y daremos clic sobre el para luego seguir con un clic sobre la opción “select case…end select” seguido de otro clic sobre la opción “días de la semana”, nos aparecerá la ventana donde ingresaremos los datos requeridos
para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Try Dim num As Byte Dim dia As String num = CByte(TxtN.Text) Select Case (num) Case 1 dia = "Lunes" Case 2 dia = "Martes" Case 3 dia = "Miercoles" Case 4 dia = "Jueves" Case 5 dia = "Viernes" Case 6 dia = "Sábado" Case 7 dia = "Domingo" Case Else dia = "Error intente con un número del 1 al 7"
End Select LblDia.Text = dia.ToString Catch ex As Exception MsgBox(ex.Message, 16, "verifique") TxtN.Clear() LblDia.Text = "" End Try End Sub
3.4. APARTADO CONTROLES I 1. MATRICULA DE CURSOS Si deseamos calcular el sueldo de un vendedor, nos ubicaremos en el apartado de “Menús Contextuales” y daremos clic sobre el para luego seguir con un clic sobre la opción “Sueldo de un Vendedor” seguido de otro clic, nos aparecerá la
ventana donde ingresaremos los datos requeridos para luego obtener el res ultado esperado. Pero en este caso no utilizaremos lo botones “Calcular” y “Nuevo”, los cuales serán reemplazados por el “ Contrales I”, el cual nos mostrará una mejor
interfaz y no será visible en el formulario, este botón contextual se mostrará haciendo clic en cualquier lado del formulario. Además, los botones contextuales deben de ser llamados al menú principal y también deben de ser configurados para que puedan ejecutan y mostrar los resultados y también limpiar las cajas de texto y el label “Resultado”
A continuación, les mostraremos el siguiente código de ejecución, en el cual se podrá visualizar la forma en como ha sido programa este formulario y de cómo hemos ido declarando las variables y que tipo de dato utilizamos, además esta ejecución consta de tres pasos muy importante en la programación y que cada estudiante debe de tener en cuenta: 1. Entrada de Datos 2. Procesamiento de Datos 3. Salida de Datos Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Try Dim pagohp, pagoasp, pagoajax, pagototal As Single If Rbnmañana.Checked = True Then If chkphp.Checked = True Then pagohp = 170 End If If chknet.Checked = True Then pagoasp = 190 End If If chkajax.Checked = True Then pagoajax = 210 End If ElseIf rbntarde.Checked = True Then If chkphp.Checked = True Then pagohp = 160 End If If chkphp.Checked = True Then pagoasp = 185 End If If chkajax.Checked = True Then pagoajax = 200 End If Else If chkphp.Checked = True Then pagohp = 150 End If If chknet.Checked = True Then pagoasp = 175 End If If chkajax.Checked = True Then pagoajax = 195 End If End If pagototal = pagoajax + pagoasp + pagohp lblpagar.Text = pagototal.ToString Catch ex As Exception MsgBox(ex.Message, 16, "verifique") End Try End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Dim r As Byte r = MsgBox("desea salir del programa", 32 + 4) If r = 6 Then
Close() End If End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles BtnLimpiar.Click txtestudiante.Clear() Rbnmañana.Checked = False rbnnoche.Checked = False rbntarde.Checked = False chkajax.Checked = False chknet.Checked = False chkphp.Checked = False lblpagar.Text = "" txtestudiante.Focus() End Sub End Class
2. VENTA DE ARTICULOS Nos ubicaremos en el apartado de “ CONTROLES” y daremos clic sobre el para luego seguir con un clic so bre la opción “VENTA DE ARTICULO” seguido de otro clic, nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado . Pero en este caso no utilizaremos lo botones “Calcular” y “Nuevo”, los cuales serán reemplazados por el “ CONTROLES” el cual nos
mostrará una mejor interfaz y no será visible en el formulario, este botón contextual se mostrará haciendo clic en cualquier lado del formulario. Además, los botones contextuales deben de ser llamados al menú principal y también deben de ser configurados para que puedan ejecutan y mostrar los resultados y mostrar los resultados y también limpiar las cajas de texto y el label “Resultado”.
A continuación, les mostraremos el siguiente código de ejecución, en el cual se podrá visualizar la forma en como ha sido programa este formulario y de cómo hemos ido declarando las variables y que tipo de dato utilizamos, además esta ejecución consta de tres pasos muy importante en la programación y que cada estudiante debe de tener en cuenta: 1. Entrada de Datos 2. Procesamiento de Datos 3. Salida de Datos
Private Sub VentaDeArticúlosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VentaDeArticúlosToolStripMenuItem.Click Dim FrmVentaArticulos As New FrmVentaArticulos FrmVentaArticulos.MdiParent = Me FrmVentaArticulos.Show() End Sub Dim dscto As Single Private Sub BntCalcular_Click(sender As Object, e As EventArgs) Handles BntCalcular.Click Const ValorIGV As Single = 0.18 Dim PU, Cant, OtroDscto, IGV, ST, NP As Single If TxtCliente.Text = "" Then MsgBox("Debe ingresar el nombre del cliente" , MsgBoxStyle.Critical, "Faltan Datos") TxtCliente.Focus() Exit Sub End If If TxtArticulo.Text = "" Then MsgBox("Debe ingresar el nombre del artículo" , MsgBoxStyle.Critical, "Faltan Datos") TxtArticulo.Focus() Exit Sub End If If TxtPrecioUnidad.Text <> "" AndAlso IsNumeric(TxtPrecioUnidad.Text) AndAlso Convert.ToSingle(TxtPrecioUnidad.Text) > 0 Then PU = Convert.ToSingle(TxtPrecioUnidad.Text) Else MsgBox("Debe ingresar el precio de unidad correctamente" , MsgBoxStyle.Critical, "Cuidado") TxtPrecioUnidad.Clear() TxtPrecioUnidad.Focus() Exit Sub End If If TxtCantidad.Text <> "" AndAlso IsNumeric(TxtCantidad.Text) AndAlso Convert.ToSingle(TxtCantidad.Text) > 0 Then Cant = Convert.ToSingle(TxtCantidad.Text) Else MsgBox("Debe ingresar la cantidad correctamente" , MsgBoxStyle.Critical, "Cuidado") TxtCantidad.Clear() TxtCantidad.Focus() Exit Sub End If
ST = PU * Cant If ChkDscto.Checked = True Then If Rbn10.Checked = True Then dscto = ST * 0.1 ElseIf Rbn15.Checked = True Then dscto = ST * 0.15 ElseIf Rbn20.Checked = True Then dscto = ST * 0.2 Else If TxtOtroDscto.Text <> "" AndAlso IsNumeric(TxtOtroDscto.Text) AndAlso Convert.ToSingle(TxtOtroDscto.Text) > 0 Then OtroDscto = Convert.ToSingle(TxtOtroDscto.Text) Else MsgBox("Debe ingresar otro descuento correctamente", MsgBoxStyle.Critical, "Cuidado") TxtOtroDscto.Clear() TxtOtroDscto.Focus() Exit Sub End If dscto = ST * OtroDscto / 100 End If End If IGV = ST * ValorIGV LblSubtotal.Text = ST.ToString LblDescuento.Text = dscto.ToString LblIgv.Text = IGV.ToString NP = ST - dscto + IGV LblNetopagar.Text = NP.ToString End Sub Private Sub RbnOtro_CheckedChanged(sender As Object, e As EventArgs) If RbnOtro.Checked = True Then TxtOtroDscto.Enabled = True Else TxtOtroDscto.Enabled = False End If End Sub
Private Sub FrmVentaArticulos_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub ChkDscto_CheckedChanged(sender As Object, e As EventArgs) Handles ChkDscto.CheckedChanged If ChkDscto.Checked = True Then GbxDscto.Enabled = True Else GbxDscto.Enabled = False dscto = 0 End If End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click TxtCliente.Clear() TxtArticulo.Clear() TxtPrecioUnidad.Clear() TxtCantidad.Clear()
ChkDscto.Checked = False LblSubtotal.Text = String.Empty LblDescuento.Text = String.Empty LblIgv.Text = String.Empty LblNetopagar.Text = String.Empty TxtCliente.Focus() End Sub End Class
3.5 APARTADO CONTROLES II 1. ADICIONAR, ELIMINAR Y LIMPIAR ELEMENTOS Si deseamos calcular el total de adicionar, eliminar y limpiar elementos nos ubicaremos en el apartado de “controles II” y daremos clic sobre el para luego seguir con un clic sob re la opción “listbox” seguido de otro clic sobre la opción “adicionar, eliminar y limpiar elementos”, nos aparecerá la ventana donde ingresaremos los datos
requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BTNADICION_Click(sender As Object, e As EventArgs) Handles BTNADICION.Click If TXTN.Text <> "" Then LBNOMBRE.Items.Add(TXTN.Text) LBLC.Text = LBNOMBRE.Items.Count TXTN.Clear() Else MsgBox("debe ingresar un elemento", 16) End If TXTN.Focus() BTNLIMPIAR.Enabled = True BTNELIMINAR.Enabled = True End Sub Private Sub BTNLIMPIAR_Click(sender As Object, e As EventArgs) Handles BTNLIMPIAR.Click TXTN.Clear() LBNOMBRE.Items.Clear()
LBLC.Text = "" LBLC.Text = LBNOMBRE.Items.Count BTNELIMINAR.Enabled = False BTNLIMPIAR.Enabled = False End Sub Private Sub BTNELIMINAR_Click(sender As Object, e As EventArgs) Handles BTNELIMINAR.Click Dim INDICE As Short INDICE = LBNOMBRE.SelectedIndex If LBNOMBRE.Items.Count = 0 Then MsgBox("LA LISTA ESTA VACIA", 16, "VERIFIQUE") Exit Sub End If If INDICE >= 0 Then LBNOMBRE.Items.RemoveAt(INDICE) LBLC.Text = LBNOMBRE.Items.Count Else MsgBox("DEBE SELECCIONAR UN ELEMENTO", 64) End If If LBNOMBRE.Items.Count = 0 Then BTNLIMPIAR.Enabled = False BTNELIMINAR.Enabled = False End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Dim R As Byte R = MsgBox("DESEA SALIR DEL PROGRAMA", 4 + 64) If R = 6 Then Close() End If End Sub End Class
2. NOTAS DE ESTUDIANTES Si deseamos calcular el promedio de los alumnos nos ubicaremos en el apartado de “controles II” y daremos clic sobre el para luego seguir con un clic sobre la opción “listbox” seguido de otro clic sobre la opción “notas de estudiantes”, nos aparecerá la
ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub btnMostrar_Click(sender As Object, e As EventArgs) Handles btnMostrar.Click Try Dim numero As Integer numero = CInt(txtCantidad.Text) Dim nota1, nota2, nota3, prom, promAlto, promBajo As Double Dim calificacion As String Dim apes, amal, areg, abue, aexc, aveinte As Integer calificacion = "" apes = 0 amal = 0 areg = 0 abue = 0 aexc = 0 aveinte = 0 promAlto = 0 promBajo = 0 For i = 1 To numero nota1 = InputBox("Ingrese la Nota de trabajo del Alumno N° " & i, "Ingresando Datos") nota2 = InputBox("Ingrese la Nota de práctica calificada del Alumno N° " & i, "Ingresando Datos") nota3 = InputBox("Ingrese la Nota 3 del Alumno N° " & i, "Ingresando Datos") prom = ((nota1) + (nota2 * 2) + (nota3 * 3)) / 6 If prom < 5 Then calificacion = "Pésimo" apes = apes + 1 ElseIf prom >= 5 And prom < 10 Then calificacion = "Malo" amal = amal + 1 ElseIf prom >= 10 And prom < 15 Then calificacion = "Regular" areg = areg + 1 ElseIf prom >= 15 And prom < 18 Then calificacion = "Bueno" abue = abue + 1 ElseIf prom >= 18 And prom <= 20 Then calificacion = "Excelente" aexc = aexc + 1 If prom = 20 Then aveinte = aveinte + 1 End If End If If i = 1 Then promAlto = prom promBajo = prom
Else If prom >= promAlto Then promAlto = prom Else promAlto = promAlto End If If prom >= promBajo Then promBajo = promBajo Else promBajo = prom End If End If lsbLista.Items.Add("Notas del Alumno " & i) lsbLista.Items.Add(nota1) lsbLista.Items.Add(nota2) lsbLista.Items.Add(nota3) lsbLista.Items.Add("Promedio del Alumno " & prom) lsbLista.Items.Add("Calificación del Alumno " & calificacion) lsbLista.Items.Add("") Next lblNumBue.Text = abue lblNumExc.Text = aexc lblNumMal.Text = amal lblNumPesi.Text = apes lblNumReg.Text = areg lblVeinte.Text = aveinte lblPromAlto.Text = promAlto lblPromBajo.Text = promBajo Catch ex As Exception MsgBox("Operación Cancelada", MsgBoxStyle.Critical, "Cancelado") End Try End Sub
3. SUELDO POR TURNO Y CATEGORIA Si deseamos calcular el sueldo por turno y categoría nos ubicaremos en el apartado de “controles II” y daremos clic sobre el para luego seguir con un clic sobre la opción “combobox” seguido de otro clic sobre la opción “sueldo por turno y categoría” , nos
aparecerá la ventana donde ingresaremos los datos requeridos para lueg o obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BTNCALCULAR_Click(sender As Object, e As EventArgs) Handles BTNCALCULAR.Click Dim NOMBRE As String Dim TURNO As String Dim CATEGORIA As String Dim SUELDO As Double NOMBRE = TXTNOMBE.Text TURNO = CBOTURNO.Text CATEGORIA = CBOCATEGORIA.Text If (CATEGORIA = "OBRERO") Then If (TURNO = "MAÑANA") Then SUELDO = 600 ElseIf (TURNO = "TARDE") Then SUELDO = 800 ElseIf (TURNO = "NOCHE") Then SUELDO = 1200 End If End If If (CATEGORIA = "EMPLEADO") Then If (TURNO = "MAÑANA") Then SUELDO = 850 ElseIf (TURNO = "TARDE") Then SUELDO = 1000 ElseIf (TURNO = "NOCHE") Then SUELDO = 1500 End If End If TXTSUELDO.Text = SUELDO End Sub
4. TIENDA DE ACCESORIOS Si deseamos calcular la tienda de accesorios nos ubicaremos en el apartado de “controles II” y daremos clic sobre el para luego seguir con un clic sobre la opción “combobox” seguido de otro clic sobre la opción “tienda de accesorios”, nos aparecerá
la ventana donde ingresaremos los datos requeridos para luego obtener el resultado
esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnEvaluar_Click(sender As Object, e As EventArgs) Handles BtnEvaluar.Click Try Dim PRECIOUNITARIO, DESCUENTO, IMPORTEBRUTO, IMPORTEPAGAR As Double Dim CANTIDAD As Integer Dim Marca As String Marca = CStr(Cbomarca.Text) If TxtPrecioUnitario.Text <> "" AndAlso IsNumeric(TxtPrecioUnitario.Text) Then PRECIOUNITARIO = CDbl(TxtPrecioUnitario.Text) Else MsgBox("Debe ingresar el precio unitario correctamente", 64, "CORREGIR") TxtPrecioUnitario.Clear() TxtPrecioUnitario.Focus() Exit Sub End If If TxtCantidad.Text <> "" AndAlso IsNumeric(TxtCantidad.Text) Then CANTIDAD = CInt(TxtCantidad.Text) Else MsgBox("Debe ingresar el precio unitario correctamente", 64, "CORREGIR") TxtCantidad.Clear() TxtCantidad.Focus() Exit Sub End If IMPORTEBRUTO = PRECIOUNITARIO * CANTIDAD If Marca = "3M" Then DESCUENTO = IMPORTEBRUTO * 0.01 IMPORTEPAGAR = IMPORTEBRUTO - DESCUENTO ElseIf Marca = "PRINCO" Then DESCUENTO = IMPORTEBRUTO * 0.015 IMPORTEPAGAR = IMPORTEBRUTO - DESCUENTO ElseIf Marca = "SAMSUNG" Then DESCUENTO = IMPORTEBRUTO * 0.02 IMPORTEPAGAR = IMPORTEBRUTO - DESCUENTO ElseIf Marca = "LG" Then
DESCUENTO = IMPORTEBRUTO * 0.025 IMPORTEPAGAR = IMPORTEBRUTO - DESCUENTO ElseIf Marca = "SONY" Then DESCUENTO = IMPORTEBRUTO * 0.03 IMPORTEPAGAR = IMPORTEBRUTO - DESCUENTO Else DESCUENTO = 0 IMPORTEPAGAR = IMPORTEBRUTO - DESCUENTO End If LblDescuento.Text = DESCUENTO LblImporteBruto.Text = IMPORTEBRUTO LblImportepagar.Text = IMPORTEPAGAR Catch ex As Exception MsgBox(ex.Message, 16, "verifique") End Try End Sub
3.6 APARTADO FUNCIONES 1. CARACTERES EN FORMA INDIVIDUAL Si deseamos componer un carácter en forma individual nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sobre la opción “funciones de cadena” seguido de otro clic sobre la opción “caracteres en
forma individual”, nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnMostrar_Click(sender As Object, e As EventArgs) Handles BtnMostrar.Click Try Dim Palabra As String Palabra = TxtP.Text LbCaracter.Items.Clear() For i As Byte = 1 To Len(Palabra) LbCaracter.Items.Add(Mid(Palabra, i, 1)) Next
Catch ex As Exception MsgBox(ex.Message, 16, "verifique") End Try End Sub Private Sub TxtP_TextChanged(sender As Object, e As EventArgs) Handles TxtP.TextChanged If TxtP.TextLength > 0 Then BtnMostrar.Enabled = True Else BtnMostrar.Enabled = False End If End Sub
2. CADENA Si deseamos componer una cadena nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sob re la opción “funciones de cadena” seguido de otro clic sobre la opción “ cadena”, nos aparecerá la ventana
donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnProcesar_Click(sender As Object, e As EventArgs) Handles BtnProcesar.Click Dim cadena As String cadena = CStr(TxtCadena.Text) LblLongitud.Text = cadena.Length LblPrimer.Text = cadena.Substring(0, 1) LblUltimo.Text = cadena.Substring(cadena.Length - 1, 1) Lbl2.Text = cadena.Substring(1, 5) LblBorrar.Text = cadena.Replace( " ", "") End Sub
3. CONVERTIR TEXTO Si deseamos determinar de convertir el texto nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sobre la opción “funciones de cadena” seguido de otro clic sobre la opción “convertir texto” , nos
aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub LblMayúsculas_Click(sender As Object, e As EventArgs) Handles LblMayúsculas.Click TxtTexto.Text = UCase(TxtTexto.Text) End Sub Private Sub LblMinúsculas_Click(sender As Object, e As EventArgs) Handles LblMinúsculas.Click TxtTexto.Text = LCase(TxtTexto.Text) End Sub Private Sub LblInvertir_Click(sender As Object, e As EventArgs) Handles LblInvertir.Click Dim CADENA As String CADENA = CStr(TxtTexto.Text) LblPalabra.Text = StrReverse(TxtTexto.Text) End Sub Private Sub LblQuitarEspacio_Click(sender As Object, e As EventArgs) Handles LblQuitarEspacio.Click Dim CADENA As String CADENA = CStr(TxtTexto.Text) TxtTexto.Text = CADENA.Replace(" ", "") End Sub Private Sub LblContarLetras_Click(sender As Object, e As EventArgs) Handles LblContarLetras.Click LblCantLetras.Text = Len(TxtTexto.Text) End Sub
4. FUNCION MATEMATICA Si deseamos determinar una función matemática nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sobre la opción “funciones de numéricas” seguido de otro clic sobre la opción “función matemática”,
nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Dim x, y, F As Double If TxtValorx.Text <> "" AndAlso IsNumeric(TxtValorx.Text) AndAlso Convert.ToDouble(TxtValorx.Text) <> 3 Then x = Convert.ToDouble(TxtValorx.Text) Else MsgBox("Debe ingresar el primer valor correctamente" , MsgBoxStyle.Critical, "Cuidado") TxtValorx.Clear() TxtValorx.Focus() Exit Sub End If If TxtValory.Text <> "" AndAlso IsNumeric(TxtValory.Text) AndAlso Convert.ToDouble(TxtValory.Text) <> 4 Then y = Convert.ToDouble(TxtValory.Text) Else MsgBox("Debe ingresar el segundo valor correctamente" , MsgBoxStyle.Critical, "Cuidado") TxtValory.Clear() TxtValory.Focus() Exit Sub End If F = (Math.Pow(x, 2) + 3 * x * y + Math.Pow(y, 2)) / ((x - 3) * (y - 4)) LblF.Text = F.ToString("#0.00") End Sub
5. RETORNO DE UN VALOR Si deseamos determinar el retorno de un valor nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sobre la opción “funciones de numéricas” seguido de otro clic sobre la opción “retorno de un valor” ,
nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnProcesar_Click(sender As Object, e As EventArgs) Handles BtnProcesar.Click Dim numero As Single numero = CInt(TxtN.Text) LblH.Text = Microsoft.VisualBasic.Hex(numero) LblOctal.Text = Microsoft.VisualBasic.Oct(numero) LblAbsoluto.Text = Math.Abs(numero) LblR.Text = Math.Round(numero) LblRaiz.Text = Math.Sqrt(numero) End Sub End Class
6. FUNCIÓN INT Si deseamos determinar una función int nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sob re la opción “funciones de numéricas” seguido de otro clic sobre la opción “función int” , nos aparecerá la ventana
donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BTNMOSTRAR_Click(sender As Object, e As EventArgs) Handles BTNMOSTRAR.Click Dim NUM As Double NUM = -28.5 LBLRESULTADO.Text = Microsoft.VisualBasic.Int(NUM) End Sub End Class
7. FECHA DE NACIMIENTO Si deseamos determinar la fecha de naciento nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sobre la opción “funciones de fecha y hora” seguido de otro clic sobre la opción “fecha de nacimiento”,
nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BtnCalcular_Click(sender As Object, e As EventArgs) Handles BtnCalcular.Click Dim FechaNac As Date If TxtFechaNac.Text <> "" AndAlso IsDate(TxtFechaNac.Text) = True AndAlso Date.Parse(TxtFechaNac.Text) < Today Then FechaNac = Date.Parse(TxtFechaNac.Text) Else MessageBox.Show("Debe ingresar la fecha de nacimiento correctamente" , "Cuidado", MessageBoxButtons.OK, MessageBoxIcon.Error) TxtFechaNac.Clear() LblEdad.Text = "" TxtFechaNac.Focus() Exit Sub End If LblEdad.TextAlign = ContentAlignment.MiddleCenter
LblEdad.Font = New Font("Arial", 13, FontStyle.Bold) LblEdad.ForeColor = Color.DarkBlue LblEdad.Text = Int(DateDiff(DateInterval.Day, FechaNac, Today) / 365.25) End Sub
8. FECHA ACTUAL Si deseamos determinar la fecha actual nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sob re la opción “funciones de fecha y hora” seguido de otro clic sobre la opción “fecha actual” , nos aparecerá la
ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BRMMOSTRAR_Click(sender As Object, e As EventArgs) Handles BRMMOSTRAR.Click Dim TODAY As Double TODAY = TODAY Lblresultado.Text = DateAndTime.Today End Sub End Class
9. HORA ACTUAL Si deseamos determinar la hora actual nos ubicaremos en el apartado de “funciones” y daremos clic sobre el para luego seguir con un clic sob re la opción “funciones de fecha y hora” seguido de otro clic sobre la opción “hora actual” , nos aparecerá la
ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Para mayor detalle del funcionamiento de este aplicativo a continuación se muestra el código fuente y la apariencia de la interfaz.
Private Sub BTNMOSTRAR_Click(sender As Object, e As EventArgs) Handles BTNMOSTRAR.Click Dim TIME As Date TIME = TIME LBLRESULTADO.Text = DateAndTime.TimeString End Sub End Class
3.7 APARTADO MENUS CONTEXTUALES 1. PROMEDIO DE NOTAS Si deseamos calcular el promedio total de las notas de un estudiante, nos ubicaremos en el apartado de “Menús Contextuales” y daremos clic sobre el para luego seguir con un clic sobre la opción “Promedio de Notas” seguido de otro clic,
nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Pero en este caso no utilizaremos lo botones “Calcular”
y
“Nuevo”,
los
cuales
serán
reemplazados
por
el
“ContextualMenuStrip”, el cual nos mostrará una mejor interfaz y no será visible
en el formulario, este botón contextual se mostrará haciendo clic en cualquier lado del formulario. Además, los botones contextuales deben de ser llamados al menú principal y también deben de ser configurados para que puedan ejecutan y mostrar los resultados y también limpiar las cajas de texto y el label “Resultado ”
Private Sub Btncalcular_Click(sender As Object, e As EventArgs) Handles Btncalcular.Click
Entrada de Datos Dim nota1, nota2, nota3, resultado As Single nota1 = txtnota1.Text nota2 = txtnota2.Text nota3 = txtnota3.Text
Procesamiento de Datos resultado = (nota1 + nota2 + nota3) / 3
Salida de Datos lblresul.Text = resultado.ToString
Private Sub Btnlimpiar_Click(sender As Object, e As EventArgs) Handles Btnlimpiar.Click TxtA.Clear() txtnota1.Clear() txtnota2.Clear() txtnota3.Clear() lblresul.Text = "" TxtA.Focus() End Sub
2. SUELDO DE UN VENDEDOR Si deseamos calcular el sueldo de un vendedor, nos ubicaremos en el apartado de “Menús Contextuales” y daremos clic sobre el para luego seguir con un clic sobre la opción “Sueldo de un Vendedor” seguido de otro clic, nos aparecerá la ventana donde ingresaremos los datos requeridos para luego obtener el resultado esperado. Pero en este caso n o utilizaremos lo botones “Calcular” y “Nuevo”, los cuales serán reemplazados por el “ ContextualMenuStrip”, el cual nos mostrará
una mejor interfaz y no será visible en el formulario, este botón contextual se mostrará haciendo clic en cualquier lado del formulario. Además, los botones contextuales deben de ser llamados al menú principal y también deben de ser configurados para que puedan ejecutan y mostrar los resultados y también limpiar las cajas de texto y el label “Resultado”
Private Sub CalcularToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CalcularToolStripMenuItem.Click Declaración de Variables Dim v1, v2, v3 As Single Dim sneto As Single Dim sbase As Single = 250 Dim sventas As Single Dim pv As Single 'Entrada de Datos v1 = CSng(txtventa1.Text) v2 = CSng(txtventa2.Text) v3 = CSng(txtventa3.Text) 'Procesamos sventas = v1 + v2 + v3 pv = sventas * 0.12 sneto = pv + sbase 'Salida de Informacion lblsventas.Text = sventas.ToString lblporcentajevendido.Text = pv.ToString lblsneto.Text = sneto.ToString End Sub
Private Sub NuevoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NuevoToolStripMenuItem.Click txtventa1.Clear() txtventa2.Clear() txtventa3.Clear() lblsventas.Text = " " lblporcentajevendido.Text = " " lblsneto.Text = " " txtventa1.Focus() End Sub End Class
3. AREA DE UN TRIANGULO
A continuación, les mostraremos el siguiente código de ejecución, en el cual se podrá visualizar la forma en como ha sido programa este formulario y de cómo hemos ido declarando las variables y que tipo de dato utilizamos, además esta ejecución consta de tres pasos muy importante en la programación y que cada estudiante debe de tener en cuenta: 1. Entrada de Datos 2. Procesamiento de Datos 3. Salida de Datos
Private Sub CalcularToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CalcularToolStripMenuItem.Click 'DECLARACIÓN DE VARIABLES Dim lado1, lado2, lado3, semiperimetro, area As Single 'ENTRADA DE DATOS lado1 = CSng(TxtLado1.Text) lado2 = CSng(TxtLado2.Text) lado3 = CSng(TxtLado3.Text) 'PROCESAMIENTO DE DATOS semiperimetro = (lado1 + lado2 + lado3) / 2 area = semiperimetro * (semiperimetro - lado1) * (semiperimetro - lado2) * (semiperimetro - lado3) ^ (1 / 2) 'SALIDA DE DATOS LBLSemiperimetro.Text = semiperimetro.ToString LblArea.Text = area.ToString End Sub
Private Sub NuevoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NuevoToolStripMenuItem.Click TxtLado1.Clear() TxtLado2.Clear() TxtLado3.Clear()
LBLSemiperimetro.Text = "" LblArea.Text = "" TxtLado1.Focus() End Sub End Class
3.8 APARTADO UTILITARIO
1. WORD Nos ubicaremos en el apartado de “Utilitarios” y daremos clic sobre el para luego seguir con un clic sob re la opción “Office” seguido de otro clic, nos aparecerá la ventana. Aquí veremos cómo nosotros haremos el uso de llamar el Word desde mi formulario principal trabajado en el programa Visual Basic.Net 2013, y para ellos tendremos que configurarlo en el formulario principal empleando el código el cual es el siguiente:
Private Sub WordToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WordToolStripMenuItem.Click Process.Start("WINWORD.EXE") End Sub
2. EXCEL Nos ubicaremos en el apartado de “Utilitarios” y daremos clic sobre el para luego seguir con un clic sob re la opción “Office” seguido de otro clic, nos aparecerá la ventana. Aquí veremos cómo nosotros haremos el uso de llamar el Excel desde mi formulario principal trabajado en el programa Visual Basic.Net 2013, y para ellos tendremos que configurarlo en el formulario principal empleando el código el cual es el siguiente:
Private Sub ExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExcelToolStripMenuItem.Click Process.Start("EXCEL.EXE") End Sub
3. POWER POINT Nos ubicaremos en el apartado de “Utilitarios” y daremos clic sobre el para luego seguir con un clic sob re la opción “Office” seguido de otro clic, nos aparecerá la ventana. Aquí veremos cómo nosotros haremos el uso de llamar el Power Point desde mi formulario principal trabajado en el programa Visual Basic.Net 2013, y para ellos tendremos que configurarlo en el formulario principal empleando el código el cual es el siguiente:
Private Sub PowerPointToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PowerPointToolStripMenuItem.Click Process.Start("POWERPNT.EXE") End Sub
4. ACCESS Nos ubicaremos en el apartado de “Utilitarios” y daremos clic sobre el para luego seguir con un clic sob re la opción “Office” seguido de otro clic, nos aparecerá la ventana. Aquí veremos cómo nosotros haremos el uso de llamar el Access desde mi formulario principal trabajado en el programa Visual Basic.Net 2013, y para ellos tendremos que configurarlo en el formulario principal empleando el código el cual es el siguiente:
Private Sub AccessToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AccessToolStripMenuItem.Click Process.Start("MSACCESS.EXE") End Sub
3.9 ACCESORIOS 1. BLOC DE NOTAS Nos ubicaremos en el apartado de “Utilitarios” y daremos clic sobre el para luego seguir con un clic sob re la opción “Accesorios” seguido de otro clic, nos aparecerá la ventana. Aquí veremos cómo nosotros haremos el uso de llamar el Bloc de Notas desde mi formulario principal trabajado en el programa Visual Basic.Net 2013, y para ellos tendremos que configurarlo en el formulario principal empleando el código el cual es el siguiente:
Private Sub BlocDeNotasToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BlocDeNotasToolStripMenuItem.Click Process.Start("NOTEPAD.EXE") End Sub
2. CALCULADORA Nos ubicaremos en el apartado de “Utilitarios” y daremos clic sobre el para luego seguir con un clic sob re la opción “Accesorios” seguido de otro clic, nos aparecerá la ventana. Aquí veremos cómo nosotros haremos el uso de llamar la Calculadora desde mi formulario principal trabajado en el programa Visual Basic.Net 2013, y para ellos tendremos que configurarlo en el formulario principal empleando el código el cual es el siguiente:
Private Sub CalculadoraToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CalculadoraToolStripMenuItem.Click Process.Start("CALC.EXE") End Sub
3. PAINT Nos ubicaremos en el apartado de “Utilitarios” y daremos clic sobre el para luego seguir con un clic sob re la opción “Accesorios” seguido de otro clic, nos aparecerá la ventana. Aquí veremos cómo nosotros haremos el uso de llamar el Paint desde mi formulario principal trabajado en el programa Visual Basic.Net 2013, y para ellos tendremos que configurarlo en el formulario principal empleando el código el cual es el siguiente: