Imports System.Math
Imports System.Random
'Imports System.

Public Class Form1
    Dim nombre As String = "NULL"
    Dim index As Integer = 0
    Dim maths As Decimal
    Dim rowx As Integer = 1
    Dim y As Integer = 0
    Dim counter As Integer = 0
    Dim i As Integer = 1 ' ???this is not used???
    Dim colx As Integer = 0
    Dim col1 As Integer = 1
    Dim selection As String
    ' button delete
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        DataGridView1.Rows.Clear()
    End Sub
    'button reset
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMasterReset.Click, btnReset.Click
        DataGridView1.ClearSelection()
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Label1.Text = ListBox1.SelectedItem
        ' rowx = 1
        '

        ' pass the column name based on selection via a string named:SELECTION
        If ListBox1.SelectedItem = "log (log x)" Then
            selection = "log(Log(counter))"
        ElseIf ListBox1.SelectedItem = "log(x)" Then
            selection = "log(x)"
        ElseIf ListBox1.SelectedItem = "sqrt(x)" Then
            selection = "sqrt(x)"
        ElseIf ListBox1.SelectedItem = "x^2" Then
            selection = "x^2"
        ElseIf ListBox1.SelectedItem = "x^3" Then
            selection = "x^3"
        ElseIf ListBox1.SelectedItem = "2^x" Then
            selection = "2^x"
        End If

        counter = 1 ' on each click counter is initilized to one.


        DataGridView1.Columns.Add(selection, selection)
        'DataGridView1.Rows.Add(20)
        '''''
        Do While counter < 21

            Select Case selection

                Case "log(Log(counter))"
                    DataGridView1.Item(selection, counter - 1).Value = Log(Log(counter))
                Case "log(x)"
                    DataGridView1.Item(selection, counter - 1).Value = Log(counter)
                Case "sqrt(x)"
                    DataGridView1.Item(selection, counter - 1).Value = Sqrt(counter)
                Case "x^2"
                    DataGridView1.Item(selection, counter - 1).Value = Pow(counter, 2)
                Case "x^3"
                    DataGridView1.Item(selection, counter - 1).Value = Pow(counter, 3)
                Case "2^x"
                    DataGridView1.Item(selection, counter - 1).Value = Pow(2, counter)

            End Select
            counter = counter + 1
        Loop

        index = index + 1
    End Sub
    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        colx = 2
        Label1.Text = colx ^ 3
    End Sub
    ' changed to public so vars have outside access!
    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'colx = 1
        'rowx = 1
        i = 0
        nombre = "x values"
        DataGridView1.Columns.Add(index, nombre)
        DataGridView1.Rows.Add(20)
        Do Until counter = 20


            i = i + 1
            DataGridView1.Item(index, counter).Value = (i)
            counter = counter + 1

        Loop
        index = index + 1

    End Sub

    Private Sub btnMasterReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMasterReset.Click
        Me.DataGridView1.SelectAll()
        Me.DataGridView1.ClearSelection()
        nombre = "Null"
        rowx = 1
        y = 0
        i = 1 ' ???this is not used???
        colx = 1
        MsgBox("All values have been reset.")
        index = 0


    End Sub
End Class