Crea una nueva base de datos (en tu carpeta) de nombre
VISUAL1.
- Vamos a crear un formulario (en VISUAL1) de nombre TRIÁNGULO que sirva para calcular el área de un triángulo...
Crea un Formulario en blanco y sitúate en Vista Diseño
· Desactiva (si está activado) el icono “Utilizar Asistentes para controles” del Grupo:
Controles.
· Graba el formulario con el nombre TRIÁNGULO
· Vamos a colocar en primer lugar un “título guapo” a nuestro formulario...
· CLIC en el icono “Etiqueta” del “Grupo: Controles”:

· Traza un rectángulo en la parte superior del formulario (contendrá la frase: ÁREA DE UN TRIÁNGULO)
· Escribe: ÁREA DE UN TRIÁNGULO y CLIC en cualquier punto fuera de la “etiqueta”.
· Haz CLIC en la “etiqueta” anterior para …ver más…

· Un control “etiqueta” que contiene la “explicación” del área de un trapecio.
· Cuatro “cuadros de texto” con las siguientes características:
Cuadro de Texto 1: Etiqueta = BASE MAYOR
Propiedad “Nombre” = base1
Cuadro de Texto 2: Etiqueta = BASE MENOR
Propiedad “Nombre” = base2
Cuadro de Texto 3: Etiqueta = ALTURA
Propiedad “Nombre” = altura
Cuadro de Texto 4: Etiqueta = ÁREA
Propiedad “Nombre” = trapecio
· Dos “botones de comando” con las características:
Botón 1: Nombre externo = CALCULAR
Propiedad “Nombre” = calcular
Botón 2: Nombre externo = BORRAR
Propiedad “Nombre” = borrar
VB Access 2000 Fermí Vilà 50
· Un recuadro que rodea todo el formulario, utilizando el icono Rectángulo del
“Grupo: Controles”.
· Cambia las siguientes “propiedades del formulario”:
Barras de desplazamiento = Ninguna
Selectores de registro = No
Botones de desplazamiento = No
Separadores de registro = No
- Asocia el siguiente programa al botón [CALCULAR]:
Private Sub calcular_Click()
Dim bmayor As Double
Dim bmenor As Double
Dim alt As Double
Dim trape As Double bmayor = InputBox (“¿Cuál es la base mayor?”) bmenor = InputBox (“¿Cuál es la base