El semestre ha concluido y los resultados obtenidos son proporcionales al esfuerzo y dedicación realizados durante el transcurso del mismo.
Enhorabuena para todos y cada uno de ustedes.
Sigan siempre adelante..!
Un cordial saludo y un sincero reconocimiento.
Atte.
Luis E. Medina M.
Finalmente los instrumentos de evaluación.
Se requiere bajarlos e imprimirlos de manera individual.
La revisión es el martes 10:00 hrs. puntuales.
A cerrar con ganas. you can do it.
Creditos: lemm
Tomando de referencia el ejercicio P3E6, agregar un botón comando con Caption: Imprimir.
El resultado será un reporte impreso con los registros que en ese momento se estén visualizando. Se debe considerar:
ENCABEZADO:
CONTENIDO:
PIE:
Este reporte debe estar conformado por al menos el total de registros que cubra dos paginas.
Sigan adelante..!
Créditos: lemm
De acuerdo al material revisado en clase (apunte impreso), realiza el primer ejercicio de impresión el cual consiste en colocar información en un cuadro de texto, definir formato de tipo y tamaño, algunas figuras geométricas, una imagen, numero de pagina.
No olvides identificar propiedades principales como : EndDoc, NewPage, KillDoc.
Créditos: lemm
Esta practica consiste en realizar algunas modificaciones sustanciales al formulario de Visualizar Clientes, de tal manera que cuando lo ejecutes la apariencia inicial pueda ser la siguiente:
El objetivo principal es filtrar los registros de acuerdo a alguno de los campos de apellidos, ciudad o estado (uno a la vez).
Por lo tanto si quiero filtrar por apellidos y solo aquellos cuya primera letra sea la M, el resultado podría ser:
Lo mismo sucedería para el caso de ciudad y/o estado.
El código a colocar en el txtApellidos sería:
Private Sub txtApellidos_Change()
Dim strSQL As String
'armando sentencia SQL
strSQL = "SELECT * FROM clientes WHERE apellidos LIKE'" & _
txtApellidos.Text & "%' ORDER BY apellidos;"
adoClientes.RecordSource = strSQL
adoClientes.Refresh
End Sub
Para el txtCiudad y el txtEstado sería lo mismo, solo que en la cadena strSQL se deberá hacer referencia al txt correspondiente.
Los cuadros de texto en la parte inferior se encuentran bloqueados y se colocan con la intencion de visualizar mejor los datos correspondientes a cada cliente.
Consideraciones generales:
Aplicar nombres representativos a todas las variables y controles.
No olvidar nunca el uso de prefijos.
Cuidar el diseño (alineación, distribución, colores, tamaño).
Las imágenes mostradas son solo guía.
Cualquier duda no dudes en consultarla en clase.
Sigan adelante, ya es el cierre..!
Créditos: lemm
Tomando de referencia lo realizado con el campo de presentación de el formulario de productos, ahora realizarás lo mismo pero para el campo estado en el formulario de clientes.
Lo anterior implica tanto creación como modificación de tablas y formularios.
Parte UNO: trabajar con el formulario de clientes agregando el DataCombo.
Parte DOS: trabajar con el formulario de estados.
Consideraciones generales:
Aplicar nombres representativos a todas las variables y controles.
No olvidar nunca el uso de prefijos.
En los botones comando se deberán utilizar las propiedades de nombre, picture, style y tooltiptext. NO caption.
Cuidar el diseño (alineación, distribución, colores, tamaño, iconos).
Todos los contenidos en una misma carpeta y un mismo proyecto: parcial_tres.
Las imágenes mostradas son solo guía.
Cualquier duda no dudes en consultarla en clase.
Sigan adelante, ya es el cierre..!
Créditos: lemm
Hasta el momento hemos agregado diferentes presentaciones, pero lo hemos hecho desde Access. El objetivo ahora es hacerlo en VB y desde nuestro programa, para ello agregaremos un botón comando mas al formulario de Productos.
Al hacer clic nos llevará al siguiente formulario en modo Modal:
En el cual incluimos los siguientes controles:
Es importante que al cerrar o descargar dicho formulario (Presentación de Productos) se refresque desde aquí el Control ADO de Presentaciones de la Tabla productos, esto con la finalidad de que se actualice el DataCombo; por lo que que deberás incluir la siguiente línea en el evento UnLoad:
Private Sub Form_Unload(Cancel As Integer)
frmProductos.adoPresentacion.Refresh
End Sub
Consideraciones generales:
Aplicar nombres representativos a todas las variables y controles.
No olvidar nunca el uso de prefijos.
En los botones comando se deberán utilizar las propiedades de nombre, picture, style y tooltiptext. NO caption.
Cuidar el diseño (alineación, distribución, colores, tamaño, iconos).
Todos los contenidos en una misma carpeta y un mismo proyecto: parcial_tres.
Las imágenes mostradas son solo guía.
Cualquier duda no dudes en consultarla en clase.
Sigan adelante, ya es el cierre..!
Créditos: lemm
Este ejercicio se desarrollara en dos partes: la primera corresponde a las actividades con Base de Datos utilizando MS-Access (es la misma base que los ejercicios anteriores), y la segunda corresponde a la realización del formulario con la programación en VB.
Es importante que antes de comenzar a realizarlo te tomes un momento revisando el ejercicio completo, ello te brindará una idea general del producto final.
PRIMERA PARTE:
1. Crear en la BD con el nombre de DEMO, una tabla con el nombre de tblProductos y la siguiente estructura:
| campo | tipo | tamaño |
| cla_pro | texto | 5 |
| descripcion | texto | 50 |
| presentacion_pro | texto | 20 |
| precio_costo | moneda | |
| vigente | si/no |
2. Crear en la BD con el nombre de DEMO, una tabla con el nombre de tblPresentaciones y la siguiente estructura:
| campo | tipo | tamaño |
| presentacion | texto | 20 |
SEGUNDA PARTE:
Lo referente al trabajo con productos, primeramente realizaremos algo similar a lo trabajado con clientes:
Para la visualizacion de los registros de productos el tipo de comando para el origen de los registros es adCmdText y el texto para el SQL seria: SELECT * FROM tblProductos ORDER BY descripcion; (no acentos, espacios, caracteres especiales o eñes en nombres de campos).
Habiendo hecho lo anterior (que prácticamente es lo mismo que se realizo con clientes), vamos ahora a realizar una pequeña modificación a nuestro formulario de productos. Las diferentes presentaciones que se capturaron en la tabla presentaciones (origen de llenado), vamos ahora a visualizarlas en un DataCombo, la que seleccionemos quedará guardada en la tabla de productos (destino).
1. Agregar al mismo formulario de productos otro control ADO generando la cadena de conexión además de establecer como origen de registro adCmdText y sentencia SQL: select * from presentaciones order by presentacion;
2. Agregar a la caja de herramientas el Microsoft Datalist Control 6.0 OLEDB (aparecerán dos iconos).
3. Colocar en el formulario un DataCombo con las siguientes propiedades:
Consideraciones generales:
Aplicar nombres representativos a todas las variables y controles.
No olvidar nunca el uso de prefijos.
En los botones comando se deberán utilizar las propiedades de nombre, picture, style y tooltiptext. NO caption.
Cuidar el diseño (alineación, distribución, colores, tamaño, iconos).
Todos los contenidos en una misma carpeta y un mismo proyecto: parcial_tres.
Las imágenes mostradas son solo guía, hay que superarlo.
Estos últimos ejercicios se deben estar realizando de manera individual, cualquier duda no dudes en consultarla en clase.
Sigan adelante, si se puede..!
Créditos: lemm
Este ejercicio se desarrollara en dos partes: la primera corresponde a las actividades con BD utilizando MS-Access, y la segunda corresponde a la programación en VB.
Es importante que antes de comenzar a realizarlo te tomes un momento revisando el ejercicio completo, ello te brindará una idea general del producto final.
PRIMERA PARTE:
1. Crear una BD con el nombre de DEMO, dejandola en formato de Access 2000.
2. Crear una tabla con el nombre de tblClientes, la estructura de los campos es la siguiente:
| campo | tipo | tamaño |
| cla_cli | texto | 3 |
| nombre | texto | 30 |
| apellidos | texto | 40 |
| domicilio | texto | 60 |
| codigo_postal | texto | 5 |
| ciudad | texto | 40 |
| fecha_alta | fecha/hora |
3. Crear al menos 10 registros con datos que no necesariamente reales (no basura).
SEGUNDA PARTE:
1. Agregar a la caja de herramientas el: Microsoft ADO Data Control 6.0 (OLEDB).
2. Agregar al formulario un Control ADO y realizar el enlace mediante cadena de conexión; primero selecciona la BD y posterior el origen de los registros mediante adCmdTable.
3. Agregar las etiquetas y cuadros de texto con las propiedades generales correspondientes.
4. Enlazar cada cuadro de texto con el control ADO utilizando las propiedades de DataSource y DataField.
5. Colocar los botones de desplazamiento de registros y su respectivo código, controlando los topes de primero y ultimo registro (BOF - EOF).
6. Toda vez que funcionen eficientemente los botones anteriores, ocultar el control ADO.
7. Colocar el botón de Agregar y su correspondiente código.
8. Colocar el botón de Cancelar y su correspondiente código.
9. Colocar el botón de Guardar y su correspondiente código.
10. Colocar el botón de Eliminar y su correspondiente código, debiendo consultar mediante un MsgBox su eliminación.
11. Colocar el botón de Modificar y su correspondiente código (recuerda que por default los registros están en modo de edición, por lo que el tratamiento se realiza bloqueando o no los diferentes controles).
12. Colocar el botón de Visualizar, el cual tiene como función el mostrar todos los registros contenidos en la tabla clientes; para ello se utiliza otro formulario con las siguientes consideraciones:
Puedes observar que la información aparece ordenada ascendentemente de acuerdo al campo Apellidos.
Consideraciones generales:
Estos últimos ejercicios se deben estar realizando de manera individual, cualquier duda no dudes en consultarla en clase.
Ya es el cierre, redoblando esfuerzos que ya vienen las esperadas vacaciones.
Créditos: lemm
Realizar tu primer ejercicio de Manejo de Base de Datos desde Visual Basic. Como referencia de lo que debes hacer utiliza este video.
Ejercicio que deberá entregarse el día miércoles.
Es de suma importancia que antes de realizar este ejercicio, hayas realizado las dos actividades anteriores.
Créditos: lemm
Toda vez que hayas revisado el video, deberás contestar de manera individual en tu cuaderno las siguientes preguntas:
Tarea que se revisará el martes.
Créditos: lemm
Para iniciar con los contenidos referentes al Manejo de Base de Datos mediante Visual Basic 6.0, primeramente deberás realizar una revisión del apunte que se encuentra aquí.
Toda vez que revisaste el apunte: subrayándolo e identificando los contenidos principales deberás contestar de manera individual en un archivo en Word este cuestionario. Al terminar deberás imprimirlo (incluye hoja de presentación, encabezado o pie de pagina, revisión de ortografía, orden y limpieza) para entregarlo el día lunes (se recogerá).
Jóvenes, ya esta cerca el cierre, por lo que se habrán de redoblar esfuerzos.
Créditos: lemm
Realiza los siguientes ejercicios en un mismo formulario, asignando un botón comando para cada uno.
Es importante que consideres la adición de controles y variables que sean necesarios.
1.- Identifica el posible resultado del siguiente segmento de código:
Randomize
For intR = 1 To 5
grdSerie.Row = intR
For intC = 0 To 3
grdSerie.Col = intC
grdSerie.Text = Int((Rnd * 50) + 1)
Next intC
Next intR
2.- De acuerdo al resultado del ejercicio anterior determina el resultado del siguiente segmento de código. El resultado se visualiza en una etiqueta.
intN = 0
For intR = 1 To 5
grdSerie.Row = intR
For intC = 0 To 3
grdSerie.Col = intC
If grdSerie.Text < intN Then
intN = grdSerie.Text
Label1.Caption = intN
End If
Next intC
Next intR
3. Tomando de referencia los resultados del Primer Ejercicio, genera el código para encontrar el número más grande (el mayor) de todos los que se generaron (visualízalo en una etiqueta).
4. Tomando de referencia los resultados del Primer Ejercicio, genera el código para determinar (poniendo un mensaje en una etiqueta) si existe el numero que el usuario desee (preguntarle al usuario mediante un InputBox).
Deben realizarse de manera individual.
Creditos: lemm
La Escuela FORD No. 8 de Guamuchil, Sinaloa, tiene actualmente 750, alumnos, se espera tener un crecimiento anual del 12%. Elaborar un formulario que calcule y visualice la población estudiantil que se espera tener en el año 2020.
El resultado puede ser el siguiente:
Lo anterior es solo un ejemplo para entender el problema a resolver.
IMPORTANTE:
Para la creación del formulario deberás considerar que el resultado puede variar en función de los datos que se deben capturar como entrada:
Los resultados deberán mostrarse en un Microsoft Hierarchical FlexGrid.
Toma en cuenta validaciones, las buenas practicas de programación y la estética en el diseño.
No omitas consultar en clase tus dudas.
Créditos: lemm
Utilizando instrucciones de repetición crear un formulario para generar la serie X, la cual comienza en 0 y termina en N.
Los datos de entrada serán: valor de la serie y valor último (máximo) que puede tomar la serie.
Ejemplo:
Créditos: lemm
Este ejercicio consiste en el desglose de billetes y monedas de acuerdo a una cantidad introducida por el teclado.
Ejemplo:
Cantidad Introducida: $1,789.00
Desglose de billetes:
Desglose de monedas
*la nominación mas alta que consideraremos será de $500.00
Como una pequeña referencia, puedes considerar el siguiente segmento de código:
intCan = Val(Text1.Text)
’inicialmente intSobra tiene el mismo valor de intCan
intSobra = intCan
'se inicia la validacion por la nominacion mas alta
If intCan >= 500 Then
'determinar la cantidad de billetes de 500
'si intCan igual a 1789, entonces 1789\500 = 3
intBillQuin = intCan \ 500
'determinar el residuo, 1789 mod 500 = 289
'los 289 los usamos para la siguiente comparacion
intSobra = intSobra Mod 500
'visualiza resultados
Label1.Caption = intBillQuin
Label2.Caption = intSobra
End If
Créditos: lemm
Elaborar un formulario el cual solicite como entrada cualquier numero en el rango de 1…999, generando como salida su equivalente con letra.
Ejemplo:
25 – veinticinco
38 – treinta y ocho
225 – doscientos veinticinco
238 – doscientos treinta y ocho
725 – setecientos veinticinco
925 – novecientos veinticinco
999 – novecientos noventa y nueve
Créditos: lemm
De acuerdo a lo visto en clase el objetivo de los siguientes planteamientos es reforzar la comprensión sobre el uso y funcionamiento de las sentencias de repetición.
Para lo anterior deberás realizar con lápiz y en tu cuaderno la resolución de los diferentes planteamientos, plasmando solo el segmento de código que brinde la resolución.
1. Realizar la serie de todos los números nones menores que 500. Debe visualizar dicho resultado en un Listbox.
2. Realizar cualquier serie. Su Valor Inicial =0, Valor Final de la Serie es la que el usuario defina. Usar Listbox
Ejemplo:
Serie a realizar: 3
Valor final de la serie: 300
Resultado de Salida: 0,3,6,9,12,15…294,297,300
3. Realizar la lectura de 10 números cualesquiera. La entrada es de un numero a la vez y puede ser mediante un InputBox. Los números que se vayan leyendo se irán colocando en un ListBox.
4. Visualizar los resultados de salida del siguiente segmento de código:
intN = 0
For intContador = 1 TO 15
intN = intN + intContador
List1.Additem intN
Next intContador
5. Entregar la revisión del apunte de Sentencias de Repetición.
Continuará…
Créditos: lemm
Entra aquí para revisar el apunte sobre sentencias de repetición.
Es importante que subrayes, hagas señalamientos, elabores preguntas, resaltes los ejercicios.
Al final en máximo una cuartilla en archivo de word, letra Arial 11, espacio sencillo, redacta una síntesis que incluya lo siguiente (a manera de guía):
Entregarlo en una hoja impresa.
En tu cuaderno trata de resolver: como imprimir en un listbox 1000 veces tu nombre.
Créditos: lemm
Una disculpa, un poco tarde pero finalmente aquí están los instrumentos de evaluación.
Aquí se encuentra el archivo con los instrumentos de evaluación de la Practica No. 207 a la Practica No. 211 del segundo parcial.
Recuerden imprimirlas y verificar sus ejercicios para que cumplan con todos los puntos, la revisión es el martes 13.
Todas las dudas las podremos revisar el día lunes 12 en clase, para lo cual es importante ya tengan casi concluidas todas sus practicas.
Sigan adelante y nos vemos próximamente.
Créditos: lemm
Crear un formulario teniendo como entrada de datos un número entero cualquiera. Habiendo hecho una evaluación, usted deberá determinar mediante mensaje en una etiqueta el día de la semana con letra al que corresponde.
Deberá además cambiar el fondo de color de la etiqueta tomando de referencia la siguiente tabla:
| Valor de entrada | Constante | Descripción |
| 1 | vbBlack | Negro |
| 2 | vbRed | Rojo |
| 3 | vbGreen | Verde |
| 4 | vbYellow | Amarillo |
| 5 | vbBlue | Azul |
| 6 | vbMagenta | Fucsia |
| 7 | vbCyan | Aguamarina |
Ejemplo: si el usuario dio como entrada el numero 3 usted deberá visualizar como salida MARTES y color de fondo verde. Si el usuario dio como entrada el numero 7 usted deberá visualizar como salida SABADO y color de fondo Aguamarina.
Generales:
Siempre iniciativa, creatividad, análisis y capacidad de resolución.
Recuerden que los ejercicios son equipos de dos integrantes y entre los dos deben realizar los diferentes ejercicios. Trabajo colaborativo y participativo.
Créditos: lemm
Una empresa vende hojas de hielo seco, con las condiciones siguientes de descuento:
Cuando el cliente realiza una compra se solicitan los siguientes datos de entrada:
Crear dicho formulario para que genere como salida:
Generales:
Busca siempre la estética en la presentación, el control del formulario y la optimización del código.
Recuerda utilizar tu sentido común.
Créditos: lemm
Crear un formulario teniendo como entrada de datos un número entero cualquiera el cual representa el tamaño de un ángulo en grados.
Habiendo hecho una evaluación, usted deberá determinar mediante mensaje en una etiqueta cual de los siguientes estatus es el que corresponde al número introducido por el usuario:
Generales:
*Recuerda que el tema que se esta revisando son Instrucciones de Decisión: IF o SELECT CASE.
Consulta en tiempo y forma todas tus dudas..!
Créditos: lemm
Crear un formulario teniendo como entrada de datos un número entero cualquiera ya sea positivo o negativo. Habiendo hecho una evaluación, usted deberá determinar mediante mensaje en una etiqueta cual de los siguientes estatus es el que corresponde al número introducido por el usuario:
*Esta es solo una versión combinada de los ejercicios realizados ya realizados en clase.
Recuerda que todo es un proceso el cual se va ampliando gradualmente por lo que es importante mantener el paso.
Consulta en tiempo y forma todas tus dudas..!
Créditos: lemm
Dentro del mismo proyecto de Parcial_dos
Crear un formulario teniendo como entrada de datos tres números enteros cualesquiera, para determinar cual es el Mayor de dichos números (se asume son diferentes) debiendo informarle al usuario en una etiqueta.
Generales:
*Para la realización de este ejercicio toma de referencia los ya realizados en clase. Recuerda que todo es un proceso el cual se va ampliando gradualmente por lo que el reto principal es mantener el paso.
Planea bien tus tiempos.
Créditos: lemm
Aquí se encuentra el archivo con los instrumentos de evaluación de las primeras seis practicas del segundo parcial.
Recuerden imprimirlas y verificar sus ejercicios para que cumplan con todos los puntos.
De acuerdo a lo visto en clase el objetivo de los siguientes planteamientos es reforzar la comprensión sobre el uso y funcionamiento de la instrucción de decisión IF.
Para lo anterior deberás realizar con lápiz y en una hoja de tu cuaderno (que puedas desprender) la resolución de los diferentes planteamientos, haciendo referencia únicamente el segmento correspondiente al IF.
Ejemplo:
Planteamiento
Teniendo como entrada de datos un numero entero, determinar si es un numero positivo o negativo.
Resolución
IF intNumero > 0 THEN
lblRes.Caption = intNumero & “ es positivo”
ELSE
lblRes.Caption = intNumero & “ es negativo”
END IF
PLANTEAMIENTOS A RESOLVER
1. Teniendo como entrada de datos dos números enteros cualesquiera, determinar cual es el menor de dichos números debiendo informarle al usuario.
2. Teniendo como entrada de datos un numero entero cualquiera, determinar si dicho numero es PAR o IMPAR debiendo informarle al usuario.
Para este ejercicio debes utilizar MOD (residuo de una división entera).
| 25 MOD 2 = 1 | 10 MOD 2 = 0 |
| 17 MOD 2 = 1 | 24 MOD 2 = 0 |
| 57 MOD 2 = 1 | 98 MOD 2 = 0 |
| 45 MOD 2 = 1 | 36 MOD 2 = 0 |
Recuerda cual fue la conclusión de la tabla anterior.
3. El total a pagar por un cliente depende del monto de su compra, ya que se la aplicara un descuento considerando lo siguiente:
a) La compra es menor a $500.00 el descuento es del 3% (0.03)
b) La compra es mayor a $500.00 el descuento es del 7% (0.07)
Realice la validación y operaciones correspondientes, que determinan finalmente cuanto debe pagar el cliente.
4. Teniendo como entrada de datos un numero entero cualquiera entre 1 y 12, determinar el nombre del mes al que corresponde debiendo informarle al usuario.
Ejemplo: si el usuario dio como entrada el numero 3 usted deberá visualizar como salida MARZO. Si el usuario dio como entrada el numero 11 usted deberá visualizar como salida NOVIEMBRE.
Importante: la validación para que solo acepte números y estos sean en el rango 1..12 será parte complementaria en otro ejercicio.
5. Teniendo como entrada el valor de X calcular el de Y de acuerdo con las siguientes condiciones:
Es importante que realices estos ejercicios los cuales contribuyen a complementar y reforzar tus bases de programación.
.: – :.
A aprender a programar se aprende programando.
Es importante utilices el sentido común, el menos común de los sentidos.
Date tiempo para realizarlos: analiza, deduce, plantea y replantea si es necesario..!
Esto apenas comienza, redobla esfuerzos si es necesario… estamos trabajando en desarrollar lógica de programación, esencial para todos los futuros ingenieros.
Si se puede..!
.: – :.
Créditos: lemm
Puedes encontrar los apuntes de estructuras de decisión en esta dirección.
Toda vez que revisaste el apunte contesta para entregar impreso las siguientes preguntas:
Créditos: lemm
Crear un formulario el cual lea una cantidad en dólares y el tipo de cambio (costo de un dólar en pesos).
Calcular y visualizar la cantidad equivalente en pesos mexicanos (deberá visualizar con formato tipo moneda).
Importante: el tipo de cambio deberá ser el primer dato que se capture en un InputBox al momento de arrancar el formulario (Form Load), dicho InputBox deberá validar la entrada de solo números.
Apóyate en la información de este link
Créditos: lemm
Crear un formulario el cual reciba como dato de entrada una cantidad de horas, a continuación usted deberá realizar los cálculos correspondientes para visualizar el equivalente en: minutos, segundos y días.
Importante: el cuadro de texto que acepta la cantidad en horas debe aceptar máximo cuatro caracteres y estos deben ser números por lo que deberá realizar dicha validación.
Para ello consulta las siguientes direcciones y elije: link, link2, link3, link4.
Créditos: lemm
Para este ejercicio se deberán mostrar inicialmente las siguientes opciones:
Derivado de lo anterior realizaras lo correspondiente para la opcion que elijar el usuario.
OPCION UNO:
El volumen de un cilindro se calcula multiplicando la constante PI (PI=3.1415926536) por el cuadrado del radio de la base (r) por la altura (h).
V = ¶r²h
Leer el radio de la base y la altura de un cilindro, para calcular y visualizar el volumen.
OPCION DOS:
Leer el radio de una esfera para calcular el volumen:
V = (4¶r³)/3
OPCION TRES:
Realizar los cálculos para el área de una esfera:
área = 4¶r²
IMPORTANTE:
Según la opción que elija el usuario serán los datos de entrada a solicitar, los cálculos a realizar y los únicos controles a visualizar.
Para ello puedes utilizar un formulario a parte para cada opción, o bien un frame (preferente) el cual contenga lo correspondiente para cada opción el cual se pueda estar ocultando o visualizando.
Antes de iniciar imagina como debería estar operando.
Créditos: lemm
Crear un formulario para realizar el pago de una compra.
Los datos de entrada son: nombre del articulo, cantidad de artículos comprados y precio por cada articulo.
Las operaciones a realizar serían: importe, IVA del 16% y el total a pagar.
Ejemplo:
La siguiente es una imagen de referencia:
Consideraciones:
Donde lblRes es el nombre de la etiqueta, Format es una funcion para dar formato, curTotal es la variable de tipo currency para calcular el total y “currency” es el tipo de formato que queremos que aplique.
Todas tus dudas anótalas para consultarlas en clase.
Créditos: lemm
Calcular el promedio de cuatro calificaciones correspondientes a cuatro materias.
Los datos de entrada son la calificación de cada materia en escala de 0..100.
El resultado de salida es el promedio de las mismas.
IMPORTANTE:
Investiga como pasar de un cuadro de texto a otro, utilizando la tecla de ENTER en lugar de la tecla de tabulación. Toda vez que dispongas del código agrégalo en este formulario a los controles correspondientes.
Puedes seguir este link.
Procedimiento general:
Colocar controles y sus propiedades
En cada procedimiento declarar las variables que se requieran.
Realizar las operaciones aritméticas y/o de inicialización correspondientes.
Mostrar el resultado de salida.
Consideraciones:
Utilizar para cada control aquellas propiedades que redunden en estética, control y buenos principios de la programación.
Asignar nombres a todos los controles y variables valiéndose de los prefijos correspondientes.
NOTA: La imagen es solo una guía de como podría ser el diseño y la distribución, aplica tus habilidades y conocimientos para superarlo.
Para cualquier duda o aclaración consúltalo con oportunidad en clase.
Créditos: lemm
Este es el primer ejercicio correspondiente al segundo parcial, además de corresponder a la aplicación de tus primeros conocimientos y habilidades sobre programar en VB.
Enhorabuena..!
Calcular el área de un triangulo, teniendo como datos de entrada la base y la altura; deberás calcular el área.
Procedimiento general:
Consideraciones:
Para cualquier duda o aclaración consúltalo con oportunidad en clase.
Créditos: lemm
Comenzaremos a revisar lo referente a la segunda parte de Visual Basic, la cual corresponde a la programación.
Lo primero que revisaremos serán los diferentes tipos de datos, variables y constantes, para ello accede a esta dirección para bajar el archivo: revísalo, subráyalo, señala lo que no entiendas, realiza anotaciones; todo ello previo a la clase.
Toda vez que haz revisado el apunte, deberás contestar las siguientes preguntas en un archivo en Word e imprimirlo (individual):
| Tipo de datos | Tamaño de almacenamiento | Prefijo | Ejemplo* |
| Boolean | |||
| Byte | |||
| Currency | |||
| Date | |||
| Integer | |||
| Single | |||
| Double | |||
| String | |||
| Variant | |||
| Integer - global |
*no poner los ejemplos del apunte
Bienvenido al mundo de la programación…!
Puedes acceder a esta dirección para bajar los instrumentos de evaluación de todas las prácticas.
Recuerda que el objetivo de disponer de las listas de cotejo es realizar una revisión previa a todas y cada una de tus practicas para que identifiques lo que se te va a evaluar, realizando así los ajustes necesarios.
Estoy cierto de que han estado realizado su máximo esfuerzo, por lo que esta ultima parte no la dejaran a la desidia.
Les recuerdo que la revisión de evaluación es el lunes, por lo que deberán presentarse con las listas de cotejo impresas y con sus nombres(requisito).
Si crees que puedes o que no puedes… igual tienes razón..!
Este ejercicio consiste en el uso del Editor de Menus.
Se puede seleccionar color de fondo, color de texto, y diferentes mensajes, los diferentes valores al ser seleccionados deben aplicarse a la etiqueta, además de estar palomeando (vbChecked) las opciones elegidas.
En el menú de mensajes la ultima opción aparece inhabilitada, su estado cambia al momento en que se hace clic en Acerca de.
En la opción Acerca de… aparecen en un MsgBox los nombres completos de los autores de dicho formulario.
Creditos: lemm
Se te recomienda antes de hacer cualquier ejercicio leerlo completamente, al estarlo realizando anota todas las preguntas o dudas que te surjan para su aclaración en clase, asi como los elementos nuevos que descubras.
El archivo del formulario de este proyecto se puede llamar frmColores.frm.
En este ejemplo se dispone de tres barras de desplazamiento con las que pueden controlarse las componentes RGB del color del fondo y del color del texto de un control label. Dos botones de opción permiten determinar si los valores de las barras se aplican al fondo o al texto. Cuando se cambia del texto al fondo o viceversa los valores de las barras de desplazamiento (y la posición de los cursores) cambian de modo acorde.
A la derecha de las barras de desplazamiento tres cajas de texto contienen los valores numéricos de los tres colores (entre 0 y 255). A la izquierda tres labels indican los colores de las tres barras.
A continuación se muestra una tabla con los controles y las propiedades utilizadas en el este ejemplo.
Form1
| Name | frmColores |
| Caption | Colores |
Label1
| Name | lblCuadro |
| Caption | Visual Basic |
| Font | MS Sans Serif, Bold, 24 |
Command1
| Name | cmdSalir |
| Caption | Salir |
| Font | MS Sans Serif, Bold, 10 |
Option1*
| Name | optColor |
| Index | 0, 1 |
| Caption | Fondo, Texto |
| Font | MS Sans Serif, Bold, 10 |
*copiar y pegar botón creando matriz de controles, lo único diferente es el index.
hsbScroll1*
| Name | hsbColor |
| Min | 1 |
| Max | 255 |
| SmallChange | 1 |
| LargeChange | 16 |
| Index | 0, 1, 2 |
| Value | 0 |
*copiar y pegar scrollbar creando matriz de controles (son tres).
Text1*
| Name | txtColor |
| Text | 0 |
| Locked | True |
| Index | 0, 1, 2 |
*copiar y pegar textbox creando matriz de controles (son tres).
Label2*
| Name | lblColor |
| Caption | Rojo, Verde, Azul |
| Index | 0,1, 2 |
| Font | MS Sans Serif, 10 |
*copiar y pegar label creando matriz de controles (son tres).
Una característica importante de este ejemplo es que se han utilizado vectores (arrays) de controles. Las tres barras se llaman hsbColor y se diferencian por la propiedad Index, que toma los valores 0, 1 y 2. También las tres cajas de texto, las tres labels y los dos botones de opción son arrays de controles. Para crear un array de controles basta crear el primero de ellos y luego hacer Copy y Paste tantas veces como se desee, respondiendo afirmativamente al cuadro de diálogo que pregunta si desea crear un array.
El procedimiento Sub que contiene el código que gestiona un evento de un array es único para todo el array, y recibe como argumento la propiedad Index. De este modo que se puede saber exactamente en qué control del array se ha producido el evento. Así pues, una ventaja de los arrays de controles es que pueden compartir el código de los eventos y permitir un tratamiento conjunto por medio de bucles for. A continuación se muestra el código correspondiente a los procedimientos que tratan los eventos de este ejemplo.
Option Explicit
Public Brojo, Bverde, Bazul As Integer
Public Frojo, Fverde, Fazul As Integer
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
Brojo = 0
Bverde = 0
Bazul = 0
Frojo = 255
Fverde = 255
Fazul = 255
lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul
lblCuadro.ForeColor = RGB(Frojo, Fverde, Fazul)
End Sub
Private Sub hsbColor_Change(Index As Integer)
Dim i As Integer
If optColor(0).Value = True Then
lblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, _ hsbColor(2).Value)
For i = 0 To 2
txtColor(i).Text = hsbColor(i).Value
Next i
Else
lblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
For i = 0 To 2
txtColor(i).Text = hsbColor(i).Value
Next i
End If
End Sub
Private Sub optColor_Click(Index As Integer)
If Index = 0 Then ‘Se pasa a cambiar el fondo
Frojo = hsbColor(0).Value
Fverde = hsbColor(1).Value
Fazul = hsbColor(2).Value
hsbColor(0).Value = Brojo
hsbColor(1).Value = Bverde
hsbColor(2).Value = Bazul
Else ’Se pasa a cambiar el texto
Brojo = hsbColor(0).Value
Bverde = hsbColor(1).Value
Bazul = hsbColor(2).Value
hsbColor(0).Value = Frojo
hsbColor(1).Value = Fverde
hsbColor(2).Value = Fazul
End If
End Sub
El código de este ejemplo es un poco más complicado que el de los ejemplos anteriores y requiere unas ciertas explicaciones adicionales adelantando cuestiones que se verán posteriormente:
Se te recomienda antes de hacer cualquier ejercicio leerlo completamente, al estarlo realizando anota todas las preguntas o dudas que te surjan para su aclaración en clase, así como los elementos nuevos que descubras.
Recuerda que no se trata de copiar y pegar o de transcribir contenidos, ante todo es descubrir su operatividad y comprobar su funcionalidad.
Se desea elaborar la boleta de pago de los trabajadores de una fábrica. Para ello se cuenta con los siguientes datos de entrada:
Apellidos y nombres del trabajador
Sueldo básico
Horas extras trabajadas
Además, se sabe que los trabajadores laboran en dos turnos: diurno y nocturno. Y que la tarifa por las horas extras diurnas es de 10 pesos y por las horas extras nocturnas es de 15 pesos.
Los descuentos a aplicar son sobre el sueldo básico y se obtienen de la siguiente manera:
dblRenta = dblSueldoBasico * 0.1
dblFonavi = dblSueldoBasico * 0.07
dblISR = dblSueldoBasico * 0.03
Finalmente el sueldo neto del trabajador se calcula mediante las siguientes expresiones:
dblIngresos = dblSueldoBasico + intHorasExtras * dblPagoHoraExtra
dblEgresos = dblRenta + dblFonavi + dblISR
dblSueldoNeto = dblIngresos - dblEgresos
El diseño de la interfaz deberá ser similar a la figura mostrada:
Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:
2 marcos
5 etiquetas
8 cajas de texto
2 botones de opción
3 casillas de verificación
3 botones de comando
Luego, proceda a establecer las propiedades según se indica a continuación:
Form1
| Nombre | frmBoletaDePago |
| BorderStyle | 3-Fixed Dialog |
| Caption | Boleta de pago |
| Moveable | False |
Label1
| Nombre | lblTrabajador |
| AutoSize | True |
| Caption | Trabajador: |
Label2
| Nombre | lblSueldoBasico |
| AutoSize | True |
| Caption | Sueldo Bruto |
Label3
| Nombre | lblHorasExtras |
| AutoSize | True |
| Caption | Horas extras: |
Label4
| Nombre | lblPagoHoraExtra |
| AutoSize | True |
| Caption | Pago hora extra |
Label5
| Nombre | lblSueldoNeto |
| AutoSize | True |
| Caption | Sueldo neto |
Text1
| Nombre | txtTrabajador |
| Text |
Text2
| Nombre | txtSueldoBasico |
| Text |
Text3
| Nombre | txtHorasExtras |
| Text |
Text4
| Nombre | txtPagoHoraExtra |
| BackColor | &H80000004& |
| Text |
Text5
| Nombre | txtRenta |
| BackColor | &H80000004& |
| Locked | True |
| Text |
Text6
| Nombre | txtFonavi |
| BackColor | &H80000004& |
| Locked | True |
| Text |
Text7
| Nombre | txtISR |
| BackColor | &H80000004& |
| Locked | True |
| Text |
Text8
| Nombre | txtSueldoNeto |
| BackColor | &H80000004& |
| Locked | True |
| Text |
option1
| Nombre | optDiurno |
| Caption | Diurno |
| Value | True |
option2
| Nombre | optNocturno |
| Caption | Nocturno |
| Value | False |
Check1
| Nombre | chkRenta |
| Caption | Renta |
Check2
| Nombre | chkFonavi |
| Caption | Fonavi |
Check3
| Nombre | chkISR |
| Caption | ISR |
Command1
| Nombre | cmdAceptar |
| Caption | &Aceptar |
| Default | True |
Command2
| Nombre | cmdLimpiar |
| Caption | &Limpiar |
Command3
| Nombre | cmdSalir |
| Cancel | True |
| Caption | &Salir |
Una vez establecidas las propiedades, proceda a ingresar el código que se indica a continuación:
Private Sub cmdAceptar_Click()
Dim dblSueldoBasico As Double
Dim intHorasExtras As Integer, dblPagoHoraExtra As Double
Dim dblRenta As Double, dblFonavi As Double, dblISR As Double
Dim dblIngresos As Double, dblEgresos As Double
Dim dblSueldoNeto As Double
dblSueldoBasico = Val(txtSueldoBasico.Text)
intHorasExtras = Val(txtHorasExtras.Text)
If optDiurno.Value Then
dblPagoHoraExtra = 10
End If
If optNocturno.Value Then
dblPagoHoraExtra = 15
End If
If chkRenta.Value Then
dblRenta = dblSueldoBasico * 0.1
Else
dblRenta = 0
End If
If chkFonavi.Value Then
dblFonavi = dblSueldoBasico * 0.07
Else
dblFonavi = 0
End If
If chkISR.Value Then
dblISR = dblSueldoBasico * 0.03
Else
dblISR = 0
End If
dblIngresos = dblSueldoBasico + intHorasExtras * dblPagoHoraExtra
dblEgresos = dblRenta + dblFonavi + dblISR
dblSueldoNeto = dblIngresos - dblEgresos
txtPagoHoraExtra.Text = Str(dblPagoHoraExtra)
txtRenta.Text = Str(dblRenta)
txtFonavi = Str(dblFonavi) : txtISR = Str(dblISR)
txtSueldoNeto = Str(dblSueldoNeto)
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Guarde y ejecute su aplicación.
Anote sus observaciones:
- Que descubriste que sucede con el siguiente segmento de código:
If optDiurno.Value Then
dblPagoHoraExtra = 10
End If
If optNocturno.Value Then
dblPagoHoraExtra = 15
End If
- Consideras que es lo mismo utilizar opt y/o utilizar chk.
- En el siguiente segmento de código existe una condición, cuando se ejecutará la línea dblFonavi = 0.
If chkFonavi.Value Then
dblFonavi = dblSueldoBasico * 0.07
Else
dblFonavi = 0
End If
- Habiendo concluido el ejercicio. Describe la parte consideras necesario volver a repasar: