ASP.NET Ejercicio 06

• Diseñe un programa que lea tres longitudes y determine si forma o no un triangulo.Si es un triangulo determine de que tipo de triangulo se trata entre: equilatero (si tiene tres lados iguales), isósceles(si tiene dos lados iguales) o escaleno (si tiene tres lados desiguales). Considere que para formar un triangulo se requiere que: "el lado mayor sea menor que la suma de los otros dos lados".

 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim SL, MAYOR, L1, L2, L3 As Integer
        L1 = TXTL1.Text
        L2 = TXTL2.Text
        L3 = TXTL3.Text
        MAYOR = Math.Max(L1, Math.Max(L2, L3))
        SL = (L1 + L2 + L3 - MAYOR)

        'SI ES TRIANGULO
        If MAYOR < SL Then
            TXTTRIAN.Text = "SI ES UN TRIANGULO"
        Else
            TXTTRIAN.Text = "NO ES UN TRIANGULO"
        End If

        'TIPOS DE TRIANGULO
        If MAYOR > SL Then
            TXTT.Text = "NO TIENE TIPO"
        ElseIf L1 = L2 And L2 = L3 And L1 = L3 Then
            TXTT.Text = "EQUILATERO"
        ElseIf L1 = L2 Or L1 = L3 Or L3 = L2 Then
            TXTT.Text = "ISOSCELES"
        ElseIf L1 <> L2 And L2 <> L3 And L1 <> L3 Then
            TXTT.Text = "ESCALENO"
        End If

    End Sub
End Class