lab 10

Option Explicit On
Option Infer Off
Option Strict On
Public Class Form1
    Dim inventory(50, 1) As Double
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lstItems.Items.Add("Rake")
        lstItems.Items.Add("Pitchfork")
        lstItems.Items.Add("Titanium Machete")
        inventory(0, 0) = 657
        inventory(0, 1) = 9.99
        inventory(1, 0) = 75060
        inventory(1, 1) = 5.99
        inventory(2, 0) = 25
        inventory(2, 1) = 569.99
        lstItems.SelectedIndex = 0
    End Sub
    Private Sub QuitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim checks As Boolean = False
        Dim tempi As Integer
        Dim tempd As Double
        If lstItems.Items.Count > 49 Then
            MsgBox("Inventory list full, please delete an item.", CType("Error", MsgBoxStyle), "Error")
        Else
            lstItems.Items.Add(InputBox("Please enter the item name", "Add item"))
            Do While checks = False
                checks = Integer.TryParse(InputBox("Please enter the number of items in stock", "Add stock count"), tempi)
            Loop
            checks = False
            Do While checks = False
                checks = Double.TryParse(InputBox("Please enter the price of your item", "Add price"), tempd)
            Loop
            inventory((lstItems.Items.Count - 1), 0) = tempi
            inventory((lstItems.Items.Count - 1), 1) = tempd
        End If

    End Sub

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        If lstItems.SelectedIndex >= 0 Then
            MsgBox("There are " & inventory((lstItems.SelectedIndex), 0).ToString & " " & lstItems.SelectedItem.ToString & "(s) in stock at " & inventory((lstItems.SelectedIndex), 1).ToString("C2") & ".", , "Check stock")
        Else
            MsgBox("There is no item selected.", MsgBoxStyle.Critical, "Error")
        End If
    End Sub

    Private Sub btnDelte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelte.Click
        Dim loc As Integer = lstItems.SelectedIndex
        Dim length As Integer = lstItems.Items.Count - 1
        Dim locOb As Object = lstItems.SelectedItem
        If lstItems.SelectedIndex >= 0 Then
            lstItems.Items.Remove(locOb)
            For i As Integer = loc To length Step 1
                inventory(i, 0) = inventory(i + 1, 0)
                inventory(i, 1) = inventory(i + 1, 1)
            Next
            inventory(length, 0) = 0
            inventory(length, 1) = 0
            If lstItems.Items.Count > 0 Then
                lstItems.SelectedIndex = loc
            End If
        Else
            MsgBox("There is no item selected.", MsgBoxStyle.Critical, "Error")
        End If
    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim checks As Boolean = False
        Dim tempi As Integer
        If lstItems.SelectedIndex >= 0 Then
            Do While checks = False
                checks = Integer.TryParse(InputBox("Please enter the number of items in stock", "Edit stock count"), tempi)
            Loop
            inventory((lstItems.SelectedIndex), 0) = tempi
        Else
            MsgBox("There is no item selected.", MsgBoxStyle.Critical, "Error")
        End If
    End Sub


End Class