Public Class Form1

    Dim mat(0, 0) As Integer 'Variável Global

    Private Sub Btn_maior_Click(sender As Object, e As EventArgs) Handles btn_maior.Click

        Dim maior As Integer = mat(0, 0)
        Dim coord_linhas, coord_colunas As Integer

        For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1
            For j As Integer = 0 To Convert.ToInt32(txt_colunas.Text) - 1

                If mat(i, j) > maior Then 'Se o valor da matriz mat(i,j) for maior que o 'maior' então guarda as coordenadas e o valor
                    maior = mat(i, j)
                    coord_linhas = i
                    coord_colunas = j
                End If

            Next
        Next

        MessageBox.Show("O maior valor é " & maior & vbNewLine & "As suas coordenadas são: " & coord_linhas + 1 & "," & coord_colunas + 1, "Maior Valor", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub Btn_ler_Click(sender As Object, e As EventArgs) Handles btn_ler.Click

        ReDim mat(txt_linhas.Text, txt_colunas.Text)

        For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1
            For j As Integer = 0 To Convert.ToInt32(txt_colunas.Text) - 1

                Try 'Vai tentar fazer isto

                    mat(i, j) = InputBox(("Introduza o valor da posição " & i + 1 & "," & j + 1), "Leitura")

                Catch ex As Exception 'Se **não** for bem-sucedido, vai para aqui

                    MessageBox.Show("Tem de introduzir um valor numérico", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) 'Mensagem de Erro
                    Return 'E retorna

                End Try
            Next
        Next

        btn_maior.Enabled = True
        btn_menor.Enabled = True
        btn_somaprincipal.Enabled = True
        btn_somasecundaria.Enabled = True
        btn_ver.Enabled = True
        btn_dsecundaria.Enabled = True
        btn_dprincipal.Enabled = True

    End Sub

    Private Sub Btnmenor_Click(sender As Object, e As EventArgs) Handles btn_menor.Click

        Dim menor As Integer = mat(0, 0)
        Dim coord_linhas, coord_colunas As Integer

        For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1
            For j As Integer = 0 To Convert.ToInt32(txt_colunas.Text) - 1

                If mat(i, j) < menor Then 'Se o valor da matriz mat(i,j) for menor q o 'menor' então guarda as coordenadas e o valor
                    menor = mat(i, j)
                    coord_linhas = i
                    coord_colunas = j
                End If

            Next
        Next

        MessageBox.Show("O menor valor é " & menor & vbNewLine & "As suas coordenadas são: " & coord_linhas + 1 & "," & coord_colunas + 1, "Menor Valor", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub Txtlinhas_TextChanged(sender As Object, e As EventArgs) Handles txt_linhas.TextChanged

        If IsNumeric(txt_linhas.Text) Then
            txt_colunas.Text = Convert.ToInt32(txt_linhas.Text)
            btn_ler.Enabled = True
        Else
            btn_maior.Enabled = False
            btn_menor.Enabled = False
            btn_somaprincipal.Enabled = False
            btn_somasecundaria.Enabled = False
            btn_ver.Enabled = False
            btn_dsecundaria.Enabled = False
            btn_dprincipal.Enabled = False
            btn_ler.Enabled = False
            txt_colunas.Clear()
            txt_linhas.Clear()
        End If

    End Sub

    Private Sub txt_colunas_TextChanged(sender As Object, e As EventArgs) Handles txt_colunas.TextChanged

        If IsNumeric(txt_colunas.Text) Then
            txt_colunas.Text = Convert.ToInt32(txt_colunas.Text)
            btn_ler.Enabled = True
        Else
            btn_maior.Enabled = False
            btn_menor.Enabled = False
            btn_somaprincipal.Enabled = False
            btn_somasecundaria.Enabled = False
            btn_ver.Enabled = False
            btn_dsecundaria.Enabled = False
            btn_dprincipal.Enabled = False
            btn_ler.Enabled = False
            txt_linhas.Clear()
            txt_colunas.Clear()
        End If

    End Sub

    Private Sub btn_ver_Click(sender As Object, e As EventArgs) Handles btn_ver.Click

        txt_display.Clear()
        For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1
            For j As Integer = 0 To Convert.ToInt32(txt_colunas.Text) - 1
                txt_display.Text += mat(i, j) & ", "
            Next
        Next

    End Sub

    Private Sub btn_dprincipal_Click(sender As Object, e As EventArgs) Handles btn_dprincipal.Click

        txt_display.Clear()
        For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1
            txt_display.Text += mat(i, i) & ", "
        Next

    End Sub

    Private Sub btn_dsecundaria_Click(sender As Object, e As EventArgs) Handles btn_dsecundaria.Click

        Dim aux As Integer = Convert.ToInt32(txt_colunas.Text) - 1

        txt_display.Clear()
        For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1

            txt_display.Text += mat(i, aux) & ", "
            aux -= 1

        Next

    End Sub

    Private Sub btn_somaprincipal_Click(sender As Object, e As EventArgs) Handles btn_somaprincipal.Click

        Dim soma As Integer = 0

        txt_display.Clear()
        For i As Integer = 0 To Convert.ToInt32(txt_linhas.Text) - 1
            soma += mat(i + 1, i + 1)
        Next

        txt_display.Text = "Soma dos elementos acima" & vbNewLine & "da Diagonal Principal = " & soma

    End Sub
End Class