ejercicio visual basic 1 programa de sumar y restar
- 1. EJERCICIO DE VISUAL BASIC Crearemos un programa donde introduciendo 2 numeros nos calcule la “suma” y “resta” de ambos numeros, pudiendo “borrar” los valores introducidos mediante otro boton y “salir” de la aplicación. Propiedad “BackColor” escoger color “gris” Propiedad “Caption” escribir “Sumar y Restar” Con la herramienta de “LABEL” dibujaremos 3 “labels”, como en el ejemplo, http://soportehilmer.blogspot.com/ Material de: http://www.luisbonilla.com/
- 2. A continuacion colocaremos las siguientes propiedades iguales a los 3 “labels”, Color “Rosa” Caption respectivo para cada label: “Numero Uno” “Numero Dos” “Resultado” Desde la caja de componentes, vamos a dibujar ahora tres “TextBox”, como en la siguiente imagen, http://soportehilmer.blogspot.com/ Material de: http://www.luisbonilla.com/
- 3. A estos “TextBox” les eliminaremos el contenido de la propiedad “Text” para que el control salga en blanco. Finalmente dibujaremos los “CommandButton” o “botones de comando”, como muestra la imagen siguiente, http://soportehilmer.blogspot.com/ Material de: http://www.luisbonilla.com/
- 4. Seguidamente colocaremos la propiedad “Caption” de los botones con los nombres siguientes respectivamente, En la propiedad “Caption” de cada “boton” introduciremos el texto respectivo, Caption: &Salir &Restar S&alir &Borrar ** Recordamos que el simbolo “&” delante de una letra, hace que la letra salga subrallada de forma que nos indica la tecla de acceso rapido al boton en cuestion ** http://soportehilmer.blogspot.com/ Material de: http://www.luisbonilla.com/
- 5. El formulario que hemos creado con los pasos anteriores tiene que tener el siguiente aspecto, 3 labels 3 textbox 4 commandbutton Ahora dentro de los siguientes componentes introduciremos el codigo, (recuerda que para acceder al codigo de cada componente haremos “2 clics” en el componente) En el boton de “Sumar” introduciremos la rutina, Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub http://soportehilmer.blogspot.com/ Material de: http://www.luisbonilla.com/
- 6. En el boton de “Restar” introduciremos, Private Sub Command2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub En el boton de “Salir” Private Sub Command3_Click() End End Sub En el boton de “Borrar” Private Sub Command4_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Finalmente ejecuta con “F5” el programa y comprueba que funciona, si es asi, almacena el formulario y el proyecto, recuerda que podemos dar el mismo nombre a los dos elementos “ya que cambia la extension”. Si el programa no funciona, repasa el codigo, y verifica que este bien escrito. http://soportehilmer.blogspot.com/ Material de: http://www.luisbonilla.com/