Could some one help me Having Major issue with trying to figure out coding buttons

[ldelvoye]

5. When the “Accumulate” button is clicked:
i. You are to keep grand totals for the Hours and Amount Due for each type of Package.
i. This requires three class-level variables for the Hours, i.e. one for the Package A hours, one for the Package B hours, and one for the Package C hours.
ii. Similarly, you will need three class-level variables for the Amounts.
j. Check the RadioButtons to see which Package is selected and add the Hours and Amount Due into the corresponding set of class-level variables.
k. Also, disable the “Accumulate” button.

6. When the “Reset” button is clicked, display a MessageBox asking to verify the reset:
l. Include “OK” and “CANCEL” buttons.
m. If “OK” clicked, then:
i. Clear all Textboxes & Labels.
ii. Reset all RadioButtons & CheckBoxes.
iii. Reset the title bar to its original value.
iv. Enable the “Validate” button.
v. Disable the “Calculate” and “Accumulate” buttons.
n. If “CANCEL” clicked, then leave the form alone and exit.

7. When the “Exit” button is clicked:
o. Use a MessageBox to display the grand totals for each type of Package.
p. Close the form.




that is what I need to do and this is what I have.

    Private Sub btnCustomer_Click(sender As Object, e As EventArgs) Handles btnCustomer.Click
        btnCustomer.Enabled = True
        btnCharges.Enabled = False
        Dim lastName As String = Nothing
        Dim spaceCharPos As Integer = txtName.Text.IndexOf(" ")
        If spaceCharPos > -1 Then
            lastName = txtName.Text.Substring(spaceCharPos)
        End If
        If txtName.Text = String.Empty Then
            MessageBox.Show("Please enter your first and last name.")
            txtName.Focus()
        End If
 
 
        If txtName.Text.IndexOf(" ") = -1 Then
            MessageBox.Show("Please put a space between First and Last name.")
        End If
 
        Dim city As String = Nothing
        Dim commaCharPos As Integer = txtCityState.Text.IndexOf(",")
        If commaCharPos > -1 Then
            city = txtCityState.Text.Substring(0, commaCharPos)
        End If
        If txtCityState.Text = String.Empty Then
            MessageBox.Show("Please enter your City and State")
            txtCityState.Focus()
        End If
 
 
        If txtCityState.Text.IndexOf(",") = -1 Then
            MessageBox.Show("Please insert a comma between Clity & State.")
        End If
 
        Me.Text = lastName & " from " & city
        btnCustomer.Enabled = False
        btnCharges.Enabled = True
        btnTotals.Enabled = True
 
    End Sub
    Private Sub btnCharges_Click(sender As Object, e As EventArgs) Handles btnCharges.Click
        btnCharges.Enabled = True
        btnCustomer.Enabled = False
 
        Dim decTotal As Decimal
        Dim intHours As Integer
        Const decNonProfit As Decimal = 0.8D
 
            intHours = CInt(txtHours.Text)
 
            If CInt(txtHours.Text) > 744 Then
                MessageBox.Show("Monthly Hours Can't Exceed 744")
                txtHours.Text = String.Empty
                lblAmountDue.Text = String.Empty
            End If
            If radA.Checked = False Then
            ElseIf radB.Checked = False Then
            ElseIf radC.Checked = False Then
 
                MessageBox.Show("Please select an internet package to proceed")
                btnTotals.Enabled = False
            End If
 
 
 
            If radA.Checked Then
                If intHours > 10 Then
                    decTotal = CDec((9.95 + ((intHours - 10) * 2)))
                ElseIf intHours <= 10 Then
                    decTotal = CDec(9.95)
                End If
            End If
 
            If radB.Checked Then
                If intHours > 20 Then
                    decTotal = CDec((14.95 + ((intHours - 20) * 1)))
                ElseIf intHours <= 20 Then
                    decTotal = CDec(14.95)
                End If
        End If
 
            If radC.Checked Then
                decTotal = CDec(19.95)
            End If
 
            If chkNonProfit.Checked = True Then
                decTotal = decTotal * decNonProfit
 
            End If
 
            lblAmountDue.Text = decTotal.ToString("c")
 
    End Sub
 
    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
        radA.Checked = False
        radB.Checked = False
        radC.Checked = False
        chkNonProfit.Checked = False
        lblAmountDue.Text = String.Empty
        txtHours.Text = String.Empty
        txtName.Clear()
        txtCityState.Clear()
        txtName.Focus()
        btnCustomer.Enabled = True
        btnCharges.Enabled = False
        btnTotals.Enabled = False
        VarGetInput()
    End Sub
 
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Dim GrandTotal As Integer
        Dim decPackA, decPackB, decPackC As Decimal
 
        GrandTotal = CInt(decPackA + decPackB + decPackC)
 
        GrandTotal = CInt("Package A: " & decPackA.ToString("c"))
        GrandTotal = CInt("Package B: " & decPackB.ToString("c"))
        GrandTotal = CInt("Package C: " & decPackC.ToString("c"))
        GrandTotal = CInt("Grand Total:" & GrandTotal.ToString("C"))
 
    End Sub
