0

Hello

i need your help in calculating this.

i have 5 textbox with text: N203.00, N40.00, N500.00 .....

how do i add this textbox text and display result on a label.

Thanks
TiM

4
Contributors
7
Replies
8
Views
5 Years
Discussion Span
Last Post by Nutster
0

If all the entries consist of "N" followed by a number you could get the numeric portion by

CDbl(txtNumber.Text.Substring(1))
0

am actually new to programming.. thanks for your comments. i want to know how i can apply them to my code currently i have

   label7.text = Val(textbox1.text) + Val(textbox2.text) + Val(textbox3.text) ....

which is not working..

1

You could do

label7.Text = CDbl(textbox1.Text.Substring(1)) _
            + CDbl(textbox2.Text.Substring(1)) _
            + CDbl(textbox3.Text.Substring(1))

etc. This assumes that there are valid values in all of the textboxes. Proper code should do error checking.

0

Thanks Alot Jim, what if some of the textbox is empty? that is if some or one textbox doesnot contain any value i want to always calculate to get the total of textboxes with value out of all the textboxes.

1

Then you might consider putting all of the textboxes into a GroupBox and doing the following

Dim sum As Double = 0.0

For Each tbx As TextBox In GroupBox1.Controls.OfType(Of TextBox)()
    If tbx.Text <> "" AndAlso IsNumeric(tbx.Text.Substring(1)) Then
        sum += CDbl(tbx.Text.Substring(1))
    End If
Next

MsgBox("sum is " & sum)
0

In the validation code for each textbox, make sure the text is well-formed. If it is, store the value in a module-level private Integer value. If not, cancel the validation, forcing the user to enter a valid value. Allow an empty field, which loads the module-level variable with 0. In the end, just add up all the module-level variables and display the result.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.