Using Loop - Showing Total Cost And Adding Indexes Together
May 5, 2009
I have a class project that I have been working on for a while, and I can't figure out how to add each cost from lstCosts together to show a total cost of the selected workshops in lblTotalCost. Using the current loop that I have, it only adds the last cost in lstCosts. Is there a way to add the indexes together?
Code:
Public Class Form1
' The registration fee for each workshop
Const intSTRESS As Integer = 595 ' handling stress
Const intMANAGEMENT As Integer = 695 ' time management
Const intSKILLS As Integer = 995 ' supervision skills
[Code] .....
How do I code the total cost to give me a pound sign with the total cost at the moment when the total comes up for an example it gives me 3.6 when I need it to show £3.60 here is the code I have so far. [code]
I'm have successfully did a shortcut "+" and "-" button to increase and decrease the qty ordered. But by doing so, i now have problem tabulating the cost for each item. Below is the print screen for my application. You will realised that the Lamb tandoori which is going for $3 cost only $21 after increasing the quantity ordered using the "+" button.In addition, i have created different list boxes for different food categories.Each category's food items is selling at the same price.
I have a class assignment where i have to calculate the total cost of a parking garage from hours but i have to do it with a method function. So this might be a stupid question but can you read the user input values from a textbox in the function itself or do they have to be read in and recalled from the Private Sub Button1_Click section?
Create an application that calculates the total cost of a stay in a hotel in the North Carolina mountains. The application should accept the following in terms of input:Month of Check in Length of Stay (in Nights) Number of Persons Room Service Charges Phone Charges Other Charges If the check in occurs in November-March the rate is $89/night. April-August is $99/night and September-October is $109/night. $10/night should be added if more than 2 people are in the room. More than 4 people are not allowed in the room, and a traveler can only request 1 room. A 15% tax should be added to the room rate and 10% tax added to all room service and other charges. No tax will be added for phone charges.
The program should use a function to calculate the total charges for the visitor's stay and output it to a label. There should be buttons or menus to calculate the total, clear the form, and exit the application.At least one of the button should call a sub procedure which performs its function. I don't understand how to set this program up and I'm not sure what it means.
How to update the total cost after every item is selected and the user clicks enter...
Private Sub calcbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcbutton.Click Dim amount As Double Double.TryParse(amounttextbox.Text, amount) Dim total As Double [Code] .....
I'm trying to calculate the total cost for gas for a Chevy and a Buick on a form. The total miles is 21 for city and 33 for freeway. I'm also putting in the mpg for each, for city and freeway. How would I set up the labels to display the right amount? Do I use If Then statements?
Create an application that calculates the total cost of a stay in a hotel If the check in occurs in November-March the rate is $89/night. April-August is $99/night and September-October is $109/night. $10/night should be added if more than 2 people are in the room. More than 4 people are not allowed in the room, and a traveler can only request 1 room. A 15% tax should be added to the room rate and 10% tax added to all room service and other charges. No tax will be added for phone charges.
The program should use a function to calculate the total charges for the visitor's stay and output it to a label. There should be buttons or menus to calculate the total, clear the form, and exit the application. At least one of the button should call a sub procedure which performs its function. [Code]
This is my project for class and this is what i have so far but my teacher gave me no credit. What am i doing wrong? i tried rearranging it but no success.
A fast-food vendor sells pizza slices at $1.25 each, fries at $1.00, and soft drinks at $0.75. Write a program to computer a customers bill. The program should use 4 subprocedures that do the following:
1. read in the amount of each item ordered
2. calculate the total cost
3. display an itemized bill
4. read in the users full name from a textbox, and display a sentence, addressing the user by first name only and in upper case characters, informing the user of their bill
Here is an example itemized bill: Item Quantity Price Pizza slices 3 $1.25 Fries 4 $1 Soft drinks 5 $0.75 Total $11.50
Example sentence for point 4: if the user name was entered as John Smith, you would display the sentence JOHN, your bill is $11.50.
MY
Public Class Form1
Sub pizza(ByVal pizzap As Double, ByVal pizzanum As Double) lstoutput.Items.Add("Pizza Slices" & pizzap & "and" & pizzanum & "is" & (pizzap * pizzanum) & ".")
I am working with VB 2008. I want to be able to run this program say in N: and it will show me in an excel sheet the following:
Folder Path Size(GB) Count of Files N:Clients 0.53 308
where clients contains subfolders and files and the size is the total of all those files within each folder and the count is the total within each folder also.
This works fine as it is but i have to select one by one the top level folders and some of them are huge so it takes forever to give me an answer.
1) I would like to see in my spreadsheet the following by only select the network drive n:
I am running into trouble with some code I am doing for an assignment. The section within the apostrophes (If Then Else) is the section that I am having trouble with. When the user selects a seat type and then clicks the compute button, the wrong cost is displayed instead of an accurate cost.
Option Strict On Public Class frmTickets
Private Sub btnComputeCost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnComputeCost.Click Dim intNumberOfTickets As Integer
I am using a select case loop to perform different tasks, one of the tasks the loop is doing is putting 1d arrays together into 3d arrays. But, when i come to print the 3d array only the 3rd "line" in the array is complete. Is there a way to pass variables created in a select case out of the select case?
Here is some code to try and explain better: Select Case Int() Case Is = 13
I'm new to forums as well as new to VB 2008. I'm in process of making a order calculator which will total any values you selected in combo boxes/checkboxes and then display it in a selected area. There are 3 things that I want to achieve: 1. Be able to add another total to an existing total (currently I'm able to see only one total when I hit "Calculate" button)2. Display how many orders I have made so far (new total counts as one order)3. Be able to add up checkboxes selected to an overall total. (when I try to add up one checkbox with another it seems to be stuck on 1.5 pounds which I assigned for each "side order")
In my program I want to add some values together with a running total, and then show that total in a text box. When I try to run it, though, it just shows zero.Here's the code I'm using
TotalPrice = TotalPrice + Price Next TxtLuggage.Text = TotalPrice
I loaded up a checkedListBox with items form a .txt file. The .txt file has itemName, ItemPrice. Every item that gets checked shows up in a listBox on another form. The problem that I am having though is that I need to accumulate the itemPrices of the selected items to show up in a textBox, but the only price that shows up is the price of the item in the checkedListBox that has the focus. I'll add the code to this:
Public Class Form3 'define the Product structure Structure Product Public itemName As String Public itemPrice As Decimal [Code] .....
I have a program where I have to calculate straight-line depreciation (cost * 1/n) n being the number of years to depreciate, and Double-Declining depreciation (cost * 2/n) using user input for year of purchase, cost, and years of depreciation. The output needs to be put into 4 columns in a list box. Year, Value at beginning of year, Amount of depreciation during the year and Total depreciation to the end of the year.
The problem I am having is with my loop. It is not properly calculating. I'm sure I am doing something wrong that is simple, but I can't see it.
Here is my code; the problem areas are bold:
Public Class frmDepreciation
Dim Cost, Life, Year, Depreciation, BegValue, EndValue, Total, Counter As Double Dim fmtStr As String = "{0,-10}{1,10}{2,17}{3,5}{4,-15}" Dim fmtStr2 As String = "{0,-10}{1,10}{2,17}{3,15}"
How can I add a loop to this sequence to make the program give a total of the figures in the domestic and international columns when the word "ALL" is typed into the month textbox, instead of a number. The domestic total should go into the domestic textbox, the international total should go into the international textbox and the total of the domestic and international should go into the companytotal textbox.
Im having a bit of trouble with my program. I have a few items that are selected by checkbox to add to a Textbox but the problem Im having is if I dont uncheck the textbox the checkboxes just make the total keep adding up. So if I have an item selected and I want to add another one by clicking its checkbox it adds the other ones to the total again and thats not what I want to do.
Dim num1 As Integer = 100 Dim num2 As Integer = 500 Dim num3 As Integer = 200 Dim num4 As Integer = 80
every time i select an item from the listbox (just 1 at a time), it'll add that item's price to the total. but for some reason it's not doing it. can someone check out my code and see what's wrong with it? i'm getting the item price as the total (what I want it to do is add onto the total)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim total, grandtotal As Decimal If lbSelect.SelectedIndex = 0 Then total = 10
I am trying to filter a dataset by adding together numbers within a specified field (say field1) within the dataset until i reach a specified number.
The filtered dataset should either be precisley equal to the number or most likley less than. In short if a row exceeds the number it should revert to the previous record.
I have no probs with general filtering and using data adapters to access the data. But im struggerling with the loop side of things.
I have written a function that gets the alexa ranking of a given url, now this function works perfectly but I want to loop through a ListView of urls and grab the alexa rank of each item (url) with my function.The code works great if I put a MessageBox in the loop to test that the function is returning a value but when I remove the MessageBox the loop does not work.I need it to loop through adding each result without a MessageBox stop in each loop.
vb For Each Item In ListView1.Items Dim result As Integer result = GetAlexaRank(Item.Text)
so i need to make a program that adds the values between 1-100 to total up to 5050 but with that being said im not sure how i would code that. since its supposed to add all the numbers from 1-100 like 1 + 2+3+4+5+6+7+8+9+10= 55 and im supposed to make the program do that until 100
I'm having some major issues with this little booger. I will supply what I've tried, but let me explain what it should do first.
Upon the text change event, if the item number is found in the DB, it should add it to the list. Then, take the 7th sub item, and place it on a label. Each time a new item is added, the cost's should add together to give me a total. Simple enough right ?
CODE:
This is a huge mess, I'm very tired and not real sure how to do it. But the item is adding twice for some reason, sometimes after I've added it one time (appears twice) and add it again, it might add 4 times, or 5. And when two items are in there, the cost displayed on lblPrice is 4x as much as it should be. Can anyone point out where I'm all screwed up, and maybe suggest a different way to go about it ?
