Vending Machine Simulation help

Question

I am doing a vending machine project for my computer science class. I really don't know to much. It is button oriented so no text boxs. I have a label for my Cost amount but i don't know how to make the cost show when i select A1. What do i do? 

Answer 1

I am doing a vending machine project for my computer science class. I really don't know to much. It is button oriented so no text boxs. I have a label for my Cost amount but i don't know how to make the cost show when i select A1. What do i do? 
I presume that A1 is button 1 in column A.
You would probably start by creating a separate button click event handler for each button, by  double-clicking the button in the designer.  A template event handler for the click event will be created.  Now add the code
  LabelCost.Text = A1Cost.ToString
You night want to get fancy and format it as dollars and cents.  The problem is that it will become impractical to keep a separate variable for each item cost, and you will probably need a description for the item as well as cost. Also, that code
needs to be repeated for every button.   A better approach is a collection of some sort for the products - a dictionary is convenient  - and a common handler for all buttons.
Option Strict On
Public Class Vending
Dim Products As New Dictionary(Of String, Decimal)
Dim Selection As String = ""
Dim ItemCost As Decimal = 0D
Private Sub Vending_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Initialise Products
Products.Add("Apple", 1.2D)
Products.Add("Banana", 2.4D)
Products.Add("Orange", 1.5D)
'Initialise Buttons
A1.Text = "Apple"
A2.Text = "Apple"
A3.Text = "Banana"
A4.Text = "Banana"
A5.Text = "Orange"
A6.Text = "Orange"
End Sub
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
A1.Click, A2.Click, A3.Click, A4.Click, A5.Click, A6.Click
Dim B As Button = CType(sender, Button)
Selection = B.Text
ItemCost = Products(Selection)
LabelSelection.Text = Selection
LabelItemCost.Text = ItemCost.ToString
End Sub
End Class