Posted by Brenda on Sunday, April 17, 2011 at 9:59am.
Iím using VB 2008. I need to
write a simple program that calculates total sales of purchases. The program should accept item costs as input calculate the tax on each item (8%) display the item cost, total cost, and total after taxes. Item costs will be added to a listbox while the total without the taxes will be displayed in a label, the tax amount in another label, and finally, the total cost (items cost + tax) in a third label.
Public Class Form1
Dim strTotal As Double = 0
Private Sub txtItemCost_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtItemCost.Enter
' select the Item Cost
Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
' declare valiables
Dim strTaxAmt As Double
Dim strTotalTax As Double
Dim strItemCost As Double
Dim strTotal As Double
' add items listbox
strItemCost = CDbl(lstItemCosts.Text)
strTotal = strTotal + strItemCost ' add to running total
' calculates totals
strTaxAmount = strTotal * 0.08
strTotalWTax = strTotal + strTaxAmount
txtTotal.Text = strTotal
txtTaxAmount.Text = strTaxAmount
txtTotalWTax.Text = strTotalWTax
' insert a dollar sign as the first character
strTotal = strTotal(0, "$"), "Currency")
strTaxAmount = strTaxAmount(0, "$")
Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
Answer this Question
vb programing - I need help to create a project for vb auto center from ...
VB Programming - Haw to create a web application for a vb auto center project ...
Programming - Iím using VB 2008. I need to write a simple program that ...
VB 2008 Programming - HELP!!!! I'm not sure How to get started nor the steps to ...
programming - You are required to design and write an application that will ...
computers - an introduction to programming and visual basic 2008 page 39 ...
IT Programming in South Africa for a 2007 matric.. - IT Programming in South ...
Computer programming - Sorting is a common operation used in programming. ...
accounting - On March 1, 2008, five-year bonds are sold for $254,013 that have a...
Physics - Hi, i need help on the following questions. Thank you. 1) The ...