Visual basic

Solo disponible en BuenasTareas
  • Páginas : 7 (1600 palabras )
  • Descarga(s) : 0
  • Publicado : 23 de noviembre de 2010
Leer documento completo
Vista previa del texto
EJERCICIOS VISUAL BASIC
Parte I
Ejercicio Nº 1
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,

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,

A estos “TextBox” les eliminaremos el contenido de la propiedad “Text” paraque el control salga en blanco.

Finalmente dibujaremos los “CommandButton” o “botones de comando”, como muestra la imagen siguiente,

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 **

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 alcodigo 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

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 quefunciona, 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.

Ejercicio Nº 2

CREAREMOS UN PROGRAMA EN CUAL TENGAMOS QUE INTRODUCIR UNA CANTIDAD DE “HORAS” Y MEDIANTE EL “CLIC” A UN BOTÓN NOS CONVIERTA ESE VALOR EN LOS “MINUTOS” Y“SEGUNDOS” QUE REPRESENTA.

Primero crearemos el formulario,

Color de fondo “azul”

Caption del formulario “Tiempo”

A continuación colocaremos una serie de “labels” dentro del formulario para diseñar el entorno de trabajo.

Seguiremos el ejemplo de la siguiente imagen,

Color de fondo “amarillo”

Desde la propiedad “font” activaremos la “negrita”.

Continuaremos colocando los“textbox” para poder introducir y visualizar los valores,

Los “textbox” colocados anteriormente tan solo tienen la propiedad “text” modificada de forma que no se muestre ningún texto dentro de esos controles.

Después colocaremos los “commandbuttons” necesarios para ejecutar la conversión o finalizar la ejecución del programa al hacer un “clic” en ellos.

La distribución de los “botones” será,Rectificaremos la propiedad “Caption” de los botones, introduciendo el texto que aparece dentro de cada uno de ellos.

El diseño de este formulario queda con,

3(Labels 3(Textbox 2(Commandbutton

En la rutina del botón “Pasa a Minutos y Segundos” introduciremos el código siguiente,

Private Sub Command1_Click()

text2.Text = Val(text1.Text) * 60...
tracking img