End Class

[Luk3r]

You have not stated what kind of error you're getting, what's not working, or where exactly in the code you're having an issue. A little more detail would be mighty helpful.


You also have quite a bit of cleanup that can be done to make your code easier to look at to decipher what's going on. See below for examples:


This:

If radA.Checked = False Then
 ElseIf radB.Checked = False Then
 ElseIf radC.Checked = False Then
 
 MessageBox.Show("Please select an internet package to proceed")
 btnTotals.Enabled = False
 End If

To This:

If radA.Checked = False andAlso radB.Checked = False andAlso radC.Checked = False Then
  MessageBox.Show("Please select an internet package to proceed")
  btnTotals.Enabled = False
End If

and This:

If radA.Checked Then
 If intHours > 10 Then
 decTotal = CDec((9.95 + ((intHours - 10) * 2)))
 ElseIf intHours <= 10 Then
 decTotal = CDec(9.95)
 End If
 End If
 
 If radB.Checked Then
 If intHours > 20 Then
 decTotal = CDec((14.95 + ((intHours - 20) * 1)))
 ElseIf intHours <= 20 Then
 decTotal = CDec(14.95)
 End If
 End If
 

To This:

If radA.Checked andAlso intHours > 10 Then
  decTotal = CDec((9.95 + ((intHours - 10) * 2)))
ElseIf radA.Checked andAlso intHours <= 10 Then
  decTotal = CDec(9.95)
End If
 
If radB.Checked andAlso intHours > 20 Then
  decTotal = CDec((14.95 + ((intHours - 20) * 1)))
ElseIf radB.Checked andAlso intHours <= 20 Then
  decTotal = CDec(14.95)
End If

[ldelvoye]

I think I figured out the getting a messagebox to work on my reset button but I am new to this and cannot seem to figure out a how to get the code the calculations on the accumulate and how to get the grand total working on the exit button for a message box. I am not using the right coding for any so the error messages are multiple. Like Conversion from string "Package A: $0.00" to type 'Integer' is not valid.

[ldelvoye]

thank you for that much easier and help more on it making sense

[Luk3r]

No problem. Your exit button can be cleaned up by doing the following, but please note, you're not actually specifying amounts for deckPackA, B, or C anywhere in your code:

MsgBox("Package A: " & decPackA & "c" & vbCrLf & "Package B: " & decPackB & "c" & vbCrLf & "Package C: " & decPackC & "c" & vbCrLf & "Grand Total: " & GrandTotal & "C")

[ldelvoye]

I know that is where the accumulate button comes in and I don't know how to do that.

When the “Accumulate” button is clicked:
i. You are to keep grand totals for the Hours and Amount Due for each type of Package.
i. This requires three class-level variables for the Hours, i.e. one for the Package A hours, one for the Package B hours, and one for the Package C hours.
ii. Similarly, you will need three class-level variables for the Amounts.
j. Check the RadioButtons to see which Package is selected and add the Hours and Amount Due into the corresponding set of class-level variables.
k. Also, disable the “Accumulate” button.

[Luk3r]

I will try to find some time to help tomorrow unless someone else steps in. I don't have Visual Studio on my computer at home and my work day is over. Good luck and keep me up-to-date if you make any progress!

[ldelvoye]

I will do that and Thank you very much for your help

