Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click picBox.Visible = True picBox.BringToFront() 'Sound Effect on button click My.Computer.Audio.Play(My.Resources._41089869_coffee_maker_brewing_coffee_02, AudioPlayMode.Background) Dim intCount As Integer = 1 For intCount = 1 To 1000000000 Next 'This procedure calculates the total of an order Dim decSubtotal As Decimal 'Holds the order subtotal Dim decTax As Decimal 'Holds the sales tax Dim decTotal As Decimal 'Holds the order total decSubtotal = CalcBagelCost() + CalcToppingCost() + CalcCoffeeCost() decTax = CalcTax(decSubtotal) decTotal = decSubtotal + decTax lblSubtotal.Text = decSubtotal.ToString("c") lblTax.Text = decTax.ToString("c") lblTotal.Text = decTotal.ToString("c") picBox.Visible = False End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)