Question

Criven products in a vending machine (Tahle and their respective prices (Table 2), develop VBA ende that would undertake the tollowing tasks after the customer clicks the 'purchase a producibttn: u. Tutheじustomer: i. Reive the custum' selcted product codu ii. Cunlim and display the customer's selected pruduct und product price. iii. Roccive the customer's moncy which may be input in onc or morc of the prescrihed denominations (Tahle 3). iv. Flag any input error. ag any processing error Determine (and inform theじustomer) if Lhe selected pruduct is unavailable. If unavailable, another product may be selected. vi. vii. Determine and inform the customer) if change for the selected prnduct is unavailahle. If unavailahle, another product may be selected. viii. Prevent (und infurrrı) the customer fruln receivin,เน pruduct if the total of the munies input by the customer is less than the selected product price Disnense the selected prnduct without change if the total nf the monies input hy the customer is equal to the product prioe nr dispense the product with the correct change in specitied denominations shonld the total uf the munies input by he custer be more han the product price ix. h. To the owner of the vending machine: x. Culculate ad display the change in the dilferent otry denominatios remaining in the machine. xi. Culculate and display the quantity of euch pruduct remaining in the mauhine. fx3 marks) dditional information: Harduupy alguritm. Bonus marks (e.g. efficiency of VBA code, se of comments, user-fricndlincss....) The vending machine products and monies for change are refreshed at the same time weekly There are 10 uf each product within the vending mahine immediately after refreshing. 3 marksi 2 marks Table 1. Products and product codes Simba cheese und onion Product cnde: 11 Doritns Product cude: 21 Snickers Product cnde: 31 Coca-Cola Product Lucie: 41 Simba Nik Nuks Product cnde: 12 Fet sum mor Product ude: 22 Bar Onじ Product cnde: 32 BonAqua Product we: 42 Fritos cum chips Product cnde: 13 Product code: 14 Lu Diddle Daddle Product cude: 23 | Pruduut code: 24 Product code: 33 Product code: 34 ProductじUde: 43 | Prud uut code: 44 Kit Kat Lunch Bar Fanta Cirape Twist Table 2. Prices R 10.00 R 10.00 R 10.00 R 15.00 R 10.00 R 5.00 R 10.00 R 10.00 R 10.00 R 5.00 R 10.00 R 15.00 R 10.00 R 10.00 R 10.00 R 15.00 . The vending muchine will unly ixept the following denominations: R20, R10. R5, R2 and R1 .Mnies accepted for nurchaseswl not he added to the monies allocated for change. Immediately alter refreshing. the vending machine has the following quantities uf each munetary denumination for change Tuble 3)

please help me ASAP ...l need a code yoour

Criven products in a vending machine (Tahle and their respective prices (Table 2), develop VBA ende that would undertake the tollowing tasks after the customer clicks the 'purchase a producibttn: u. Tutheじustomer: i. Reive the custum' selcted product codu ii. Cunlim and display the customer's selected pruduct und product price. iii. Roccive the customer's moncy which may be input in onc or morc of the prescrihed denominations (Tahle 3). iv. Flag any input error. ag any processing error Determine (and inform theじustomer) if Lhe selected pruduct is unavailable. If unavailable, another product may be selected. vi. vii. Determine and inform the customer) if change for the selected prnduct is unavailahle. If unavailahle, another product may be selected. viii. Prevent (und infurrrı) the customer fruln receivin,เน pruduct if the total of the munies input by the customer is less than the selected product price Disnense the selected prnduct without change if the total nf the monies input hy the customer is equal to the product prioe nr dispense the product with the correct change in specitied denominations shonld the total uf the munies input by he custer be more han the product price ix. h. To the owner of the vending machine: x. Culculate ad display the change in the dilferent otry denominatios remaining in the machine. xi. Culculate and display the quantity of euch pruduct remaining in the mauhine. fx3 marks) dditional information: Harduupy alguritm. Bonus marks (e.g. efficiency of VBA code, se of comments, user-fricndlincss....) The vending machine products and monies for change are refreshed at the same time weekly There are 10 uf each product within the vending mahine immediately after refreshing. 3 marksi 2 marks Table 1. Products and product codes Simba cheese und onion Product cnde: 11 Doritns Product cude: 21 Snickers Product cnde: 31 Coca-Cola Product Lucie: 41 Simba Nik Nuks Product cnde: 12 Fet sum mor Product ude: 22 Bar Onじ Product cnde: 32 BonAqua Product we: 42 Fritos cum chips Product cnde: 13 Product code: 14 Lu Diddle Daddle Product cude: 23 | Pruduut code: 24 Product code: 33 Product code: 34 ProductじUde: 43 | Prud uut code: 44 Kit Kat Lunch Bar Fanta Cirape Twist Table 2. Prices R 10.00 R 10.00 R 10.00 R 15.00 R 10.00 R 5.00 R 10.00 R 10.00 R 10.00 R 5.00 R 10.00 R 15.00 R 10.00 R 10.00 R 10.00 R 15.00 . The vending muchine will unly ixept the following denominations: R20, R10. R5, R2 and R1 .Mnies accepted for nurchaseswl not he added to the monies allocated for change. Immediately alter refreshing. the vending machine has the following quantities uf each munetary denumination for change Tuble 3)

