Tarefa_19

Public Class Form1
    Private Sub AutorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AutorToolStripMenuItem.Click
        Form2.Show()

    End Sub

    Private Sub CirculoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CirculoToolStripMenuItem.Click
        Dim xraio As String

        Do
            xraio = InputBox("Digite o valor do raio:", "Área do Círculo")
            If xraio = "" Then
                End
            ElseIf Val(xraio <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xraio) <= 0

        MsgBox("A área do círculo é " & Str(Val(xraio) ^ 2) * Math.Round(System.Math.PI, 2) & " m²", 64, "Área do Círculo")

    End Sub


    Private Sub QuadradoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuadradoToolStripMenuItem.Click
        Dim xlado As String

        Do
            xlado = InputBox("Digite o valor do lado:", "Área do Quadrado")
            If xlado = "" Then
                End
            ElseIf Val(xlado <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xlado) <= 0

        MsgBox("A área do quadrado é " & Str(Val(xlado)) * Val(xlado) & " m²", 64, "Área do Quadrado")

    End Sub

    Private Sub SairToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SairToolStripMenuItem.Click
        Dim resposta As Integer
        resposta = MsgBox("Confirma a saida da aplicação?", vbYesNo + vbQuestion, "Calculador de Áreas")
        If resposta = vbYes Then
            End
        End If
    End Sub

    Private Sub TriânguloToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TriânguloToolStripMenuItem.Click
        Dim xbase As String
        Dim xaltura As String

        Do
            xbase = InputBox("Digite o valor da base:", "Área do Triângulo")
            If xbase = "" Then
                End
            ElseIf Val(xbase <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xbase) <= 0

        Do
            xaltura = InputBox("Digite o valor do altura:", "Área do Triângulo")
            If xaltura = "" Then
                End
            ElseIf Val(xaltura <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xaltura) <= 0

        MsgBox("A área do Triângulo é " & (Str(Val(xbase)) * Val(xaltura) / 2) & " m²", 64, "Área do Triângulo")
    End Sub

    Private Sub RetanguloToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RetanguloToolStripMenuItem.Click
        Dim xlado1 As String
        Dim xlado2 As String

        Do
            xlado1 = InputBox("Digite o valor do primeiro lado:", "Área do Retângulo")
            If xlado1 = "" Then
                End
            ElseIf Val(xlado1 <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xlado1) <= 0

        Do
            xlado2 = InputBox("Digite o valor do segundo lado:", "Área do Retângulo")
            If xlado2 = "" Then
                End
            ElseIf Val(xlado2 <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xlado2) <= 0

        MsgBox("A área do Retângulo é " & Str(Val(xlado2)) * Val(xlado1) & " m²", 64, "Área do Retângulo")
    End Sub

    Private Sub TrapézioToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TrapézioToolStripMenuItem.Click
        Dim xbasemenor As String
        Dim xbasemaior As String
        Dim xalturatrap As String

        Do
            xbasemenor = InputBox("Digite o valor da base menor:", "Área do Trápezio")
            If xbasemenor = "" Then
                End
            ElseIf Val(xbasemenor <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xbasemenor) <= 0

        Do
            xbasemaior = InputBox("Digite o valor da base maior:", "Área do Trápezio")
            If xbasemaior = "" Then
                End
            ElseIf Val(xbasemaior <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xbasemaior) <= 0

        Do
            xalturatrap = InputBox("Digite o valor da altura:", "Área do Trápezio")
            If xalturatrap = "" Then
                End
            ElseIf Val(xalturatrap <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xalturatrap) <= 0

        MsgBox("A área do Trápezio é " & ((Str(Val(xbasemenor)) + Val(xbasemaior)) * (Val(xalturatrap)) / 2) & " m²", 64, "Área do Trápezio")
    End Sub

    Private Sub LToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LToolStripMenuItem.Click
        Dim xdigmaior As String
        Dim xdigmenor As String

        Do
            xdigmaior = InputBox("Digite o valor da diagonal maior:", "Área do Losango")
            If xdigmaior = "" Then
                End
            ElseIf Val(xdigmaior <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xdigmaior) <= 0

        Do
            xdigmenor = InputBox("Digite o valor da diagonal menor:", "Área do Losango")
            If xdigmenor = "" Then
                End
            ElseIf Val(xdigmenor <= 0) Then
                MsgBox("Valor NULO ou INCORRETO!", "ERRO")

            End If
        Loop While Val(xdigmenor) <= 0

        MsgBox("A área do Losango é " & (Str(Val(xdigmaior)) * Val(xdigmenor) / 2) & " m²", 64, "Área do Losango")
    End Sub
End Class