Calculadora

PRACTICARIO DE VISUAL BASIC
EJEMPLO2. COLORES
1. Diseñe su formulario como la siguiente imagen.




2. En cada una de las opciones (colores) de doble clic y escriba lo siguiente:

Text1.BackColor = vbRed

En el caso de rojo, en los demás solo debe de escribir el color correspondiente en inglés

3. Ejecute su programa y dependiendo del color seleccionado es elcolor que tendrá de fondo la caja de texto.

Herramientas utilizadas:
Frame


OptionButton




TextBox


Nota. Dé su propio diseño a la interfaz y agregue un botón para salir.

EJEMPLO 4. CALCULADORA SIMPLE


















EJEMPLO 4. RELOJ Y CALENDARIO

Diseña una interfaz parecida a la siguiente:
[pic]
Escribe el siguiente código, pero recuerdaque el nombre de los objetos puede variar.
[pic]
Ejecuta

EJEMPLO 5. CONVERTIDOR DE UNIDADES

Diseña una interfaz parecida a la siguiente:
[pic]
Escribe el siguiente código. Observa que se declara una variable de tipo Double
[pic]
Ejecuta


EJERCICIOS
Realiza un convertidor de moneda, en un nuevo formulario en el mismo proyecto de convertidor de unidades.
Realizar un convertidor depeso, en un nuevo formulario en el mismo proyecto de convertidor de unidades.
Realizar un pantalla de bienvenida a Corvercion Total, con botones hacia los demas formularios.





EJEMPLO 5. ALBUM FOTOGRÁFICO

Busca 5 imágenes preferentemente con extensión *.bmp y del mismo tamaño ejemplo 450 *400
Diseñe la siguiente interfaz, para el timer utiliza un interval de 100

Haz doble clicsobre el Timer y escribe el siguiente código
'este es un comentario en visual basic
Private Sub Timer1_Timer()
Static a As Integer 'declaramos un variable estática se relaciona directamente con el intervalo
a = a + 1
If a = 25 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\S@ndry\Mis documentos\Mis imágenes\UNERTAKE R.bmp") 'aquí ponemos la dirección de nuestra imagen
End If
If a= 50 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\S@ndry\Mis documentos\Mis imágenes\Luis1.bmp")
End If
If a = 75 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\S@ndry\Mis documentos\Mis imágenes\Luis3.bmp")
End If
If a = 95 Then
Image1.Picture = LoadPicture("C:\Documents and Settings\S@ndry\Mis documentos\Mis imágenes\Luis4.bmp")
End If
If a = 105 Then
a =0
End If
End Sub

Escribe el código del botón Salir
Ejecuta













EJEMPLO 6. PELOTA
1. Diseñe la siguiente interfaz al objeto óvalo en su propiedad nombre escribiremos pelota y al rectángulo lo llamaremos cuadro.

2.Declara las siguientes variables globales e inicializalas como se indica
[pic]
Da doble clic en el reloj y en su propiedad Interval escribe 10 y en sucódigo escribe lo siguiente:
[pic]

4.Tu pelota se debe mover en el escenario, pero agrega el siguiente código para que no salga del cuadrado.
[pic]
Inserte 5 botones el formulario se llamarán: [pic]
Dá doble clic en [pic] y escribe el siguiente código:
[pic]

La pelota irá más rápido.

Dá doble clic en [pic]y escribe el siguiente código:
[pic]

La pelota irá más lenta.

Dá dobleclic en [pic]y escribe el siguiente código:
[pic]

Dá doble clic en [pic]y escribe el siguiente código:
[pic]

Dá doble clic en [pic]y escribe el siguiente código:
End

Ejecuta

Para este ejercicio se debe considerar lo siguiente
[pic]



EJERCICIO 8. AREAS
Calcular el área del cuadrado, círculo y triangulo donde el usuario elija por medio de option button para saber que área sedebe realizar cuando presione el botón de calcular. El resultado debe ser en una caja de texto.
1. Realiza la interfaz gráfica.
[pic]



2. Declaramos las siguientes variables en General:

[pic]

3. Damos doble clic en la opción triangulo y escribimos el siguiente código:

[pic]

4. Damos doble clic en la opción rectángulo y escribimos el siguiente...