Answer 1

Answer: See the code below:

1. VendingMachineForm.Designer.vb: System generated class. Don't modify

------------------------.

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class VendingMachine
Inherits System.Windows.Forms.Form

'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ProductLabel = New System.Windows.Forms.Label()
Me.ProductComboBox = New System.Windows.Forms.ComboBox()
Me.PurchaseProductButton = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'ProductLabel
'
Me.ProductLabel.AutoSize = True
Me.ProductLabel.Location = New System.Drawing.Point(33, 33)
Me.ProductLabel.Name = "ProductLabel"
Me.ProductLabel.Size = New System.Drawing.Size(77, 13)
Me.ProductLabel.TabIndex = 0
Me.ProductLabel.Text = "Select Product"
'
'ProductComboBox
'
Me.ProductComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ProductComboBox.FormattingEnabled = True
Me.ProductComboBox.Items.AddRange(New Object() {"Simba cheese and onion", "Simba Nik Naks", "Fritos corn chips", "Lays", "Doritos", "Fet sum mor", "Diddle Daddle", "Oreo", "Snickers", "Bar One", "Kit Kat", "Lunch Bar", "Coca-cola", "Bon Aqua", "Fanta Grape", "Twist"})
Me.ProductComboBox.Location = New System.Drawing.Point(128, 34)
Me.ProductComboBox.Name = "ProductComboBox"
Me.ProductComboBox.Size = New System.Drawing.Size(121, 21)
Me.ProductComboBox.TabIndex = 1
'
'PurchaseProductButton
'
Me.PurchaseProductButton.Location = New System.Drawing.Point(130, 81)
Me.PurchaseProductButton.Name = "PurchaseProductButton"
Me.PurchaseProductButton.Size = New System.Drawing.Size(119, 23)
Me.PurchaseProductButton.TabIndex = 2
Me.PurchaseProductButton.Text = "Purchase a Product"
Me.PurchaseProductButton.UseVisualStyleBackColor = True
'
'VendingMachine
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(354, 273)
Me.Controls.Add(Me.PurchaseProductButton)
Me.Controls.Add(Me.ProductComboBox)
Me.Controls.Add(Me.ProductLabel)
Me.Name = "VendingMachine"
Me.Text = "Vending Machine"
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub

Friend WithEvents ProductLabel As Label
Friend WithEvents ProductComboBox As ComboBox
Friend WithEvents PurchaseProductButton As Button
End Class

---------------------------------------

2. VendingMachineForm.vb: User class. Write all your code in this class.

--------------------------------

Public Class VendingMachine
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles PurchaseProductButton.Click
Dim ProductCodes = New Integer() {11, 12, 13, 14, 21, 22, 23, 24, 31, 32, 33, 34, 41, 42, 43, 44}
Dim ProductPrices = New Double() {10.0, 10.0, 10.0, 10.0, 10.0, 5.0, 5.0, 10.0, 10.0, 10.0, 10.0, 10.0, 15.0, 10.0, 15.0, 15.0}
Dim SelectedProductIndex As Integer
SelectedProductIndex = ProductComboBox.SelectedIndex
If Not (SelectedProductIndex > -1) Then
MsgBox("No Product selected. Please try again.")
Else
Dim SelectedProduct As String
SelectedProduct = ProductComboBox.SelectedItem
Dim MsgToShow = "Selected Product: " & SelectedProduct & ", Price: R " & ProductPrices(SelectedProductIndex)
MsgBox(MsgToShow)
End If
End Sub
End Class
---------------------------------