There is still this issue, and I am still unable to fix it. If I add a number for the item Name, the itemsSold(itemsSold.Length) highlights, and if I add a name like "shoe", it is also wrong.

Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
icon
Related questions
Question

There is still this issue, and I am still unable to fix it. If I add a number for the item Name, the itemsSold(itemsSold.Length) highlights, and if I add a name like "shoe", it is also wrong.

0 references
Private Sub btnSubmit Price_Click(sender
As Object, e As EventArgs) Handles btnSubmitPrice. Click
Dim price As Double = InputBox("Enter Price: ", "Enter a Number")
Dim itemName As String = InputBox("Enter Item Name: ", "Enter a Name")
' Create a new TagSaleItem object with the price and name, then store it in the array and update the statist
Dim newItem As New Tag SaleItem (price, itemName)
ReDim Preserve items Sold (items Sold.Length)
items Sold (items Sold. Length - 1) = newItem
► totalSales + price
totalItems += 1
averageSale Price = totalSales / totalItems
'Display the statistics
lblTotalSales.Text = "Total Sales: " + tota
lblTotalItems.Text = "Total Items: " + tota
lblAverageSale Price.Text = "Average Sale Pr
End Sub
LEX
Exception Thrown
System.NullReferenceException: 'Object reference not set to an
instance of an object.'
Show Call Stack View Details | Copy Details | Start Live Share session
Exception Settings
✔Break when this exception type is thrown
Except when thrown from:
Tag Sale.exe
Transcribed Image Text:0 references Private Sub btnSubmit Price_Click(sender As Object, e As EventArgs) Handles btnSubmitPrice. Click Dim price As Double = InputBox("Enter Price: ", "Enter a Number") Dim itemName As String = InputBox("Enter Item Name: ", "Enter a Name") ' Create a new TagSaleItem object with the price and name, then store it in the array and update the statist Dim newItem As New Tag SaleItem (price, itemName) ReDim Preserve items Sold (items Sold.Length) items Sold (items Sold. Length - 1) = newItem ► totalSales + price totalItems += 1 averageSale Price = totalSales / totalItems 'Display the statistics lblTotalSales.Text = "Total Sales: " + tota lblTotalItems.Text = "Total Items: " + tota lblAverageSale Price.Text = "Average Sale Pr End Sub LEX Exception Thrown System.NullReferenceException: 'Object reference not set to an instance of an object.' Show Call Stack View Details | Copy Details | Start Live Share session Exception Settings ✔Break when this exception type is thrown Except when thrown from: Tag Sale.exe
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Follow-up Questions
Read through expert solutions to related follow-up questions below.
Follow-up Question

No matter what I do, entering any sort of text in the 'enter item name' does not work

O references
Private Sub btnSubmit Price_Click(sender
As Object, e As EventArgs) Handles btnSubmit Price. Click
Dim price As Double = InputBox("Enter Price: ", "Enter a Number")
Dim itemName As String = InputBox("Enter Item Name: " "Enter a Name")
I
' Create a new TagSaleItem object with the price and name, then store it in the array and update the statistics
Dim newItem As New TagSaleItem(price, itemName)
ReDim Preserve itemsSold (items Sold.Length)
items Sold (items Sold. Length - 1) = newItem
totalSales += price
totalItems += 1
averageSale Price = totalSales / totalItems
Display the statistics
lblTotalSales.Text = "Total Sales: " + totalSales.ToString()
lblTotalItems.Text = "Total Items: " + totalItems.ToString()
lblAverageSale Price.Text = "Average Sale Price: " + average Sale Price.ToString()
End Sub
Transcribed Image Text:O references Private Sub btnSubmit Price_Click(sender As Object, e As EventArgs) Handles btnSubmit Price. Click Dim price As Double = InputBox("Enter Price: ", "Enter a Number") Dim itemName As String = InputBox("Enter Item Name: " "Enter a Name") I ' Create a new TagSaleItem object with the price and name, then store it in the array and update the statistics Dim newItem As New TagSaleItem(price, itemName) ReDim Preserve itemsSold (items Sold.Length) items Sold (items Sold. Length - 1) = newItem totalSales += price totalItems += 1 averageSale Price = totalSales / totalItems Display the statistics lblTotalSales.Text = "Total Sales: " + totalSales.ToString() lblTotalItems.Text = "Total Items: " + totalItems.ToString() lblAverageSale Price.Text = "Average Sale Price: " + average Sale Price.ToString() End Sub
Solution
Bartleby Expert
SEE SOLUTION
Knowledge Booster
Multithreading Methods
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.
Similar questions
Recommended textbooks for you
Database System Concepts
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education