[calsonstyle]

Hi, first of all i would like to thanks for all the previous help.

Now, i have 3 text box

Fat , Protein , Carbohydrate

I have one label and 1 calculate button to calculate the total calories



How do i change the following code to perform such task?

i) Add total sum of calories from Fat / protein / carbohydrate (No need enter all 3 value)

ii) Create Error message on messagebox when value in textbox is character ( currently can't calculate because got error* )



iii) How can i create "Total Entered item" code on button to display on label? I have no idea on this code

BELOW IS MY VB.NET SOURCE CODE

	Private Sub btnCalories_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalories.Click
		Dim CaloriesResult As String
		CaloriesResult = (txtFat.Text * 9) + (txtProtein.Text * 4) + (txtCarbo.Text * 4)

		If txtFat.Text = "" And txtProtein.Text = "" And txtCarbo.Text = "" Then
			MessageBox.Show("Please Enter Data")
		ElseIf txtFat.Text = "" Then
			MessageBox.Show("Please input your fat in gram.")
		ElseIf txtProtein.Text = "" Then
			MessageBox.Show("Please input your protein in gram.")
		ElseIf txtCarbo.Text = "" Then
			MessageBox.Show("Please input your carbohydrate in gram.")
		Else
			lblCaloriesDisplay.Text = CaloriesResult & " Calories"
		End If
	End Sub

This post has been edited by calsonstyle: 22 February 2009 - 12:00 PM

[UnknownCoder]

I think you might have to change the CaloriesResult variable type to Double.

[calsonstyle]

Double is just for decimal point number. Is that related?

Tested and not working

[UnknownCoder]

The Double type is a 64 bit floating-point number
The Decimal type is a 128-bit floating-point number

[calsonstyle]

Tested and not working

[UnknownCoder]

I have tested it and it works fine with the Double type; this is what I have got:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim calories As Double
		calories = (TextBox1.Text * 9) + (TextBox2.Text * 4) + (TextBox3.Text * 4)
		Label4.Text = calories & " Calories"
	End Sub

[calsonstyle]

If there is an character ( abc ) on one of the text box, there will be an error occur

[UnknownCoder]

Just use a simple error sequence then and maybe changed the textboxes to masked textboxes.

[calsonstyle]

Can you post some example code as reference? I'm not sure about how to create the masked

[calsonstyle]

Can you post some example code as reference? I'm not sure about how to create the masked

[Bort]

MaskedTextBoxes are a type of control already available.

Either that, or use the statement If IsNumeric... to determine if the values of the textboxes are numbers. If they are, you will need to convert them to integer/double format before you start adding them, then convert the total amount back to string format to be displayed in your label.

Hope this gives you an idea of where to look for answers

Bort

[woodjom]

Bort, on 24 Feb, 2009 - 08:39 AM, said:

MaskedTextBoxes are a type of control already available.

Either that, or use the statement If IsNumeric... to determine if the values of the textboxes are numbers. If they are, you will need to convert them to integer/double format before you start adding them, then convert the total amount back to string format to be displayed in your label.

Hope this gives you an idea of where to look for answers

Bort

Yeah your best bet is to either implement a Structured Data entry, utilizing a normalizing statement sequence such as Regular Expressions, or utilizing the built in functions to VB.Net

[Wrecks]

Have you tried something like this?

calories = (Val(TextBox1.Text) * 9) + (Val(TextBox2.Text) * 4) + (Val(TextBox3.Text) * 4)