área de un triángulo y su perímetro con Visual Basic

área de un triángulo y su perímetro con Visual Basic

Bueno el día de hoy vamos a hacer otro programa con visual basic
Objetivo: Hallar el área de un triángulo y su perímetro con Visual Basic 6.0
Este programa es un de varios que are donde la temática será la misma, por ejemplo en este es un Triángulo, el siguiente un Rombo y así por el estilo para que cuando tengamos varios proyectos de esta misma temática los unamos en un solo programa y nos demos cuenta como de algo sencillo, sale algo complejo.

Programación completa:

Archivos del Proyecto: Area de triangulo Vb6.0-Ingenieriaelectronica.org

Contraseña para descomprimir: ingenieriaelectronica.org

Empecemos, primero que nada no explicare como hice el diseño ya que es 100% igual a este ejemplo: Calcular área y perímetro de un círculo en Visual Basic 6.0

De igual manera si tienen dudas, pueden dejarlo en los comentarios

Ahora vamos a lo importante primero hay que abrir visual vasic, escoger proyecto estándar y una vez que su área de trabajo esté lista, simplemente diseñar como queremos que se vea nuestro pequeño programa (ver el ejemplo de arriba para saber cómo se diseñó este).

área de un triángulo y su perímetro con Visual Basic 1

área de un triángulo y su perímetro con Visual Basic 1

Una vez que lo tengamos simplemente cambiamos algunas cosas, esto se hace solo con labels, command buttons, TextBox y si queremos agregar una imagen simplemente usamos la herramienta image.

Anuncio
área de un triángulo y su perímetro con Visual Basic 2

área de un triángulo y su perímetro con Visual Basic 2

Recuerden que para que funcione la programación que dejare más abajo los TextBox deben ir en orden, en la primera posición Text1, ala derecha Text2, abajo de text1 va text 3 y ala derecha de text3 va text 4, el ultimo text5 va en la parte inferior.

Ahora vamos con la programación:

área de un triángulo y su perímetro con Visual Basic 3

área de un triángulo y su perímetro con Visual Basic 3

Esta es la programación:

Private Sub Command1_Click()
Text2.Text = 3 * (Text1.Text)
End Sub

Private Sub Command2_Click()
Text5.Text = ((Text3.Text * Text4.Text) / 2)
End Sub

Primero que nada y algo que no explique en los otros tutoriales es que desarrollamos nuestro código a partir de las formulas del objeto (en este caso un triángulo)
La fórmula para sacar el perímetro de un triángulo es igual a la suma de los 3 lados del triángulo, pero como reducimos esto, para no tener que programar más, pues bueno para empezar este ejemplo está hecho para un Triángulo equilátero (osea todos sus lados son iguales, para hacerlo con lados diferentes solo deberemos crear 3 TextBox, hacer una operación de suma y por ultimo imprimirlo en un cuarto TextBox)

Private Sub Command1_Click()  ‘Te lo dará el programa por defecto
Text2.Text = 3 * (Text1.Text)     ‘Pides que imprima el resultad en Text2, de la operación que indica, que el valor de text1 sera multiplocado 3 veces
End Sub                                      ‘Te lo dará el programa por defecto

Private Sub Command2_Click()   ‘Te lo dará el programa por defecto
Text5.Text = ((Text3.Text * Text4.Text) / 2) ‘ Indica que quieres que imprima el resultado en Text5 de la operación text3 por text4 y el resultado lo divides entre dos, esta es la fórmula del Área del  triángulo que dice: Base por Altura sobre 2.
End Sub                                       ‘Te lo dará el programa por defecto

Y listo tendremos nuestra calculadora para poder sacar área y perímetro de un triangulo

área de un triángulo y su perímetro con Visual Basic

área de un triángulo y su perímetro con Visual Basic

LuisDestacadoVisual Basic
Bueno el día de hoy vamos a hacer otro programa con visual basic Objetivo: Hallar el área de un triángulo y su perímetro con Visual Basic 6.0 Este programa es un de varios que are donde la temática será la misma, por ejemplo en este es un Triángulo, el siguiente un...