Üçgen Türü ( Types Of Triangles)

Public Class Form1

    Dim a, b, c As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        a = TextBox1.Text

        b = TextBox2.Text

        c = TextBox3.Text

        If a = b And a = c And b = c Then

            MsgBox("Eşkenar Üçgen (Equilateral Triangle)", MsgBoxStyle.Information, "Üçgen Çeşitleri")

        End If

        If (a = b Or a = c Or b = c) And (a <> b Or b <> c Or a <> c) Then

            MsgBox("İkizkenar Üçgen (Isosceles Triangle)", MsgBoxStyle.Information, "Üçgen Çeşitleri")

        End If

        If a <> b And b <> c And a <> c Then

            MsgBox("Çeşitkenar Üçgen", MsgBoxStyle.Information, "Üçgen Çeşitleri")

        End If

    End Sub

End Class