[RESOLVED] Property Procedure Help

[mrman99]

Private Sub calculateButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles calculateButton.Click
 
        Dim discountDecimal, dailyRateDecimal, miRateDecimal As Decimal
        Dim chargeMiBoolean As Boolean
        Const NONE_DISCOUNT_Decimal As Decimal = 1D
        Const CORP_DISCOUNT_Decimal As Decimal = 0.95D
        Const INS_DISCOUNT_Decimal As Decimal = 0.9D
        Const COMPACT_DAILY_RATE_Decimal As Decimal = 26.95D
        Const COMPACT_MI_RATE_Decimal As Decimal = 0.12D
        Const MID_DAILY_RATE_Decimal As Decimal = 32.95D
        Const MID_MI_RATE_Decimal As Decimal = 0.15D
        Const LUXURY_DAILY_RATE_Decimal As Decimal = 50.95D
        Const LUXURY_MI_RATE_Decimal As Decimal = 0.2D
 
        If Me.noneRadioButton.Checked Then
            discountDecimal = NONE_DISCOUNT_Decimal
            chargeMiBoolean = True
        End If
        If Me.corporateRadioButton.Checked Then
            discountDecimal = CORP_DISCOUNT_Decimal
            chargeMiBoolean = False
        End If
        If Me.insuranceRadioButton.Checked Then
            discountDecimal = INS_DISCOUNT_Decimal
            chargeMiBoolean = True
        End If
        If Me.compactRadioButton.Checked Then
            dailyRateDecimal = COMPACT_DAILY_RATE_Decimal
            miRateDecimal = COMPACT_MI_RATE_Decimal
        End If
        If Me.midsizeRadioButton.Checked Then
            dailyRateDecimal = MID_DAILY_RATE_Decimal
            miRateDecimal = MID_MI_RATE_Decimal
        End If
        If Me.luxuryRadioButton.Checked Then
            dailyRateDecimal = LUXURY_DAILY_RATE_Decimal
            miRateDecimal = LUXURY_MI_RATE_Decimal
        End If
 
        Dim myCalc As New CalculationsClass(Decimal.Parse(Me.totalMiTextBox.Text), Integer.Parse(Me.daysRentedTextBox.Text), discountDecimal, chargeMiBoolean, dailyRateDecimal, miRateDecimal)
 
        Me.amountDueTextBox.Text = myCalc.AmountDue.ToString("C")
        Debug.WriteLine("Check number before passing")
        Debug.WriteLine("discount=" & discountDecimal.ToString())
        Debug.WriteLine("TotalMi=" & totalMiTextBox.Text.ToString())
        Debug.WriteLine("DailyRate=" & dailyRateDecimal.ToString())
        Debug.WriteLine("MiRate=" & miRateDecimal.ToString())
        Debug.WriteLine("DaysRented=" & daysRentedTextBox.Text.ToString())
    End Sub

