HACIENDO UN CALCULADOR DE AREAS

INTRODUCCION

Bueno aqui voy a aplicar un poco de programacion para crear una herramienta para que nos ayude a calcular area, y perimetro de un triangulo equilatero, cuadrado y rectangulo

inicianto el proyecto

INICIO

Bueno primero abrimos el visual basic,creamos un proyecto y hacemos un dise~o con 4 texts: text1, text2, text3 y text4, uno para base,otro para altura , otro para el area y el ultimo para el perimetro ...

tambien 3 botones; uno para cuadrado , otro para rectangulo y otro para circulo ...

al final quedaria asi ...

TRABAJANDO ....

Primero le vamos a dar de alta a area y perimetro de cuadrados , rectangulos y trangulos tenemos ....

perimetro

------------------------------------

cuadrado = lado * 4

rectangulo = base * 2 + altura * 2

triangulo(equilatero) = lado * 3

-------------------------------------

area

-------------------------------------

cuadrado = lado * lado

rectangulo = base * altura

triangulo = (base * altura)/2

--------------------------------------

pues simplemente en el codigo de cada boton vamos a almacenar el valor de la vaiable que representa el valor de nuestra base y altura despues vamos a proceder con imprimir el valor en el lugar correspondiente osea en su text correspondiente ...

------------------------------- ----

para cuadrado

------------- ----------------------

 l1 = Text1.Text

l2 = Text2.Text

perimetro = l1 * 4

area = l1 * l2

Text4.Text = perimetro

Text3.Text = area

--------------------------------

--------------------------------

lo que hacemos es almacenar el valor de los texts en una variable luego hacemos el procedimiento de multiplicar ,guardamos el resultado de la multiplicacion en la variable y al final volcamos el valor de la variable en el text de perimetro osea el text4 y el de area que es el Text3 ...

-------------------------------

para rectangulo

----------- -------------------

-------------------------------

l1 = Text1.Text

l2 = Text2.Text

perimetro = (l1 *2 ) + (l2 * 2)

area = l1 * l2 Text4.Text = perimetro

Text3.Text = area

--------------------------------

 --------------------------------

==============================================

------------------------------- ----

para triangulo

------------ -----------------------

 l1 = Text1.Text

l2 = Text2.Text

perimetro = l1 *3

area = (l1 * l2)/2

Text4.Text = perimetro

Text3.Text = area

--------------------------------

--------------------------------

con esto listo solo basta probar , probar y probar , y tenemos un programa para estos calculos .... :D

guardamos y creamos el .exe y listo ..... XD