Scribd
Upload
40 views

Areas de Triángulos Programa en Visual Basic 2010 Que Calcula El Área y Que Te Dice Que Tipo de Triangulo Es

This document describes a Visual Basic 2010 program that calculates the area of triangles and identifies what type of triangle it is (equilateral, isosceles, or scalene) based on the side lengths. The program uses text boxes and labels to input the base, height or side lengths of a triangle and displays the calculated area and triangle type in other text boxes. It also conditionally hides picture boxes representing each triangle type.

Uploaded by

juan balderas
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
40 views

Areas de Triángulos Programa en Visual Basic 2010 Que Calcula El Área y Que Te Dice Que Tipo de Triangulo Es

This document describes a Visual Basic 2010 program that calculates the area of triangles and identifies what type of triangle it is (equilateral, isosceles, or scalene) based on the side lengths. The program uses text boxes and labels to input the base, height or side lengths of a triangle and displays the calculated area and triangle type in other text boxes. It also conditionally hides picture boxes representing each triangle type.

Uploaded by

juan balderas
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

Areas de triángulos

Programa en visual basic 2010 que calcula el área y que te dice que tipo de triangulo es.
Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles


MyBase.Load

End Sub

Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs)


Handles TextBox4.TextChanged

End Sub

Private Sub Label6_Click(sender As System.Object, e As System.EventArgs) Handles


Label6.Click

End Sub

Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs)


Handles PictureBox1.Click

End Sub

Private Sub TextBox6_TextChanged(sender As System.Object, e As System.EventArgs)


Handles TextBox6.TextChanged

End Sub

Private Sub TextBox7_TextChanged(sender As System.Object, e As System.EventArgs)


Handles TextBox7.TextChanged

End Sub

Private Sub Label7_Click(sender As System.Object, e As System.EventArgs) Handles


Label7.Click

End Sub

Private Sub Label8_Click(sender As System.Object, e As System.EventArgs) Handles


Label8.Click

End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs)


Handles TextBox1.TextChanged

End Sub

Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles


Label2.Click

End Sub
Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles
Label3.Click

End Sub

Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs)


Handles TextBox2.TextChanged

End Sub

Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs)


Handles TextBox3.TextChanged

End Sub

Private Sub Label4_Click(sender As System.Object, e As System.EventArgs) Handles


Label4.Click

End Sub

Private Sub Label5_Click(sender As System.Object, e As System.EventArgs) Handles


Label5.Click

End Sub

Private Sub TextBox5_TextChanged(sender As System.Object, e As System.EventArgs)


Handles TextBox5.TextChanged

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)


Handles Button1.Click
PictureBox1.Visible = True
PictureBox2.Visible = True
PictureBox3.Visible = True
Dim area, base, altura, lado1, lado2, lado3 As Double
base = TextBox1.Text
altura = TextBox2.Text
lado1 = TextBox3.Text
lado2 = TextBox4.Text
lado3 = TextBox5.Text
area = base * altura / 2
TextBox6.Text = area
If (lado1 = lado2) And (lado2 = lado3) Then
TextBox7.Text = "Equilatero"
PictureBox1.Visible = False
End If

If (lado1 = lado2) And (lado2 <> lado3) Then


TextBox7.Text = "Isoceles"
PictureBox3.Visible = False
End If

If (lado1 <> lado2) And (lado2 <> lado3) Then


TextBox7.Text = "Escaleno"
PictureBox3.Visible = False
End If
End Sub

Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs)


Handles PictureBox2.Click

End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles PictureBox3.Click

End Sub
End Class

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy