Public Class Form1
    Dim n, m As Integer
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub MatriceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MatriceToolStripMenuItem.Click
        Panel1.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        DataGridView1.Visible = True
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        n = Val(InputBox("Introdu numarul de linii"))
        m = Val(InputBox("Introdu numarul de coloane"))
        DataGridView1.ColumnCount = m
        DataGridView1.RowCount = n
        DataGridView1.RowHeadersVisible = False
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.AutoSize = True
        For i = 0 To n - 1
            For j = 0 To m - 1
                DataGridView1.Item(j, i).Value = Val(InputBox("Introduceti elementul de pe pozitia [" & i & ", " & j & "]."))
            Next
        Next
    End Sub

    Sub cerc()
        Dim suprf_desen As Graphics = Panel1.CreateGraphics
        Dim r As Rectangle = Panel1.ClientRectangle
        Dim ypos As Single = r.Height / 2
        Dim rosu As Integer = 255 * Rnd()
        Dim verde As Integer = 255 * Rnd()
        Dim blue As Integer = 255 * Rnd()
        Dim culoare As Color = Color.FromArgb(255, rosu, verde, blue)
        Dim creion As Pen = New Pen(culoare, 3)
        Dim Y1 As Single
        Dim X1 As Single
        X1 = r.Width * Rnd()
        Y1 = r.Height * Rnd()
        Dim inaltime As Single = r.Width * Rnd()
        suprf_desen.DrawEllipse(creion, X1, Y1, inaltime, inaltime)
    End Sub

    Sub patrat()
        Dim suprf_desen As Graphics = Panel1.CreateGraphics
        Dim r As Rectangle = Panel1.ClientRectangle
        Dim ypos As Single = r.Height / 2
        Dim rosu As Integer = 255 * Rnd()
        Dim verde As Integer = 255 * Rnd()
        Dim blue As Integer = 255 * Rnd()
        Dim culoare As Color = Color.FromArgb(255, rosu, verde, blue)
        Dim creion As Pen = New Pen(culoare, 3)
        Dim Y1 As Single
        Dim X1 As Single
        X1 = r.Width * Rnd()
        Y1 = r.Height * Rnd()
        Dim inaltime As Single = r.Width * Rnd()
        suprf_desen.DrawRectangle(creion, X1, Y1, inaltime, inaltime)
    End Sub

    Private Sub PaintToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PaintToolStripMenuItem.Click
        Button1.Visible = False
        Button2.Visible = False
        DataGridView1.Visible = False
        Panel1.Visible = True
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim nr As Integer
        If n <> m Then
            MsgBox("Numarul de linii trebuie sa fie egal cu numarul de coloane!")
            Return
        End If

        If SaveFileDialog2.ShowDialog() = Windows.Forms.DialogResult.OK Then
            If System.IO.File.Exists(SaveFileDialog2.FileName) Then
                System.IO.File.Delete(SaveFileDialog2.FileName)
            End If
            Dim str As String
            str = ""
            For i = 0 To n - 1
                For j = 0 To m - 1
                    str = str & Convert.ToString(DataGridView1.Item(j, i).Value) & " "
                Next
                str = str & vbNewLine
            Next

            nr = Val(InputBox("Introduceti valoarea pe care doriti sa o cautati pe diagonala principala."))
            Dim found As Boolean
            found = False
            For i = 0 To n - 1
                If DataGridView1.Item(i, i).Value = nr Then
                    found = True
                End If
            Next
            If found = True Then
                str = str & vbNewLine & "GASIT " & nr
            Else
                str = str & vbNewLine & "NEGASIT " & nr
            End If
            System.IO.File.WriteAllText(SaveFileDialog2.FileName, str)
        End If

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        cerc()
        patrat()
    End Sub
End Class