VB6: Tipo de triangulo

Escriba un programa que lea tres longitudes y determine si forman o no un triángulo. Si es un triángulo determine de que tipo de triángulo se trata entre: equilátero (si tiene tres lados iguales), isósceles (si tiene dos lados iguales) o escaleno (si tiene tres lados desiguales). Considere que para formar un triángulo se requiere que: "el lado mayor sea menor que la suma de los otros dos lados".

Para realizar este programa crear un formulario en Visual Basic 6.0 con 3 textboxes llamados txtl1, txtl2 y txtl3. De igual manera crear dos command buttons llamados cmdcalcular y cmdlimpiar. A continuacion el codigo necesario para resolver este ejercicio.

Option Explicit

Dim triangulo As Boolean

Function limpiar()
txtl1.Text = ""
txtl2.Text = ""
txtl3.Text = ""
txtl1.SetFocus
End Function

Private Sub cmdcalcular_Click()

If Val(txtl1.Text) > Val(txtl2.Text) And Val(txtl1.Text) > Val(txtl3.Text) Then


If Val(txtl1.Text) < Val(txtl2.Text) + Val(txtl3.Text) Then

triangulo = True

Else

triangulo = False

End If


Else

If Val(txtl2.Text) > Val(txtl3.Text) Then


If Val(txtl2.Text) < Val(txtl1.Text) + Val(txtl3.Text) Then

triangulo = True

Else

triangulo = False

End If

Else


If Val(txtl3.Text) < Val(txtl1.Text) + Val(txtl2.Text) Then

triangulo = True

Else

triangulo = False

End If

End If

End If


If triangulo = False Then

MsgBox "No es un triangulo. Vuelve a intentarlo"

limpiar

Else


If Val(txtl1.Text) = Val(txtl2.Text) And Val(txtl2.Text) = Val(txtl3.Text) Then

MsgBox "Equilatero"

Else

If Val(txtl1.Text) = Val(txtl2.Text) Or Val(txtl1.Text) = Val(txtl3.Text) Or Val(txtl2.Text) = Val(txtl3.Text) Then

MsgBox "Isoceles"

Else

If Val(txtl1.Text) <> Val(txtl2.Text) And Val(txtl2.Text) <> Val(txtl3.Text) Then

MsgBox "Escaleno"

End If

End If

End If

End If



End Sub

Private Sub cmdlimpiar_Click()

limpiar


End If


End Sub

 

Photo Cloudy with a chance of hope by iNeedChemicalX

Read more