Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Calculates and display gallons of water used and  total charged

Posted on 2011-03-21
5
Medium Priority
?
180 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
5 Comments
 
LVL 59

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 59

Accepted Solution

by:
HainKurt earned 2000 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

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When deciding to adopt any help desk solutions many factors should be explored before taking decisions. This will change from business to another but in general there are some kind of rule of thumb. Here are some quick tips: Do we need only ticket…
In this short web based tutorial, I wanted to show users how they can still use the powers of FrontPage in conjunction with Expression Web 3.  Even though Microsoft eliminated the use of Web components, we can still use them with FrontPage and edit …
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 integrate Mailchimp with Facebook. This will be demonstrated using a Windows 8 PC. Mailchimp and Facebook will be used. Log into your Mailchimp account. : Click on your name. Go to Account Setti…

715 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