Class/Constructor Question

[Socketboy]

Class/Constructor Question - RESOLVED

So I am new to VB, and I am struggling through my final project for my VB course.

My question is this:

I have a main form with the main controls, text fields, checkboxes, etc.
I also have a class that I designed (as per the requirements).
I am going off of what they have in the text book, and most of the things I have found are too general. I *think* I have the main values linked ok (from the class to the form), but I am not sure how to handle the checkbox and radio button options.

Basically the user could check 0 - 3 check boxes (each adding cost to a total), as well as any one of 3 radio buttons that will add a different amount to the total. In the example in my text, there is a checkbox; they put it into a subclass and it just called that subclass when the class called.

So do I have to have a different subclass for every possible combination of radio buttons and check boxes? Or can I just work it into the main class in some constructors and call that. If so, all the constructors I add are just called new, how do I call different ones (if that is even something you can do)?

I think this is probably a fairly simple VB program, so if someone could take a look and show/tell me how to implement the input of the checkboxes and radio buttons (currently constants), and/or if this looks OK so far, it would be much appreciated.
As I said, I don't know what the heck I am doing, and right now it is returning 0 for all of the values.

Thanks!

My main form code:

Try
            With Me
                apurchaseobject = New purchaseobject(Decimal.Parse(.tbxCarSales.Text), Decimal.Parse(.tbxTradein.Text))

                'Calculate and format the result
                .tbxSubtotal.Text = apurchaseobject.ammountduedecimal.ToString("C")
                .tbxTotal.Text = apurchaseobject.totaldecimal.ToString("C")
                .tbxTax.Text = apurchaseobject.taxdecimal.ToString("C")
                .tbxAmmDue.Text = apurchaseobject.ammountduedecimal.ToString("C")
                .tbxAccess.Text = apurchaseobject.accessoriesdecimal.ToString("C")
            End With
        Catch ex As Exception
            MessageBox.Show("enter numeric data.", "VBAuto", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try

My class code:

Public Class purchaseobject

    Public subtotaldecimal As Decimal
    Public totaldecimal As Decimal
    Public ammountduedecimal As Decimal
    Public salepricedecimal As Decimal
    Public allowancedecimal As Decimal
    Public accessoriesdecimal As Decimal
    Public finishdecimal As Decimal
    Public accessfinishtotal As Decimal
    Public taxdecimal As Decimal
    Private Const STEREO_PRICE_Decimal As Decimal = 425.76D
    Private Const LEATHER_PRICE_Decimal As Decimal = 987.41D
    Private Const NAVIGATION_PRICE_Decimal As Decimal = 1741.23D
    Private Const STANDARD_PRICE_Decimal As Decimal = 0D
    Private Const PEARL_PRICE_Decimal As Decimal = 345.72D
    Private Const DETAIL_PRICE_Decimal As Decimal = 599.99D
    Private Const TAX_RATE_Decimal As Decimal = 0.08D


    Sub New(ByVal carsaleprice As Decimal, ByVal tradeinallowance As Decimal)

        'Assign property values
        With Me
            .carsaleprice = carsaleprice
            .tradeinallowance = tradeinallowance
        End With
        GetAccessoriestotal()
        Getsubtotal()
        GetTax()
        GetTotal()
        GetDue()

    End Sub

    Sub New()

    End Sub

    Public Property carsaleprice() As Decimal
        Get
            Return salepricedecimal
        End Get
        Set(ByVal value As Decimal)

        End Set
    End Property

    Public Property accessoriesandfinish() As Decimal
        Get
            Return accessfinishtotal
        End Get
        Set(ByVal value As Decimal)

        End Set
    End Property

    Public Property subtotal() As Decimal
        Get
            Return subtotaldecimal
        End Get
        Set(ByVal value As Decimal)

        End Set
    End Property

    Public Property salestax() As Decimal
        Get
            Return taxdecimal
        End Get
        Set(ByVal value As Decimal)

        End Set
    End Property

    Public Property total() As Decimal
        Get
            Return totaldecimal
        End Get
        Set(ByVal value As Decimal)

        End Set
    End Property

    Public Property tradeinallowance() As Decimal
        Get
            Return allowancedecimal
        End Get
        Set(ByVal value As Decimal)

        End Set
    End Property

    Public Property amountdue() As Decimal
        Get
            Return ammountduedecimal
        End Get
        Set(ByVal value As Decimal)

        End Set
    End Property

    Public Property Stereo() As Integer
        Get
            Return STEREO_PRICE_Decimal
        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property Leather() As Integer
        Get
            Return LEATHER_PRICE_Decimal
        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property Navigation() As Integer
        Get
            Return NAVIGATION_PRICE_Decimal
        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    ''' <value></value>
    Public Property Standard() As Integer
        Get
            Return STANDARD_PRICE_Decimal
        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property Pearlized() As Integer
        Get
            Return PEARL_PRICE_Decimal
        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Property Detailing() As Integer
        Get
            Return DETAIL_PRICE_Decimal
        End Get
        Set(ByVal value As Integer)

        End Set
    End Property

    Public Sub GetAccessoriestotal()
       
        accessfinishtotal = finishdecimal + accessoriesdecimal
    End Sub

    Public Sub Getsubtotal()
        subtotaldecimal = accessfinishtotal + salepricedecimal

    End Sub

    Public Sub GetTax()
        taxdecimal = subtotaldecimal * TAX_RATE_Decimal
    End Sub

    Public Sub GetTotal()
        totaldecimal = subtotaldecimal + taxdecimal
    End Sub

    Public Sub GetDue()
        ammountduedecimal = totaldecimal - allowancedecimal
    End Sub
End Class

 

[Socketboy]

Ok that looks more like I was thinking. I knew there had to be that If loop in there someplace.
*Going through code now*

Thanks!

 

[SDavied]

Almost forgot:

        ' reset PurchaseObject object
         Me.po = New PurchaseObject

Add this at the bottom of the resetButton_Click() event handler. This will clear all of the data for the purchase object. I edited my previous post to reflect this change.

 

[Socketboy]

Good catch! I was just trying to track down why the accessories and finish were accumulating

 

[Socketboy]

PS
Everything is working great! I just have to finish a few other parts of this project (like some database stuff and printing things) and I will be done.

You really saved me on this one. I was not making much progress on my own, and this was a central part to the project.

I can't say how much I appreciate you spending the time to not only do the whole thing, but sticking around and answering my questions too. Very helpful!
So seriously, if you would like some avatar, or logo, or whatever let me know. I can help you out as soon as I am done with finals next week.

 

[SDavied]

Glad to help!