Visual Basic .NET Gurus help needed please

[Hawkeye-X]

I'm having trouble trying to get this button to work
correctly:

This is part of my homework and I don't know if I screwed it
up or something.. 

This is the "Next Item Button" which is supposed to
validate the quantity, weight and price. Each must be present
and numeric. For any bad data, display a message box.
Calculate the charge for the current item and add the charge
and weight into the appropriate totals. Do not calculate
shipping and handling on the individual items, but rather,
calculate the shipping and handling in the entire order.

Here is what I have done so far:

 Dim mdecDue As Decimal
    Dim mdecTotal As Decimal
    Dim mdecWeightTotal As Decimal
    Dim mdecWeight As Decimal
    Dim mdecGrandTotal As Decimal
    Const mdecShip As Decimal = 0.25D
    Const mdecHandleLight As Decimal = 1D
    Const mdecHandleMed As Decimal = 3D
    Const mdecHandleHeavy As Decimal = 5D
    Const mdecTAX_RATE As Decimal = 0.08D

    Private Sub btnNext_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnNext.Click

        Dim intQuantity As Integer
        Dim decPrice As Decimal
        Dim decWeight As Decimal
        Dim decTotal As Decimal
        Dim decTaxTotal As Decimal
        Dim strMessage As String

        If txtQuantity.Text <> "" Then
            If IsNumeric(txtQuantity.Text) Then
                'Good Data, let's perform calculations
                Try
                    intQuantity = CInt(txtQuantity.Text)
                    decTotal = decPrice * intQuantity
                    decWeight = CInt(txtWeight.Text)
                    If decWeight < 10 Then
                        mdecWeightTotal = decTotal +
mdecHandleLight + (mdecShip * decWeight)
                    ElseIf decWeight >= 10 And decWeight
<= 100 Then
                        mdecWeightTotal = decTotal *
mdecHandleMed + (mdecShip * decWeight)

                    ElseIf decWeight > 100 Then
                        mdecWeightTotal = decTotal *
mdecHandleHeavy + (mdecShip * decWeight)
                    End If
                    mdecWeight += decWeight
                    lblDue.Text = FormatCurrency(mdecTotal)
                    lblShip.Text =
FormatCurrency(mdecWeightTotal)
                Catch
                    strMessage = "Calculation Error"
                    MessageBox.Show(strMessage,
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            Else
                'Nonnumeric Data
                strMessage = "Nonnumeric data."
                MessageBox.Show(strMessage, "Data Entry
error", MessageBoxButtons.OK, MessageBoxIcon.Information)
                txtQuantity.Focus()
            End If
        Else 'Missing data
            strMessage = "Enter the quantity."
            MessageBox.Show(strMessage, "Data Entry
error", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

[Hawkeye-X]

1. duhhh

Not done though, but added the following:

decPrice = cDec(txtPrice.text)

That should help resolve my calculation.

[meegbear]

2. Do your own homework!!!

Jeez buddy, how are you gonna learn?

[sangh0]

3. So what's the problem?

You have the code, but you don't say what's going wrong!

[sangh0]

4. What's this?

If decWeight < 10 Then
mdecWeightTotal = decTotal +
mdecHandleLight + (mdecShip * decWeight)
ElseIf decWeight >= 10 And decWeight
<= 100 Then
mdecWeightTotal = decTotal *
mdecHandleMed + (mdecShip * decWeight)

ElseIf decWeight > 100 Then
mdecWeightTotal = decTotal *
mdecHandleHeavy + (mdecShip * decWeight)
End If

Is there a reason why you have "decTotal +" for the 1st IF condition, but "decTotal *" for the other conditions?

[Hawkeye-X]

6. I know.

That's where I messed up. I fixed that part, I think.

I took out the mdecTotal and put it in another line outside of the IF statement.

[Hawkeye-X]

5. Hmm..

I'm still working on it. If I'm in a nowheresville situation, I'll let you know.

[sangh0]

7. You can use the F11 key

to step through the code, line by line.