Visual Basic .Net объекты и классы

Question

Я проектирую банкомат очень высокого уровня. Я знаю, что могу использовать базы данных, но хотел бы дополнительно изучить мало что я знаю об объектах.

У меня есть банкомат, работающий на формах Windows. Я хочу, чтобы форма печатала, например, остаток на счете, который будет храниться в объекте person внутри класса счета.

Public Class Account

                Public Shared _PersonName As String
                Public Shared _WithBank As String
                Public Shared _AccountNumber As Double
                Public Shared _AccountBalance As Double
                Public Shared _PIN As Integer

        Public Sub New(ByVal personName As String, ByVal accountNumber As Double, ByVal accountBalance As Double, ByVal pin As Integer)
                _PersonName = personName
                _AccountNumber = accountNumber
                _MaxWithdrawal = Withdrawal()
                _AccountBalance = accountBalance
                _PIN = pin
            End Sub
End Class

В самих формах я хотел бы иметь возможность переключаться между двумя людьми на основе номера входного контакта. Я хотел бы иметь возможность сказать Account.NewPerson.accountNumber и иметь возможность получить accountNumber человека, чей пин-код был введен.

Я борюсь за создание объектов. Возможно, я все делаю неправильно и буду признателен за любое конструктивное руководство. Я не уверен, где их поставить. в том же классе или в новом классе?

Public Shared Person1 As Account = New Account("Tom Jones", 123456789, 6000, 1234)
Public Shared Person2 As Account = New Account("Bob Marley", 987654321, 500, 5678)
Public Shared NewPerson As Account = New Account("", 0, 0, 0)

В формах у меня есть утверждение if, если заявление if else. если результат1, то Account.NewPerson = Account.Person1. если результат2, то Account.NewPerson = Account.Person2.

Я думаю, что это правильный путь, но я могу быть совершенно не на том пути. Если это решится, я заменю оператор if else поиском, так как я знаю, как это сделать.

Спасибо за вашу помощь

Answer 1

Сохраните объекты вашей учетной записи в общем списке.

Dim Accounts As List(Of Account) = New List(Of Account) 
Accounts.Add(New Account("Tom Jones", 123456789, 6000, 1234) )  
Accounts.Add(New Account("Bob Marley", 987654321, 500, 5678) )
Dim currentName = Accounts(0)._PersonName

Вы также можете привязать список к комбинированному окну в вашей форме и изменить представление в зависимости от того, какая учетная запись выбрана.