Ejercicio 7 – Unidades de Temperatura
Se trata se realizar un programa sencillo que muestre la equivalencia entre las escalas de temperaturas
en grados centigrados y grados Fahrenheit. En el centro del formulario aparece una barra de
desplazamiento vertical que permite desplazarse con incrementos pequeños de 1º. C y grandes de 10º.
C. Como es habitual, tambien puede cambiarse el valor arrastrando con el raton el cursor de la barra.
Los valores maximos y minimos de la barra son 100º C y -100º C.
A ambos lados de la barra aparcen dos cuadros de texto donde aparecen los grados correspondientes a
la barra en ambas ecalas. Encima aparecen dos rotulos (labels) que indican la escala de temperaturas
correspondiente. Completan la aplicación un boton SALIR que termina la ejecucion y un menu FILE con
la unica opcion SALIR, que termina asimismo la ejecucion del programa.
La tabla a continuacion indica los controles utilizados en este ejemplo junto con las propiedades y los
valores correspondientes
CONTROL PROPIEDAD VALOR
frmTemp Name frmTemp
Caption Conversor de Temperaturas
mnuFile Name mnuFile
Caption &Archivo
mnuFileSalir Name mnuFileSalir
Caption &Salida
cmdSalir Name cmdSalir
Caption Salir
txtCent Name txtCent
text 0
txtFahr Name txtFahr
text 32
vsbTemp Name vsbTemp
Min 100
Max -100
SmallChange 1
LargeChange 10
Value 0
lblCent Name lblCent
Caption Grados Centigrados
Font MS Sans Serif, 10
lblFahr Name lblFahr
Caption Grados Fahrenheit
Font MS Sans Serif, 10
Y el codigo del programa es el siguiente:
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 27
Option Explicit
Private Sub cmdSalir_Click()
Beep
End
End Sub
Private Sub mnuFileExit_Click()
End
End Sub
Private Sub vsbTemp_Change()
txtCent.text = vsbTemp.value
txtFahr.text = 32 + 1.8 * vsbTemp.value
End Sub
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 28
Responde a lo siguiente:
PREGUNTA RESPUESTA
¿Que son los controles en Visual Basic? Son los objetos visuales que representan elementos y
tienen propiedades, eventos y metodos
¿Cuáles son los controles que usamos en este El ScrollBar Vertiical, la caja de texto, la etiqueta y el
programa? boton de comando
¿Cómo ponemos nombre a nuestros controles? Con la propiedad NAME
¿Cómo ponemos un valor de texto a nuestros Con la propiedad Caption, Text o Value
controles?
¿Cuál es la instrucción o comando que termina el END
programa?
¿Dónde ponemos el codigo del programa? En el editor de codigo haciendo doble click en el
control
Ejemplo 8 – Colores y posiciones
Ahora se presenta un sencillo ejemplo que permite mover una caja de texto por la pantalla,
permitiendo a su vez representarla con cuatro colores diferentes.
Los archivos se llamaran Colores0.vbp y Colores0.frm
CONTROL PROPIEDAD VALOR
frmColores0 Name frmColores0
Caption Colores
fraColores Name fraColor
Caption Colores
optAzul Name optAzul
Caption Azul
optRojo Name optRojo
Caption Rojo
optAmarillo Name optAmarillo
Caption Amarillo
optVerde Name optVerde
Caption Verde
fraPosicion Name fraPosicion
Caption Posicion
optArriba Name optArriba
Caption Arriba
optAbajo Name optAbajo
Caption Abajo
txtCaja Name txtCaja
Text “”
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 29
Responde a lo siguiente:
PREGUNTA RESPUESTA
¿Cuáles son las propiedades de la caja de texto que Top y BackColor
estamos usando en este programa?
¿Qué otros controles estamos viendo en este Frame y Option
ejercicio?
¿Cómo cambiamos el color de fondo de control de Con la propiedad BackColor
textbox?
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 31
Ejercicio 9 – MiniCalculadora
En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro operaciones
aritmeticas. Los archivos de este proyecto se pueden llamar minicalc.vbp y minicalc.frm
CONTROL PROPIEDAD VALOR
Form Name frmMinicalc
Caption Minicalculadora
textbox Name txtOper1
Text
textbox Name txtOper2
Text
textbox Name txtResult
Text
label Name lblOp
Caption
label Name lblEqual
Caption =
CommandButton Name cmdSuma
Caption +
CommandButton Name cmdResta
Caption -
CommandButton Name cmdMulti
Caption *
CommandButton Name cmdDiv
Caption /
Y a continuacion se muestra el codigo correspondiente a los procedimientos
Option Explicit
Private Sub cmdDiv_Click()
txtResult.Text = val(txtOper1.Text) / val(txtOper2.text)
lblOp.Caption = “/”
End Sub
Private Sub cmdProd_Click()
txtResult.Text = val(txtOper1.Text) * val(txtOper2.text)
lblOp.Caption = “*”
End Sub
Private Sub cmdDiv_Click()
txtResult.Text = val(txtOper1.Text) / val(txtOper2.text)
lblOp.Caption = “/”
End Sub
Private Sub cmdResta_Click()
txtResult.Text = val(txtOper1.Text) - val(txtOper2.text)
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 32
Y el codigo es:
Option Explicit
Private Sub Form_Load()
txtCaja.Top = 0
End Sub
Private Sub optArriba_Click()
txtCaja.Top = 0
End Sub
Private Sub optAbajo_Click()
txtCaja.Top = frmColores0.ScaleHeight – txtCaja.Height
End Sub
Private Sub optAzul_Click()
txtCaja.BackColor = vbBlue
End Sub
Private Sub optRojo_Click()
txtCaja.BackColor = vbRed
End Sub
Private Sub optVerde_Click()
txtCaja.BackColor = vbGreen
End Sub
Private Sub optAmarillo_Click()
txtCaja.BackColor = vbYellow
End Sub
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 30
lblOp.Caption = “-”
End Sub
Private Sub cmdSuma_Click()
txtResult.Text = val(txtOper1.Text) + val(txtOper2.text)
lblOp.Caption = “+”
End Sub
Responde a lo siguiente:
PREGUNTA RESPUESTA
¿Para que usamos la funcion VAL() de VisualBasic? Para convertir las letras de las cajas de texto en
numeros y poder realizar las opereaciones
¿Qué operaciones estamos realizando? Suma, resta, multiplicacion y division
¿Dónde ponemos el codigo que realiza las En cada uno de los botones de comandos, en el
operaciones? evento CLICK()
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 33
PRACTICA 1- Preguntanto tu nombre
Ahora, realiza tu primera practica con los dos controles basicos de Visual Basic: una caja de texto y un
control de etiqueta en el cual te pregunte tu nombre y luego te salude. Quedaria asi:
PRACTICA 2 – Preguntando tu nombre (Print)
Haz una variacion de la practica anterior, pero en lugar de usar el control de etiqueta, solamente usa el
comando PRINT de Visual Basic. Para que te des una idea, quedaria mas o menos asi:
Dim saludo As String * 10
Private Sub Command1_Click()
Dim Nombre As String * 10
Nombre = “Joaquin”
Saludo = “Hola”
Print saludo; y; Nombre
End Sub
CUADERNO DE EJERCICIOS Y PRACTICAS VISUAL BASIC Página 34
