Este documento describe un ejercicio de programación en Visual Basic que permite convertir valores numéricos de metros a otras unidades de longitud como milímetros, centímetros, decímetros y kilómetros. Explica el diseño de la interfaz gráfica, el algoritmo y el código para implementar la lógica de conversión.
0 calificaciones0% encontró este documento útil (0 votos)
8 vistas4 páginas
Este documento describe un ejercicio de programación en Visual Basic que permite convertir valores numéricos de metros a otras unidades de longitud como milímetros, centímetros, decímetros y kilómetros. Explica el diseño de la interfaz gráfica, el algoritmo y el código para implementar la lógica de conversión.
Este documento describe un ejercicio de programación en Visual Basic que permite convertir valores numéricos de metros a otras unidades de longitud como milímetros, centímetros, decímetros y kilómetros. Explica el diseño de la interfaz gráfica, el algoritmo y el código para implementar la lógica de conversión.
Este documento describe un ejercicio de programación en Visual Basic que permite convertir valores numéricos de metros a otras unidades de longitud como milímetros, centímetros, decímetros y kilómetros. Explica el diseño de la interfaz gráfica, el algoritmo y el código para implementar la lógica de conversión.
Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
Descargar como docx, pdf o txt
Está en la página 1/ 4
VISUAL BASIC - PRÁCTICA # 2
TÍTULO: CONVERSIONES
Ejercicio propuesto.
Desarrolle una aplicación en VB, que permita obtener el resultado de la conversión de un valor numérico decimal ingresado en metros, a su correspondiente en milímetros, centímetros, decímetros y kilómetros.
Análisis algorítmico del ejercicio.
1. Inicio 2. Solicitar el valor de la cantidad en metros (mtr) 3. Calcular la conversión a milímetros (ml) 4. Calcular la conversión a centímetros (cm) 5. Calcular la conversión a decímetro (dc) 6. Calcular la conversión a kilómetros (km) 7. Mostrar el resultado de la conversión seleccionada (RC) 8. Fin
Solución del ejercicio propuesto.
Se trata de realizar un programa que permita el ingreso de un valor numérico que puede ser entero o decimal y que luego de hacer clic en un control CommandButton denominado CONVERTIR, muestre en una caja de texto el resultado de la conversión de acuerdo a la opción seleccionada por el usuario.
En el caso de que el usuario necesite hacer otro cálculo, el programa brindará la posibilidad de borrar el dato ingresado y el resultado generado, con ayuda de un control CommandButton, etiquetado como NUEVO CÁLCULO.
Se completará la aplicación con un control CommandButton SALIR el mismo que deberá mostrar una ventana de confirmación de salida y finalizará la ejecución del programa.
Los controles a utilizar para el diseño del proyecto son los siguientes:
Práctica 2 - 1 La tabla a continuación, indica los controles utilizados en este ejercicio junto con las propiedades y valores correspondientes:
CONTROL PROPIEDAD VALOR
Name lblCantidad Label1 Caption Cantidad en metros: AutoSize True Name lblResultado Label2 Caption Resultado: AutoSize True Name txtCantidad Text1 Text [Borrar su contenido] Name txtResultado Text2 Text [Borrar su contenido] Name frmConversion Frame1 Caption Tipo de Conversión Option1 Caption Milímetro Option2 Caption Centímetro Option3 Caption Decímetro Option4 Caption Kilómetro Name cmdConvertir Command1 Caption Convertir Name cmdNuevo Command2 Caption Nuevo Cálculo Name cmdSalir Command3 Caption SALIR Name frmPrincipal Form1 Caption Conversor – Grupo #
El formulario tendrá la siguiente apariencia:
Práctica 2 - 2 Ahora, siguiendo el algoritmo desarrollado anteriormente, ingresamos el siguiente código:
En frmPrincipal (doble clic sobre el control para ingresar al editor de código)
Option Explicit Rem Declaración de variables Dim mtr, ml, cm, dc, km, RC As Single Dim Confirmar As String
En cmdConvertir Private Sub cmdConvertir_Click() Rem Líneas de código para calcular las conversiones
If Option1.Value = True Then
RC = Val(txtCantidad.Text) * 1000 TxtResultado.Text = RC End If
If Option2.Value = True Then
RC = Val(txtCantidad.Text) * 100 txtResultado.Text = RC End If
If Option3.Value = True Then
RC = Val(txtCantidad.Text) * 10 txtResultado.Text = RC End If
En cmdLimpiar Private Sub cmdLimpiar_Click() Rem Líneas de código para dejar en blanco los controles Text txtCantidad.Text = "" txtResultado.Text = "" End Sub
En cmdSalir Private Sub cmdSalir_Click() Rem Líneas de código para salir del programa Confirmar = MsgBox("¿Seguro que desea salir?", vbQuestion + vbYesNo, "Confirmar") If Confirmar = vbYes Then End End If End Sub
Finalmente, ejecutar el programa y verificar su funcionalidad.
(Nota: En el caso de que aparezcan errores, corregirlos y tomarlos en cuenta para el diseño del informe.)
Guarde el proyecto. Se sugiere que lo haga con relativa frecuencia con la finalidad de evitar la pérdida del mismo.
Práctica 2 - 3 Responda a lo siguiente:
¿Qué controles nuevos se utilizaron en este programa?
Control OptionButton y frame
¿Cuál es la forma de funcionamiento de estos controles?
OptionButton es permitirle al usuario elegir entre diferentes opciones dentro de un grupo de
opciones
El Frame es un control que se utiliza como contenedor de otros controles, de esta manera los podemos agrupar.
¿Qué errores de diseño y codificación se cometieron? ¿Qué soluciones aplicaron?
