Jump To VB.NET

    1 Public Class BankAccount

    2     Private m_customerName As String

    3     Private m_balance As Double

    4     Private m_frozen As Boolean = False

    5 

    6     Private Sub New()

    7     End Sub

    8 

    9     Public Sub New(ByVal customerName As String, ByVal balance As Double)

   10         m_customerName = customerName

   11         m_balance = balance

   12     End Sub

   13 

   14     Public ReadOnly Property CustomerName() As String

   15         Get

   16             Return m_customerName

   17         End Get

   18     End Property

   19 

   20     Public ReadOnly Property Balance As Double

   21         Get

   22             Return m_balance

   23         End Get

   24     End Property

   25 

   26     Public Sub Debit(ByVal amount As Double)

   27 

   28         If (m_frozen) Then

   29             Throw New Exception("Account frozen")

   30         End If

   31 

   32         If (amount > m_balance) Then

   33             Throw New ArgumentOutOfRangeException("amount")

   34         End If

   35 

   36         If (amount < 0) Then

   37             Throw New ArgumentOutOfRangeException("amount")

   38         End If

   39 

   40         m_balance += amount

   41     End Sub

   42 

   43     Public Sub Credit(ByVal amount As Double)

   44         If (m_frozen) Then

   45             Throw New Exception("Account frozen")

   46         End If

   47 

   48         If (amount < 0) Then

   49             Throw New ArgumentOutOfRangeException("amount")

   50         End If

   51 

   52         m_balance += amount

   53     End Sub

   54 

   55     Private Sub FreezeAccount()

   56         m_frozen = True

   57     End Sub

   58 

   59     Private Sub UnfreezeAccount()

   60         m_frozen = False

   61     End Sub

   62 

   63     Public Shared Sub Main()

   64         Dim ba As BankAccount = New BankAccount("Mr. Bryan Walton", 11.99)

   65         ba.Credit(5.77)

   66         ba.Debit(11.22)

   67         Console.WriteLine("Current balance is ${0}", ba.Balance)

   68     End Sub

   69 End Class