[Luk3r]

Good morning, ldelvoye. Below should help you in moving forward.

First things first, you need to declare 7 class variables. Three for package totals, three for package hours, and one for the grandtotal of cost. That would look like this:

Public Class Form1
    Dim decPackA As Integer
    Dim decPackB As Integer
    Dim decPackC As Integer
    Dim decPackAHours As Integer
    Dim decPackBHours As Integer
    Dim decPackCHours As Integer
    Dim GrandTotal As Integer

Next, you need to know what to do with those variables. You need to manipulate them by always making them larger each time the btnCharges button is clicked. Like this:

        If radA.Checked AndAlso intHours > 10 Then
            decTotal = CDec((9.95 + ((intHours - 10) * 2)))
            decPackA = decPackA + decTotal
            decPackAHours = decPackAHours + intHours
        ElseIf radA.Checked AndAlso intHours <= 10 Then
            decTotal = CDec(9.95)
            decPackA = decPackA + decTotal
            decPackAHours = decPackAHours + intHours
        End If
 
        If radB.Checked AndAlso intHours > 20 Then
            decTotal = CDec((14.95 + ((intHours - 20) * 1)))
            decPackB = decPackB + decTotal
            decPackBHours = decPackBHours + intHours
        ElseIf radB.Checked AndAlso intHours <= 20 Then
            decTotal = CDec(14.95)
            decPackB = decPackB + decTotal
            decPackBHours = decPackBHours + intHours
        End If

Then, in your accumulate button and exit button, you need to specify the grandTotal, by adding decPackA, B, and C, throw a MsgBox with that data, and close the form. Like this:

        GrandTotal = decPackA + decPackB + decPackC
        MsgBox("Package A: " & decPackA.ToString("c") & vbCrLf & "Package A Hours: " & decPackAHours & vbCrLf & "Package B: " & decPackB.ToString("c") & vbCrLf & "Package B Hours: " & decPackBHours & vbCrLf & "Package C: " & decPackC.ToString("c") & vbCrLf & "Package C Hours: " & decPackCHours & vbCrLf & "Grand Total: " & GrandTotal.ToString("c"))
        Me.Close()

One other thing you would be wise to do is, if you have a messagebox throwing an "error" to the end user because they forgot to fill out data, you should exit the sub routine so that the code does not keep running when it should actually be exiting. I added a little bit of error handling to one of your sections of code so you can see what I'm talking about. Like this:

        If (txtHours.Text.Length > 0) Then
            intHours = CInt(txtHours.Text)
        Else
            MsgBox("Please enter an amount of hours")
            Exit Sub
        End If

I hope all of this helps! If you need any more help, please feel free to keep posting.

[ldelvoye]

That is good but I do not need to have a messagebox in my accumulate button I just need it to accumulate the packages choose then show up in a messagebox when you exit. Here is an idea of how it is to end up.

Grand Total
PackageA = 40hours for $55.95
PackageB = 0hours for $0.00
PackageC = 10hours for $19.95

[Luk3r]

So, should you click accumulate after every time you click btnCharges? If so, I've given you plenty of data to work your way to that result.

[ldelvoye]

I am not sure I am totally confuse with this stuff but I don't think so this is what it tells me to do

When the “Accumulate” button is clicked:
i. You are to keep grand totals for the Hours and Amount Due for each type of Package.
i. This requires three class-level variables for the Hours, i.e. one for the Package A hours, one for the Package B hours, and one for the Package C hours.
ii. Similarly, you will need three class-level variables for the Amounts.
j. Check the RadioButtons to see which Package is selected and add the Hours and Amount Due into the corresponding set of class-level variables.
k. Also, disable the “Accumulate” button.

[Luk3r]

Precisely. So instead of doing the addition to the class variables within the btnCharge click, you must do them when you click the accumulate button. All of the information is in my response for you to move forward. As much as I'd love to do all of your homework, I won't. :)

[ldelvoye]

And I thank you for the help. But I was thinking it was easier than that. So what you are telling me is that what I had in the calculate button is also what goes in the accumulate button. This is what confuses me. Because when you click the calculate btn the amount shows in the amount due label and when you click the accumulate btn it stores it for the exit btn.