Question

Zena Manufacturing

Zena Manufacturing has two warehouses, which the company refers to as warehouse A and warehouse B. Create an application using Visual Studio 2015, that uses two list boxes to display the IDs of the company’s products: one for products stored in warehouse A and one for products stored in warehouse B. Use the following names for the solution and project, respectively: Zena Solution and Zena Project. Change the form file’s name to Main Form.vb. The application should allow the user to enter a product ID, which will contain only letters and numbers. It then should use the Items collection’s Contain method to determine whether the ID is listed in Warehouse A list box; if it is, the application should display the letter A in the Location box. If the ID is not in the Warehouse A list box, the application should use the Contains method to determine whether it is listed in the Warehouse B list box; if it is, the application should display the letter B in the Location box. If the ID is not listed in either list box, the application should display N/A. (Hint: The syntax of the Contains method is listbox.Items.Contains(value).) Use the following IDs to fill the Warehouse A list box: AB11, HY16, JK56, MM12, PY63, PY64, AB21, and AB14. Use the following IDs to fill the Warehouse B list box: AB20, JM17, PJ23, JK52, and TR16.

Needing the layout of the user interface with the names of the labels, buttons, etc. And the code that makes the program work.

Answer 1

Public Class MainForm

'to search for the presence of the product in the warehouse
Private Sub btnFind_Click(sender As System.Object, e As System.EventArgs) Handles btnFind.Click
'if textbox value is not filled
If txtID.Text = "" Then
MsgBox("Please enter the id to find")
Else
'if value matched with warehouse a products
If lb1.Items.Contains(txtID.Text) Then
txtLocation.Text = "A"
'if value matched with warehouse b products
ElseIf lb2.Items.Contains(txtID.Text) Then
txtLocation.Text = "B"
'if value not matched with any warehouse products
Else
txtLocation.Text = "N/A"
End If
txtID.Text = ""
End If
End Sub
'for exiting the application
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class

output:

唱Form1 Forml Enter The Product ID AB11 Enter The Product ID AB11 HY16 JK56 MM12 PY63 PY64 AB21 AB20 JM17 PJ23 JK52 TR16 AB11 HY16 JK56 MM12 PY63 PY64 AB21 AB20 JM17 PJ23 JK52 TR16 ltem Location lirct