Public Class CalculationsClass
    Private discountDecimal, dailyRateDecimal, miRateDecimal, amountDecimal, discountApply As Decimal
    Private daysRentedInteger, totalMiInteger As Integer
    Private chargeMiInBoolean As Boolean
 
    Sub New(ByVal totalMiInInteger As Integer, ByVal daysRentedInInteger As Integer, ByVal discountInDecimal As Decimal, ByVal chargeMiInBoolean As Boolean, ByVal dailyRateInDecimal As Decimal, ByVal miRateInDecimal As Decimal)
        'constructor method
        Discount = discountInDecimal
        TotalMi = totalMiInInteger
        DailyRate = dailyRateInDecimal
        MiRate = miRateInDecimal
        DaysRented = daysRentedInInteger
 
        If ((TotalMi / DaysRented) < 100) Or chargeMiInBoolean Then
            MiRate = 0
        End If
        amountDecimal = Discount * ((DailyRate * DaysRented) + (TotalMi * MiRate))
 
        Debug.WriteLine("Check number after passing")
        Debug.WriteLine("discount=" & Discount.ToString())
        Debug.WriteLine("TotalMi=" & TotalMi.ToString())
        Debug.WriteLine("DailyRate=" & DailyRate.ToString())
        Debug.WriteLine("MiRate=" & miRate.ToString())
        Debug.WriteLine("DaysRented=" & DaysRented.ToString())
    End Sub
 
    Private Property Discount() As Decimal
        Get
 
        End Get
        Set(ByVal value As Decimal)
            discountDecimal = value
        End Set
    End Property
 
    Private Property TotalMi() As Integer
        Get
 
        End Get
        Set(ByVal value As Integer)
            totalMiInteger = value
        End Set
    End Property
    Private Property DailyRate() As Decimal
        Get
 
        End Get
        Set(ByVal value As Decimal)
            dailyRateDecimal = value
        End Set
    End Property
    Private Property DaysRented() As Integer
        Get
 
        End Get
        Set(ByVal value As Integer)
            daysRentedInteger = value
        End Set
    End Property
    Private Property MiRate() As Decimal
        Get
 
        End Get
        Set(ByVal value As Decimal)
            miRateDecimal = value
        End Set
    End Property
    Public ReadOnly Property AmountDue() As Decimal
        Get
            Return (amountDecimal)
        End Get
    End Property
End Class

I can't seem to pass on the varibles. When I check the values of all the ones on the left of the "=" is zero, while the varibles on the right side of the "=" is the correct value.

Discount = discountInDecimal
        TotalMi = totalMiInInteger
        DailyRate = dailyRateInDecimal
        MiRate = miRateInDecimal
        DaysRented = daysRentedInInteger

[wild_bill]

You're missing the code inside the get statement. Use an underscore infront of your private variables to make them different from the incomming values in your constructor. Also, do you have options strict and excplicit on?
Try this:

Sub New(ByVal totalMiInInteger As Integer, ByVal daysRentedInInteger As Integer, ByVal discountInDecimal As Decimal, ByVal chargeMiInBoolean As Boolean, ByVal dailyRateInDecimal As Decimal, ByVal miRateInDecimal As Decimal)
        'constructor method
        _discountDecimal = discountInDecimal
        _totalMiInteger = totalMiInInteger
        _dailyRateDecimal = dailyRateInDecimal
        _miRateDecimal = miRateInDecimal
        _daysRentedInteger = daysRentedInInteger
 
        If ((TotalMi / DaysRented) < 100) Or chargeMiInBoolean Then
            MiRate = 0
        End If
        _amountDecimal = Discount * ((DailyRate * DaysRented) + (TotalMi * MiRate))
 
        Debug.WriteLine("Check number after passing")
        Debug.WriteLine("discount=" & Discount.ToString())
        Debug.WriteLine("TotalMi=" & TotalMi.ToString())
        Debug.WriteLine("DailyRate=" & DailyRate.ToString())
        Debug.WriteLine("MiRate=" & miRate.ToString())
        Debug.WriteLine("DaysRented=" & DaysRented.ToString())
    End Sub
 
    Private Property Discount() As Decimal
        Get
            Return _discountDecimal
        End Get
        Set(ByVal value As Decimal)
            _discountDecimal = value
        End Set
    End Property
 
    Private Property TotalMi() As Integer
        Get
            Return _totalMiInteger
        End Get
        Set(ByVal value As Integer)
            _totalMiInteger = value
        End Set
    End Property
    Private Property DailyRate() As Decimal
        Get
            Return _dailyRateDecimal
        End Get
        Set(ByVal value As Decimal)
            _dailyRateDecimal = value
        End Set
    End Property
    Private Property DaysRented() As Integer
        Get
            Return _daysRentedInteger
        End Get
        Set(ByVal value As Integer)
            _daysRentedInteger = value
        End Set
    End Property
    Private Property MiRate() As Decimal
        Get
            Return _miRateDecimal
        End Get
        Set(ByVal value As Decimal)
            _miRateDecimal = value
        End Set
    End Property
    Public ReadOnly Property AmountDue() As Decimal
        Get
            Return _amountDecimal
        End Get
    End Property
End Class