'Visual Basic 2010 Nut van OOP Object Oriented Programming
Class Loan
    Private m_Amount As Decimal
    Private m_IntrestRate As Decimal
    Public Property Amount() As Decimal
        Get
            Amount = m_Amount
        End Get
        Set(ByVal value As Decimal)
            m_Amount = value
        End Set
    End Property
    Public Property IntrestRate() As Decimal
        Get
            IntrestRate = m_IntrestRate
        End Get
        Set(ByVal value As Decimal)
            m_IntrestRate = value
        End Set
    End Property
    Public Function GetTotalPayment() As Decimal
        GetTotalPayment = Amount * (1 + IntrestRate / 100)
    End Function
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.