|
|
Curso gratis de Visual Basic ejemplo con KeyUp
|
|
Punto 23: Ejemplo con evento KeyUp y formulas
Otra aplicación muy sencilla a modo de ejemplo con algunos elementos
nuevos, se hará realizando un conversor de medidas de temperatura.
KeyUp es un evento que se ejecuta cuando el usuario suelta
una tecla, es decir al dejar de ingresar en este caso los números a
transformar a la otra unidad se desencadenaría el evento KeyUp sin
necesidad de pulsar en algún botón. |
-
El formulario contendrá dos menú desplegables: Archivo y ayuda, en
archivo irá "Salir" y en ayuda "Acerca de.."
-
Se ingresará a continuación en una columna tres Label y en la otra tres
TexBox. Un Label por cada texBox.
-
Como Propiedad Text en Label irá Celsius; Fahrenheit y ayuda.
En ese orden.
-
Para hacer la ventana de "Acerca de" lo haremos en esta practica de
programación con otro Form, puede utilizar el tercer botón de la barra
de herramientas, con la opción "agregar Windows forms"
-
Irá un Label y un Button en este form2
-
Siguiendo en form2, en Label escriba comentarios de la versión del
programa, y como Text de Button 1 escriba "Aceptar" (se volverá con este
tema en el próximo punto del curso).
-
Ahora volvemos a form 1 pondremos la formula correspondiente para
convertir Celsius a Fahrenheit (en texbox1) la cual seria: (textbox2
* 9/5) + 32. La idea es que lo que se pone en text1 sea transformado
automáticamente y mostrado en el objeto (textbox2) ni bien se escribe
usando el evento KeyUp.
Guíese con el siguiente código para
Tex1:
| Private
Sub
TextBox1_KeyUp(ByVal
sender As
Object,
ByVal
e As
System.Windows.Forms.KeyEventArgs) Handles
TextBox1.KeyUp
TextBox2.Text = (TextBox1.Text * 9 / 5) + 32
End Sub |
En el text2
correspondiente a Fahrenheit irá la formula Celsius = (Fahrenheit - 32)
* 5/9. Para transformar la cantidad de grados en Celsius a Fahrenheit
El código
será entonces:
| Private
Sub
TextBox2_KeyUp(ByVal
sender As
Object,
ByVal
e As
System.Windows.Forms.KeyEventArgs) Handles
TextBox2.KeyUp
TextBox1.Text = (TextBox2.Text - 32) * 5 / 9
End
Sub |
Aclaración: Esto viene siendo el inicio de la programación de este
programa y obviamente no es un programa ya terminado. Solo un ejemplo
para aprender con el curso.
|
|
-