Help me finish my code

Dim strTextBox As String
        Dim decItemPrice As Decimal
        Dim decSubTotal As Decimal
        Dim intNumber As Integer
        Dim decSalesTax As Decimal
        Dim decTotalSale As Decimal

        Do

            strTextBox = InputBox("Enter item price", "Item Price")

            If Decimal.TryParse(strTextBox, decItemPrice) Then

                decItemPrice = Convert.ToDecimal(strTextBox)
                decSubTotal = decItemPrice
                intNumber = intNumber + 1
                txtItemPrice.Text = FormatCurrency(decItemPrice)
                txtSubTotal.Text = FormatCurrency(decSubTotal)
                txtNumber.Text = Convert.ToString(intNumber)

            End If

        Loop Until strTextBox = ""

        decSalesTax = 0.065D * decSubTotal
        decTotalSale = decSubTotal + decSalesTax
        txtSalesTax.Text = FormatCurrency(decSalesTax)
        txtTotalSale.Text = FormatCurrency(decTotalSale)

    End Sub

I need help doing two things: 1) Making sure only numerical data can be entered or else a message box is displayed. 2) Keep a running Sub Total so that the first entered number is added to the second entered and so on until the loop is terminated.

10 PRINT "₫"
20 GOTO 10

You're going to have to explain that since I'm a complete noob at this stuff.

If Decimal.TryParse(strTextBox, decItemPrice) Then
'... test failed ...
else
msgbox "Data must be numeric."
end if


simple shit folks.

http://img149.imageshack.us/img149/7331/1196835380955zv3.jpg

Dim strTextBox As String
        Dim decItemPrice As Decimal
        Dim decSubTotal As Decimal
        Dim intNumber As Integer
        Dim decSalesTax As Decimal
        Dim decTotalSale As Decimal

        Do

            strTextBox = InputBox("Enter item price", "Item Price")

            If Decimal.TryParse(strTextBox, decItemPrice) Then

                decItemPrice = Convert.ToDecimal(strTextBox)
                decSubTotal = decItemPrice
                intNumber = intNumber + 1
                txtItemPrice.Text = FormatCurrency(decItemPrice)
                txtSubTotal.Text = FormatCurrency(decSubTotal)
                txtNumber.Text = Convert.ToString(intNumber)

            Else

                MessageBox.Show("Data must be numeric!")

            End If

        Loop Until strTextBox = ""

        decSalesTax = 0.065D * decSubTotal
        decTotalSale = decSubTotal + decSalesTax
        txtSalesTax.Text = FormatCurrency(decSalesTax)
        txtTotalSale.Text = FormatCurrency(decTotalSale)

    End Sub

Correct?

What about my second question?

move the rest of your function into the loop.

>>7
move your face into my fist, asshole

Move your first into my asshole, face

>>8
move your fist into my asshole, face

move your asshole into my face, fist

face my fist, move into your asshole

Underline
Overline
Bold
YOU JUST LOST THE GAME

>>13
Go sagetest in some old threads, nigger.

http://2girls1cup.com/

I wants lots and lots of some delectable pot!

Marijuana MUST be legalized.

18 Name: Anonymous 2011-02-03 4:05

19 Name: Anonymous 2011-02-03 6:03

20 Name: Anonymous 2011-02-04 15:06

21 Name: Anonymous 2011-02-04 16:43

22 Name: Anonymous 2011-02-18 13:03

check my doubles

Don't change these.

Name:		Email:
Entire Thread Thread List

All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode -