Ejercicio Resuelto Visual Basic 6 – 1.3 Transformación de unidades de temperatura

Transformación de unidades de temperatura, en este proyecto de ejemplo muestro como usar los siguientes controles:

VScrollBar:  Representa una barra de desplazamiento vertical estándar de Windows.

Editor de Menús: Para crear menús desplegables.

En este ejemplo de Transformación de unidades de temperatura, se muestra como al desplazar el VScrollBar se va mostrando en el cuadro de texto izquierdo la medida en centigrados y en el otro cuadro de texto la medida en Fahrenheit.

En resumen muestra un programa sencillo que permite ver la equivalencia entre las escalas de temperaturas en grados centígrados y grados Fahrenheit.

Para crear el Menu debemos dar clic en el icono del menú y luego escribir el caption o Titulo y luego el nombre del menú que lleva las mismas reglas que una variable.

El código del ejercicio es el siguiente:

Option Explicit


Private Sub cmdSalir_Click()
    Beep 'Emite un sonido
    End  'Finaliza la aplicación
End Sub

Private Sub mnuSalir_Click()
    End 'Finaliza la aplicación
End Sub

Private Sub vsbTemp_Change()
    txtCent.Text = vsbTemp.Value 'toma el valor del Scroll bar
    txtFahr.Text = 32 + 1.8 * vsbTemp.Value  'calcula la temperatura en Fahrenheit
End Sub

• Se ha utilizado la propiedad Value de la barra de desplazamiento, la cual da el valor actual de la misma con respecto a los límites inferior y superior, previamente establecidos (-100 y 100).
• Mediante el procedimiento cmdSalir_Click, se cierra el programa, gracias a la instrucción End. El cometido de Beep no es otro que el de emitir un pitido a través del altavoz del ordenador, que indicará que en efecto se ha salido del programa.
• La función mnuFileExit_Click() y activa desde el menú y termina la ejecución sin emitir ningún sonido.
• Finalmente, la función vsbTemp_Change() se activa al cambiar el valor de la barra de desplazamiento; su efecto es modificar el valor de la propiedad text en las cajas de texto que muestran la temperatura en cada una de las dos escalas.

Este ejercicio se hizo sobre Visual Basic 6 SP6 en Windows 10 64 Bit, Desea instalar Visual Basic en Windows 10 visite  Instalar Visual Basic 6 en Windows 10 64 bits

Te puede interesar el curso de Crear Software de Punto de Venta en Visual Basic 6

Descarga el código: