Solved

Calculates and display gallons of water used and  total charged

Posted on 2011-03-21
5
155 Views
Last Modified: 2014-10-24
Code an application so that it calculates and displays the number of gallons of water used and the total charge for water. the charge for the water is $1.75 per 1000 gallons or .00175 per gallon. Make the calculations  only when the current meter reading is greater than or equal to the previous meter reading; other wise diplay an approiate message.Displya total charge with a dollar sign and two decimals. the text boxes should only accept numbers and th backspace key.Clear number of gallons used and the total charge when a change is made to contents. when a text box receives focus, select its exsisiting text.


I have attached the zip file of what I have so far  
Allenton-Solution.sln
0
Comment
Question by:sweety53216
  • 2
5 Comments
 
LVL 51

Expert Comment

by:HainKurt
ID: 35181886
your attached file is not showing any code... you posted solution file by mistake instead of code file...
0
 

Author Comment

by:sweety53216
ID: 35181982
ublic Class Form1

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()

This is what I have so far

    End Sub

    Private Sub bntCalc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bntCalc.Click
        'calculates total gallons and total charge

        lbltotalgallons.Text = Val(TxtCurrent.Text) - Val(Txtprevious.Text)
        lbltotalcharge.Text = Val(lbltotalgallons.Text) * 0.00175
        lbltotalcharge.Text = Format(lbltotalcharge.Text, "currency")
0
 
LVL 51

Accepted Solution

by:
HainKurt earned 500 total points
ID: 35182160
use Convert.ToInt32

dim pRead as int = Convert.ToInt32(Txtprevious.Text)
dim cRead as int = Convert.ToInt32(TxtCurrent.Text)
dim totalCharge as double

if (pRead<cRead) then
  totalCharge  = (cRead-pRead) * 0.00175
  lbltotalcharge.Text = totalCharge.ToString("#,000.00")
end if

check here for more formatting options:

http://msdn.microsoft.com/en-us/library/kfsatb94.aspx
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Turn A Profile Picture Into A Cartoon Using Photoshop And Illustrator This tutorial will teach you how to make a cartoon style image out of a regular picture. I have tried to keep the tutorial as simple as possible. I used Adobe CS4 for this tuto…
This article provides a case study on how our local youth baseball league deployed a new website, including the platform selection, implementation and benefits to the league.
The purpose of this video is to demonstrate how to Import and export files in WordPress. This will be demonstrated using a Windows 8 PC. Go to your WordPress login page. This will look like the following: mywebsite.com/wp-login.php : Click on Too…
The purpose of this video is to demonstrate how to prevent comment spam on a WordPress Website. This will be demonstrated using a Windows 8 PC. Plugin Akismet will be used. Go to your WordPress login page. This will look like the following: myw…

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now