Public Class PP2

    Structure assets

        Dim ItemNumber As String

        Dim ItemDescription As String

        Dim prodCode As String

        Dim purDate As Date

        Dim purPrice As Decimal

        Dim curValue As Decimal

        Dim itemLife As Integer

        Dim depDate As Date

    End Structure

    Dim assetsarray() As assets

    Private Sub PP2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim filename As String = ("My Stuff.txt")

        PopulateArray(filename)

    End Sub

    Private Sub btnArray_Click(sender As Object, e As EventArgs) Handles btnArray.Click

        Dim query = From asset In assetsarray

                    Let price = asset.purPrice

                    Let purcDate = asset.purDate

                    Let itemLife = asset.itemLife

                    Let depAmount = CalcDepreciation(price, purcDate, itemLife)

                    Select asset.ItemNumber, asset.ItemDescription, asset.prodCode, asset.purDate, asset.purPrice, asset.curValue _

                         , asset.itemLife, asset.depDate, depAmount

        dgvDisplay.DataSource = query.ToList

        dgvDisplay.Columns("Itemnumber").HeaderText = ("Item Number")

        dgvDisplay.Columns("ItemDescription").HeaderText = ("Item Description")

        dgvDisplay.Columns("prodCode").HeaderText = ("Product Code")

        dgvDisplay.Columns("purDate").HeaderText = ("Purchase Date")

        dgvDisplay.Columns("purPrice").HeaderText = ("Purchase Price")

        dgvDisplay.Columns("curValue").HeaderText = ("Current Value")

        dgvDisplay.Columns("itemLife").HeaderText = ("Item Life")

        dgvDisplay.Columns("depDate").HeaderText = ("Depreciation Date")

        dgvDisplay.Columns("depAmount").HeaderText = ("Depreciation Amount")

    End Sub

    Function CalcDepreciation(price As Decimal, purdate As Date, life As Integer) As Decimal

        'Function finds date difference to calculate depreciation amount based on life of item and price'

        Dim depamount As Decimal

        Dim datecalc As Decimal = DateDiff("m", purdate, Date.Now)

        depamount = price / life * datecalc

        Return depamount

    End Function

​

    Private Sub btnSort_Click(sender As Object, e As EventArgs) Handles btnSort.Click

        Dim sortquery = From asset In assetsarray

                        Let itemNumber = CStr(asset.ItemNumber)

                        Let itemDescription = CStr(asset.ItemDescription)

                        Let prodCode = CStr(asset.prodCode)

                        Let purDate = CStr(asset.purDate)

                        Let purPrice = CStr(asset.purPrice)

                        Let curValue = CStr(asset.curValue)

                        Let itemLife = CStr(asset.itemLife)

                        Let depDate = CStr(asset.depDate)

                        Let result = itemNumber & "," & itemDescription & "," & prodCode & "," & purDate & "," & purPrice & "," _

                        & curValue & "," & itemLife & "," & depDate

                        Order By asset.purDate, asset.purPrice Descending

                        Select result

​

        IO.File.WriteAllLines("SortedAssets.txt", sortquery)

​

        lstOutput.Items.Add("Sorted Records of Assets")

        lstOutput.Items.Add("")

        For Each asset In sortquery

            lstOutput.Items.Add(asset)

        Next

​

    End Sub

    Private Sub btnCurrentValue_Click(sender As Object, e As EventArgs) Handles btnCurrentValue.Click

        Dim updatequery = From asset In assetsarray

                          Let itemNumber = CStr(asset.ItemNumber)

                          Let itemDescription = CStr(asset.ItemDescription)

                          Let prodCode = CStr(asset.prodCode)

                          Let purDate = CStr(asset.purDate)

                          Let purPrice = CStr(asset.purPrice)

                          Let curValue = CStr(asset.curValue)

                          Let itemLife = CStr(asset.itemLife)

                          Let depDate = CStr(asset.depDate)

                          Let NewCurrentValue = NewCurrentValue(asset.purPrice, asset.purDate, asset.depDate, asset.itemLife, asset.curValue)

                          Let newdepDate = NewDepDate(depDate)

                          Let result = itemNumber & "," & itemDescription & "," & prodCode & "," & purDate & "," & purPrice & "," _

                        & NewCurrentValue & "," & itemLife & "," & CStr(newdepDate)

                          Select result

​

​

​

        Dim updatedarray(updatequery.Count - 1) As String

        Dim line As String

        For i As Integer = 0 To updatequery.Count - 1

            line = updatequery(i)

            updatedarray(i) = line

        Next

        lstOutput.Items.Add("Updated Assets")

        lstOutput.Items.Add("")

        For Each line In updatedarray

            lstOutput.Items.Add(line)

        Next

        IO.File.WriteAllLines("UpdatedArray.txt", updatedarray)

​

    End Sub

​

    Function NewCurrentValue(price, purdate, depDate, itemlife, curValue) As Decimal

        Dim depamount As Decimal

        Dim output As Decimal

        Dim datecalc As Decimal = DateDiff("m", purdate, depDate)

        depamount = price / itemlife * datecalc

        If curValue = 0 Then

            output = 0

            Return output

        Else

            output = price - depamount

            Return output

        End If

    End Function

    Function NewDepDate(depdate) As Date

        Dim lastDay As Date

        lastDay = DateAdd("d", -1, DateSerial(Year(Now), Month(Now), 1))

        depdate = lastDay

        Return depdate

    End Function

​

    Private Sub btnFileSelect_Click(sender As Object, e As EventArgs) Handles btnFileSelect.Click

        OpenFileDialog1.ShowDialog()

        Dim filename As String

        filename = OpenFileDialog1.FileName

        PopulateArray(filename)

    End Sub

    Sub PopulateArray(ByRef filename)

        Dim lines() As String = IO.File.ReadAllLines(filename)

        Dim data(7) As String

        Dim line As String

        ReDim assetsarray(lines.Count - 1)

        For i As Integer = 0 To lines.Count - 1

            line = lines(i)

            data = line.Split(","c)

            assetsarray(i).ItemNumber = data(0)

            assetsarray(i).ItemDescription = data(1)

            assetsarray(i).prodCode = data(2)

            assetsarray(i).purDate = CDate(data(3))

            assetsarray(i).purPrice = CDec(data(4))

            assetsarray(i).curValue = CDec(data(5))

            assetsarray(i).itemLife = CInt(data(6))

            assetsarray(i).depDate = CDate(data(7))

        Next

    End Sub

​

​

End Class

​